Satır olarak sıralama

[Yarkan]

Herkese kolay gelsin.
Sorunum aşağıdaki resimdeki sıralamam var.
İstediğim tüm sayıları sola kaydırmak. Yani boşlukları yok etmek. Ayrıca rakamlar köprülü, bozulmadan kaydırmalıyım ve aşağıya doğru çoksayıda var. Yani tüm satırlar boş hücreleri doldurup sıralanacak. Yardımcı olabilecek varsa şimdiden teşekkürler.

İndir Adsız

Dosyayı indir Adsız

dosya.co

 

[Korhan Ayhan]

Merhaba,

Dosyanızı yedekleyerek aşağıdaki kodu deneyiniz.

Option Explicit

Sub Delete_Blank_Cells()
    Range("C2:AY" & Cells(Rows.Count, 2).End(3).Row).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
    MsgBox "Boş hücreler silinmiştir.", vbInformation
End Sub

 

[Yarkan]

Merhaba,

Dosyanızı yedekleyerek aşağıdaki kodu deneyiniz.

Option Explicit

Sub Delete_Blank_Cells()
    Range("C2:AY" & Cells(Rows.Count, 2).End(3).Row).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
    MsgBox "Boş hücreler silinmiştir.", vbInformation
End Sub

TEŞEKKÜRLER TAM SÜPER...