Kontrol Et Ve Temizle Makrosu

[ywzyilmaz]

Merhaba

Şöyle bir tablom var.

Elma	1
Armut	2
Kiraz	0
Muz	1
Ayva	0

Makronun yapmasını istediğim şey. B sütununda sıfır olan verileri tespit edip hem a hem b sütununu temizlemesi. Örneğin ayva karşılığı 0, hem ayvayı hem karşılığındaki 0 değerini silecek.

Yardımcı olabilecek var mı ?

 

[Muzaffer Ali]

Merhaba.

Satırı tamamen silmek için.

Sub test1()
    Dim Bul As Range
    Do
        Set Bul = Range("B1:B" & Rows.Count).Find(what:=0, lookat:=xlWhole)
        If Bul Is Nothing Then
            MsgBox "Tamalandı."
            Exit Sub
        End If
        Bul.EntireRow.Delete
    Loop
End Sub

Hücreleri temizlemek için.

Sub test2()
    Dim Bul As Range
    Do
        Set Bul = Range("B1:B" & Rows.Count).Find(what:=0, lookat:=xlWhole)
        If Bul Is Nothing Then
            MsgBox "Tamalandı."
            Exit Sub
        End If
        Bul = ""
        Cells(Bul.Row, "A") = ""
    Loop
End Sub

 

[ywzyilmaz]

Merhaba.

Hücreleri temizlemek için.

Sub test2()
    Dim Bul As Range
    Do
        Set Bul = Range("B1:B" & Rows.Count).Find(what:=0, lookat:=xlWhole)
        If Bul Is Nothing Then
            MsgBox "Tamalandı."
            Exit Sub
        End If
        Bul = ""
        Cells(Bul.Row, "A") = ""
    Loop
End Sub

Mükemmel çalışıyor. Teşekkür ederim. Peki şöyle denedim ama çalıştıramadım acaba neden ?

Taradığı alanı B1:B19 olarak sınırlandırdım tam da o satırda hata alıyorum.

 

[Muzaffer Ali]

Kodları paylaşın hatayı bulmaya çalışalım.

 

[ywzyilmaz]

Kodları paylaşın hatayı bulmaya çalışalım.

Bu kodu çalıştırmaya çalıştığımda

Sub test()
    Dim Bul As Range
    Do
        Set Bul = Range("E1:E19" & Rows.Count).Find(what:=0, lookat:=xlWhole)
        If Bul Is Nothing Then
            Exit Sub
        End If
        Bul = ""
        Cells(Bul.Row, "D") = ""
    Loop
End Sub

Bu satırda hata alıyorum.
Set Bul = Range("E1:E19" & Rows.Count).Find(what:=0, lookat:=xlWhole)

 

[Muzaffer Ali]

Rows.Count = Sayfadaki satır sayısı demek. Yani tüm sütunda arar.

Böyle olmalı.

Set Bul = Range("E1:E19").Find(what:=0, lookat:=xlWhole)

 

[ywzyilmaz]

Çok teşekkür ederim üstad.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.