SAYFADAKİ BOŞ SATIR VEYA SÜTUNU SİLMEK

[YASINT]

SAYFADAKÝ BOÞ SATIR VEYA SÜTUNU SÝLMEK

ARKADAÞLAR MAKRO İLE SAYFANIN İÇİNDEKİ BOÞ OLAN SATIR VEYA SÜTUNLARI BULUP SİLMEK İSTİYORUM BUNU NASIL YAPARIM YARDIMCI OLURSANIZ SEVİNİRİM.

 

[YASINT]

PARDON EKLEMEYİ UNUTMUÞUM AYRICA BUNU TÜM SAYFALARA NASIL UYGULARIM.

 

[Levent Menteşoğlu]

Bu sorunuz için aöçıklamanız yetersiz. Bir örnek dosya eklerseniz çözüm daha kolay olacaktır.

 

[YASINT]

EKLÝ DOSYA

Ã?RNEK BİR DOSYA YAPIP YOLLUYORUM

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

NOT:Bu kodu; orijinal dosyanızın bir kopyasında tam olarak denedikten sonra kullanıma alın.

[vb:1:3c73ae25bc]Sub sil()
For a = 1 To Sheets.Count
sat = Sheets(a).Cells.SpecialCells(xlCellTypeLastCell).Row
sut = Sheets(a).Cells.SpecialCells(xlCellTypeLastCell).Column
For b = sat To 1 Step -1
If WorksheetFunction.CountA(Sheets(a).Rows(b)) = 0 Then Sheets(a).Rows(b).Delete
Next
For c = sut To 1 Step -1
If WorksheetFunction.CountA(Sheets(a).Columns(c)) = 0 Then Sheets(a).Columns(c).Delete
Next
Next
End Sub
[/vb:1:3c73ae25bc]

 

[YASINT]

YARDIMLARIN İÇİN TEÞEKKÜRLER LEVENTM.

 

[eksiman]

Leventm, bunu geri alacak bir makro yapabilirmiyiz?

 

[Levent Menteşoğlu]

bunu geri alacak bir makro yapabilirmiyiz?

Bu oldukça zor bir işlem olur, yani böyle bir kod yazmak epeyce zahmetli bir iş. En iyisi dosyayı kaydetmeden kapatmaktır.

 

[eksiman]

teşekkürler leventm