Bul Değiştir sil

[yakup70]

Ekteki dosyada düşeyara formülü ile diğer excel dosyasından verileri getiriyorum.Ama #YOK ve 0,00 ları makro ile silemedim.Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub YOKLARI_VE_SIFIRLARI_TEMİZLE()
    With Columns("C:F")
        .Replace What:="#YOK", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        .Replace What:="0", Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    End With
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[leventmersin11]

Korhan hocam.0(SIFIR)ları temizliyor fakat #YOK ları temizlemiyor

 

[Korhan Ayhan]

Selamlar,

"#YOK" değeri formül sonucunda çıkıyorsa silmez. Ama örnek dosyada değer olarak gözüktüğü için siliyor.

 

[leventmersin11]

Yanlış yapmıyorum sanıyorum ama hiçbir şekilde YOKLARI silmiyor

 

[Korhan Ayhan]

Selamlar,

Hangi dosyada silemiyor sunuz?

 

[yakup70]

0'ları siliyor ama #yok ları silmiyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub YOKLARI_VE_SIFIRLARI_TEMİZLE()
    With Columns("C:F")
        .Replace What:="#N/A", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        .Replace What:="0", Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    End With
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[yakup70]

Tamamdır çalıştı çok teşekkür ederim.Sağlıcakla kalın.

 

[leventmersin11]

Şimdi tamam hocam..Teşekkür ederim