Boş satırların silinmesi

[siar]

Herkese merhabalar
Kullandığım paket programdan, bazı raporları excele export ediyorum. Fakat programın excele export ettiği sayfalarda, her satır arasında bir satır boşluk kalıyor. Tabi bu boş kalan satırlar sabit değil. Her raporda değişiyor. Yani 1. satır dolu 2. satır boş, 3. satır dolu 4. satır boş gibi devam ediyor. Konuyla ilgili yardıma ihtiyacım var. Şimdiden teşekkür ederim.

 

[Merhum İdris SERDAR]

Sub Bossatirsil()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For k = LastRow To 1 Step -1
If Application.CountA(Rows(k)) = 0 Then Rows(k).Delete
Next k
End Sub

Bunu deneyin.

 

[mehmett]

Alternatif olarak, aşağıdaki kodu da bir deneyin.
A sütunundaki boş hücrelerin bulunduğu satırları komple siler.

Sub Satirsil()
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[siar]

Sn. Yurttaş teşekkür ederim. Oldukça işime yaradı. Bunu XLSTART a yerleştirmeye çalıştım ama başaramadım. Her excel açılışında bu makro aktif olsun istiyorum. Nasıl yapabilirim acaba?

 

[Merhum İdris SERDAR]

Sayın semihtorunlar,

This Workbook Open olayına yazarak deneyin.

Private Sub Workbook_Open()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For k = LastRow To 1 Step -1
If Application.CountA(Rows(k)) = 0 Then Rows(k).Delete
Next k
End Sub

 

[siar]

Makro süper ama bunu her excel sayfasında geçerli kılmak istiyorum. Lakin bir türlü beceremedim. Yani her excel sayfasını açtığımda bu makro da bir şekilde aktif olması gerekiyor. XLSTART dosyası altına yerleştirdim, olmadı. Nasıl yapabilirim acaba?

Şimdiden teşekkürlerimle

 

[siar]

Makro süper ama bunu her excel sayfasında geçerli kılmak istiyorum. Lakin bir türlü beceremedim. Yani her yeni bir excel sayfasını açtığımda bu makro da bir şekilde aktif olması gerekiyor. XLSTART dosyası altına yerleştirdim, olmadı. Nasıl yapabilirim acaba?

Şimdiden teşekkürlerimle

 

[Merhum İdris SERDAR]

Sayın semihtorunlar,

Ekteki dosyayı açarak Add Inns - Eklentiler dizininize koyun.

Excel'de Araçlar Eklentiler'e girerek kutusunu işaretleyin. Böylelikle bu macro açacağınız her excel kitabında kullanabileceksiniz.