Find value (31.12.9999) and clear

[Tempy]

Hi all, i am back again !! I can clear all cells with the value above In
the column "CA" by using a loop statement, but is there perhaps a better
way ??

regards,

Tempy

*** Sent via Developersdex http://www.developersdex.com ***

 

[Harald Staff]

Search-replace perhaps ?
Glad you're back.

Best wishes Harald

 

[Tempy]

Yip, i used the following:

Sub RemoveWrongDate()
'
Range("CA:CA").Select
Selection.Replace What:="(31.12.9999)", Replacement:="",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Columns("A:EP").EntireColumn.AutoFit

End Sub

If there are any other suggestions i would be gratefull

regards,

Tempy

*** Sent via Developersdex http://www.developersdex.com ***

 

[Dave Peterson]

I think you have the best (quickest and easiest anyway) solution.