seçimli hücre silmek

[ekoert]

Merhaba,

Sadece A sütununda boş hücre de içeren değerler var, 5. boş hücreden itibaren değerlerin tamamını makroyla nasıl silebilirim?

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub sil()
son = Cells(Rows.Count, "A").End(3).Row
boş = 0
For i = 1 To son
    If Cells(i, "A") = "" Then
        boş = boş + 1
        If boş = 5 Then
            Range("A" & i & ":A" & son).ClearContents
            i = son
        End If
    End If
Next
End Sub

 

[ekoert]

Yusuf Bey çok teşekkürler.