Hücre sil

[para_metre]

Değerli üstadlarım
D4 ile D1000 arasında değerleri sıfır olan hücrenin bulunduğu satırdaki A hücresini silecek kodu nasıl oluşturmam gerekiyor yardımlarınızı bekliyorum.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Hucre_Sil()
    
    Dim i As Integer
    
    Application.ScreenUpdating = False
    
    For i = 4 To 1000
        If Cells(i, "D") = 0 And Cells(i, "D") <> "" Then
            Cells(i, "A").ClearContents
        End If
    Next i
    
    Application.ScreenUpdating = True
        
End Sub

.

 

[para_metre]

Çok teşekkür ediyorum hocam tam olarak işimi gördü