For - Each

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar AB21:BB38 aralığında değeri
0 olan tüm hücreleri (birebir 0 a eşit olan hücreleri) boş yapmak istiyorum. Yani hiçbir değer yazmasın. Tek sütunda döngü kurabiliyorum ama sütunlar çok olunca farklı ve pratik bir yöntemi olmalı diye düşündüm. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SIFIRLARI_TEMİZLE()
    Dim Hücre As Range
    
    For Each Hücre In Range("AB21:BB38")
        If Hücre.Value <> "" Then
            If Hücre.Value = 0 Then Hücre.ClearContents
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub