#yok değeri içeren hücrelere makro ile işlem yapamıyorum

[osman1309]

Merhaba Arkadaşlar #YOK değieri içeren hücreleri excel içinden ctrl+h ile değiştirebiliyorum veya süzme tuşu ile süze biliyorum fakat aynı işlemi makro koduyla yapınca yapmıyor lütfen yardım edin

DEGİŞTİR>>>>>>>>>>
Cells.Replace What:="#YOK", Replacement:="ZZZ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
>>>>>>>>>>>>>>>>>>>>>>>>>>>>

SUZ>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Selection.AutoFilter
ActiveSheet.Range("$A$1:$B$36").AutoFilter Field:=2, Criteria1:="#YOK"
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

 

[hurkanpisirici]

ehatalıysa fonksiyonunu denedinizmi?

 

[osman1309]

Denedım ama olmadı ornek dosya ekte

Denedım ama olmadı ornek dosya ekte sız yapabılırmsınız.

 

[Necdet]

Merhaba,

Süz Kodlarını aşağıdaki şekilde dener misiniz?

Sub Makro3()
    ActiveSheet.Range("A1:B" & [a65536].End(3).Row).AutoFilter Field:=2, Criteria1:="#N/A"
End Sub

 

[hamitcan]

Sub hatalilari_bul_degistir()
    Columns(2).SpecialCells(xlCellTypeConstants, 16).Select
    Selection.Value = "ZZZ"
End Sub

 

[ayprenses]

Merhaba.Bana c20 den c64 e kadar olan satırlarda boş olmayan satırları süzen makroyu yazabilir misiniz.Teşekkür ederim.

 

[Necdet]

Merhaba,

Sadece C sütununda geçerlidir. Eğer başka sütunlar da var ve C sütununa göre süzdürecekseniz kodlarda değişiklik yapılmalıdır.

Sub Makro1()
ActiveSheet.Range("C20:C64").AutoFilter Field:=1, Criteria1:="<>"
End Sub

 

[ayprenses]

Çok teşekkür ederim Necdet bey.Sadece C sütunu için istemiştim zaten.İşime yaradı.Tekrar sağolun.

 

[osman1309]

Yardımlarınız ıcın cok tesekkurler

Allah razı olsun...:hey: