hücre boş ise ilgili satırın belirli hücrelerini temizleme

[Gold_Savt]

Merhaba Arkadaşlar;
A5:A1005 sütunuyla sınırla kalmak şartıyla

Eğer A5:1005 arasında hücre boş hücre varsa:
Boş hücrenin ilgili E sütunu, K-N arası ve R sütunundaki bilgiler silinsin
şeklinde bir commandButon ayarlayabilir miyiz?

 

[Necdet]

Merhaba,

Aşağıdaki kodları sayfanızın kopyasını aldıktan sonra dener misiniz?

Sub Sil()

    Dim i   As Long, _
        Hcr As Range
    
    On Error GoTo Son
    
    i = Cells(Rows.Count, "A").End(3).Row
    If i < 5 Then i = 5
    
    For Each Hcr In Range("A5:A" & i).SpecialCells(xlCellTypeBlanks)
        Hcr.Offset(0, 4) = Empty
        Hcr.Offset(0, 10).Resize(1, 4) = Empty
        Hcr.Offset(0, 17) = Empty
    Next Hcr
    
    MsgBox "İşlem Tamamdır...."
    Exit Sub
Son:
    MsgBox "Boş Hücre Bulunamadı....."
End Sub

 

[Gold_Savt]

Sayın Necdet Bey;
Dolu hücreye kadar olan yerleri kotrol edip belirtilen aralıkları bir güzel temizliyor.
Ancak dolu hücre bitiminden sonrasını temizlemiyor.
Oysa A5 ile A1005 arasını komple taraması gerekiyor.

 

[Necdet]

Merhaba,

A sütununda son dolu hücreye kadar işlem yapıyordu, öyle düşünmüştüm.
Aşağıdaki gibi deneyebilirsiniz.

Sub Sil()

    Dim Hcr As Range
   
    On Error GoTo Son
   
    For Each Hcr In Range("A5:A1005").SpecialCells(xlCellTypeBlanks)
        Hcr.Offset(0, 4) = Empty
        Hcr.Offset(0, 10).Resize(1, 4) = Empty
        Hcr.Offset(0, 17) = Empty
    Next Hcr
   
    MsgBox "İşlem Tamamdır...."
    Exit Sub
Son:
    MsgBox "Boş Hücre Bulunamadı....."
End Sub

 

[Gold_Savt]

Sayın Necdet Bey;
İlginiz için teşekkür ederim. Verdiğiniz kodlar ile problem çözülmüştür.