Macro on replacing 00/01/1900 00:00 to blank

[Bryan123]

Hi,

Please assist me. I'm tryig to create a macro replacing 00/01/1900 to blank. I have used control H to replace the date but it's not working.
Please advise.


Sub Macro5()
'
' Macro5 Macro
'
'
Sheets("QA Coaching Data").Select
Range("J2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="00/01/1900 00:00:00", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.SmallScroll ToRight:=7
Range("T2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="00/01/1900 00:00:00", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.ScrollColumn = 1
Range("B2").Select
End Sub







Thank you
Bryan

 

[Bryan123]

Help!

 

[steve the fish]

Format all the cells back to general then replace 0 then format them back.

 

[steve the fish]

Maybe like this:

With Sheets("QA Coaching Data")
    lr = Application.Max(.Range("J" & .Rows.Count).End(xlUp).Row, .Range("T" & .Rows.Count).End(xlUp).Row)
    With Union(.Range("J2:J" & lr), .Range("T2:T" & lr))
        .NumberFormat = General
        .Replace What:="0", Replacement:="", LookAt:=xlWhole
        .NumberFormat = "dd/mm/yyyy hh:mm"
    End With
End With