Değiştir Makrosu Tarih Verisini Değiştirmiyor

[baykan_m]

Merhaba,

Yapmaya çalıştığım işlem ekteki excelde D sütununda yer alan tüm "0.01.1900" ibarelerini temizlemek. Ancak normalde CTRL+H ile yaptığımda değiştirebildiğim içeriği makto ile yapamıyorum. İlgili makro aşağıdaki gibidir;

Sub Makro1()
    Columns("D:D").Select
    Range("D3").Activate
    Range("F4").Select
    Cells.Replace What:="0.01.1900", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Range("D5").Select
End Sub

 

[muygun]

Merhaba;
Bu kodu deneyin.

Sub değiştir()
Application.ScreenUpdating = False
On Error Resume Next
For i = 4 To Range("d65536").End(xlUp).Row
If Cells(i, "d") = 0 Then
Cells(i, "d") = ""
End If
Next i
Application.ScreenUpdating = True
End Sub

İyi çalışmalar.

 

[baykan_m]

Çok teşekkür ederim tam istediğim gibi oldu.