Excel vba ile hücre temizleme

[chausin]

Merhaba arkadaşlar.
Benim bir tablom var. B hücresine değer yazdığım zaman C-D-E hücrelerine düşeyara ile veri getiriyorum. B hücresine veri yazdığımda diğer tabloda veri yoksa C hücresinde “Kayıt Yok” yazıyor. Benim yapmak istediğim buton ile kayıt yok yazan b hücrelerini temizlemek istiyorum. Satırı silmek değil amacım. B Hücresindeki değeri temizlemek.
Şimdiden teşekkür ederim.

 

[Muzaffer Ali]

Merhaba
Aşağıdaki kod ile yapabilirsiniz

Sub Temizle()
    Dim Bak As Range
    For Each Bak In Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row)
        If Bak = "Kayıt Yok" Then
            Cells(Bak.Row, "B").ClearContents
        End If
    Next
End Sub

 

[chausin]

Teşekkür ederim deneyeceğim birazdan