c1 ile I1 arasındaki hücreleri boş olan bütün satırları silen bi makro

[jitems]

Arkadaşlar iyi geceler

c1 ile I1 arasındaki hücreleri boş olan bütün satırları silen bi makro gerekiyor
yardımcı olabilirmisiniz
teşekkürler

 

[jitems]

Yardım edebilecek yokmudur?

 

[Levent Menteşoğlu]

Sorunuzda bir hata var. C1:I1 arasında sadece bir satır vardır. Acaba sütunmu demek istediniz.

 

[jitems]

şöyle açıklayayım eğer 1. satırdaki c den ı ya kadar olan sütunlar boşsa o satırı komple silecek ve misal 1000 satıra aynı işlemi yapacak bir makro demek istedim

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

sub satirsil()
application.screenupdating=false
for a=[c65536].end(3).row to 1 step -1
if worksheetfunction.counta(range("c" & a & ":I" & a))= 0 then rows(a).delete
next
end sub

 

[jitems]

malesef çalışmadı acaba specialcells blank gibi bişey mi kullanmak gerekiyor?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub satirsil()
Application.ScreenUpdating = False
For a = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If WorksheetFunction.CountA(Range("c" & a & ":I" & a)) = 0 Then Rows(a).Delete
Next
End Sub