sub RemoveIt
MCol = Range("M:M").Column
For Each c In Range("H1", Cells(Range("H:H").Rows.Count, Range("H:H").Column).End(xlUp).Address)
If c.Value = "00/00/00" Then
Cells(c.Row, MCol).Value = ""
End If
Next c
end
Hope it helps.
This will work. Add this code to a module.
Select the range of cells you want the char removed from.
Then run this routine.
Sub Remove()
char = InputBox("Enter char to replace")
For Each c In Selection
c.Replace what:=char, replacement:=""
Next c
End Sub
AMM9290
Without looping you can do this.
function SheetExists(theName as string)
On Error GoTo DoesNotExist
Sheets(theName).Activate
sheetexists = True
On Error GoTo 0
Exit Function
DoesNotExist:
sheetexists = False
On Error GoTo 0
Exit Function
End Function
If you had a hidden (or out of sight) cell on your worksheet you could do something like this one-liner:
=IF((EDate(SomeDateDataPoint,3)< TODAY()),CallWarning())
where SomeDateDataPoint is your "old" date and
3 is number of months from the "old" date.
This...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.