Boş hücreye kaydırma ?

[Gorarr]

Selamlar, excelde boş kalan hücreleri dolduracak şekilde sola doğru kaydırma yapılabilirmi. Diğer yapılabilenlere bakınca bu çok kolay gibi geliyor ancak bir türlü yapamıyorum. Yardımlarınız için şimdiden teşekkürler. örnek dosyam ektedir.

 

[Gorarr]

Örnek dosyamda sorumu daha net bir hale getirdim. Benim için bir hayli önemli bir konu. Sitede aramadığım yer kalmadı işime yarayacak hiçbir konu açılmamış. Yardımınızı bekliyorum.

 

[Gorarr]

Yokmudur bunun bir çaresi ? Bakmaktan gözlerim şaşı oldu

 

[sbayyigit]

bu kodları dene, işini göreceğini düşünüyorum. kolay gelsin

Sub duzenle()
Set s1 = Sheets("sayfa1")
sat = s1.[a65536].End(3).Row
sut = s1.[b200].End(1).Column
kolonsay = WorksheetFunction.CountA(Rows("2:2"))


For a = 1 To sat
For b = 1 To kolonsay
If Cells(a, b).Value = "" Then


Cells(a, b).Select
Selection.Delete Shift:=xlToLeft
End If
Next b
Next a
End Sub

 

[Gorarr]

Çok teşekkür ederim elinize sağlık, harika çalışıyor. Fakat yaparım sanmıştım ama kodları uyarlamada sorun yaşadım. Ben kodları şöyle bir alanda "c2:c9,c15:c21,f2:f9" kullanmak üzere uyarlamak istiyordum ama beceremedim. Yazdığınız kodlar üzerine bunu nasıl uyarlayabilirim. Tekrar yardımcı olabilirseniz çok sevinirim.