Düşeyara Çekecek Düzene Nasıl Hızlı Bir Şekilde Gelir

[Emidaf60]

Merhaba ekteki dosyada bir sürü bosluklar eklenmıs ve birlestirilmiş en kısa sekılde bos satır ve surunlardan nasıl kurtulabılırım acaba

 

[muhasebeciyiz]

ctrl tuşuna basarak silmek istediğiniz satır ve sutunları ayrı seçerek silebilirsiniz

 

[Emidaf60]

Evet bu yönetımi biliyorum fakat bu sekılde sayfalarca verı gırılmıs ben sadece bır kesıt paylastım daha farklı bır yolu vardır dıye dusunuyorum aslında bakarsanız

 

[muhasebeciyiz]

Sub Temizle()
Dim ws As Worksheet
Dim LastRow As Long
Dim LastColumn As Long
Dim i As Long
Dim j As Long
Dim SatirSil As Boolean
Dim SutunSil As Boolean

Set ws = ActiveSheet

LastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LastColumn = ws.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

For i = LastRow To 1 Step -1
SatirSil = True
For j = 1 To LastColumn
If Not IsEmpty(ws.Cells(i, j)) Then
SatirSil = False
Exit For
End If
Next j
If SatirSil Then
ws.Rows(i).Delete
End If
Next i


For j = LastColumn To 1 Step -1
SutunSil = True
For i = 1 To LastRow
If Not IsEmpty(ws.Cells(i, j)) Then
SutunSil = False
Exit For
End If
Next i
If SutunSil Then
ws.Columns(j).Delete
End If
Next j
End Sub

Bu makro aktif sayfadaki boş satırları ve sütunları siler.Çalıştırmadan önce yedek alınız.

 

[Emidaf60]

Elinize sağlık çok teşekkür ederim saniyede temizledi

 

[Greenblacksea53]

Alternatif olsun

Sütünü seç, sonra Giriş - Bul ve Değiştir-Özel Git açılan pencerede boşluklar işaretle sayfadaki bütün boşluklar seçilmiş olacak ardından sağ tıkla sil demenizde yeterli olacaktır. Ek bilgi olarak konuya uyduğu için paylaşmak istedim.