D:BY sütunlarındaki bütün hücreler boşsa o satırı sil

[hsayar]

arkadaşalar a9:by932 aralığında daha evvelden olulşturulmuş tablom var
bu satırlarda mükerrer kayıtlar oluşturlmuş. bunlardan
mesala
D5:BY5, d7:by7, d100: b100





hücreleri boşsa ilgili satırı silecek makro nasıl olmalıdır. diye soruyorum
yardımlarınız için teşekkürler

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklermisiniz.

 

[hsayar]

örnek dosya eklenmiştir.

 

[mesuttasar]

Aşağıdaki gibi bir kod işinize yarayacak galiba.Saygılarımla,

Sub deneme()
Dim kontrol As Boolean
Set s1 = Sheets("SİGORTA")
For i = 2 To 932
kontrol = False
For Each c In Range(Cells(i, "D"), Cells(i, "BY"))
If c.Value = "" Then kontrol = True
Next
If kontrol = True Then Range(Cells(i, "D"), Cells(i, "BY")).ClearContents
Rows(i).Delete
Next i
Set s1 = Nothing
End Sub

Not:Sayın Ripek'in kodlarından faydalanarak uyarladım belirteyim bu arada.Maharet bende değil yani.

 

[hsayar]

pardon hocam yine yanlış sormuşum

herhangi biri dolu ise silmeyecek
d : by aralığında 74 hücre var bunlardan 1 i dolu olsa bile silmeyecek

 

[mesuttasar]

pardon hocam yine yanlış sormuşum

herhangi biri dolu ise silmeyecek
d : by aralığında 74 hücre var bunlardan 1 i dolu olsa bile silmeyecek

Sayın Hsayar;

O zaman kodları şöyle düzeltmemiz sanrım lazım.

[LEFT]Sub deneme()
Dim kontrol As Boolean
Set s1 = Sheets("SİGORTA")
For i = 2 To 932
kontrol = False
For Each c In Range(Cells(i, "D"), Cells(i, "BY"))
If c.Value [COLOR=red]<>[/COLOR] "" Then kontrol = True
Next
If kontrol = [COLOR=red]False [/COLOR]Then Range(Cells(i, "D"), Cells(i, "BY")).ClearContents
Rows(i).Delete
Next i
Set s1 = Nothing
End Sub[/LEFT]

 

[hsayar]

TeŞekÜrler