SÜTUN SİLME

[ceikibin]

HERKESE MERHABA,
307. SÜTUNDAN YUKARIYA DOĞRU KONTROL EDİP BÜTÜN SUTUN BOŞ İSE SÜTUNU SİLEBİLECEK BİR MAKRO İÇİN YARDIMCI OLURSANIZ SEVİNİRİM,

TEŞEKKÜRLER,

 

[Levent Menteşoğlu]

Sorunuzda bir tanımlama hatası var sanıyorum. 307. satırdan yukarı doğru olması gerekir. Bu durumda hangi sütun kontrol edilecek bunu sormam gerekir.

 

[ceikibin]

İlginiz için şimdiden teşekkürler,

Haklısınız, düzeltmeniz için teşekkür ederim.
Benim datalarım; A1 den AZ1 e kadar olan bölgede ve en fazla 307. satıra kadar.
308. Satırda ve sonrasında silinmemesi gereken datalarım var.

Yardımınız için şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:c82f793421]Sub sil()
For a = 307 To 1 Step -1
say = WorksheetFunction.CountA(Rows(a))
If say = 0 Then Rows(a).Delete
Next
End Sub
[/vb:1:c82f793421]

 

[ceikibin]

Yazdığınız makro için çok teşekkür ederim. Tam istediğim gibi oldu.

Teşekkürler