Boş hücreleri sola doğru silme

[soykan]

Arkadaşlar merhaba ekli dosyada bir döngü oluşturmak istiyorum. Burada yapmak istediğim G sütunundaki hücreler bakacak eğer boş ise sütun silde hücreleri sola kaydırcak eğer G sütunun daki hücre dolu ise döngü devam edecek. Bunun için aşağıdaki kodu yazdım ama olmadı.
Sub Duznl()
Range("G2").Select
Dim i As Integer
For i = 2 To 5
If Cells(i, 1) = Empty Then
Selection.Delete Shift:=xlToLeft
End If
Next i

End Sub

 

[Ömer]

Merhaba,

Bunun için döngü kurmanıza gerek yok.

Sub Deneme()
On Error Resume Next
son = [A65536].End(3).Row
Range("G2:G" & son).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

Şeklinde kullanabilirsiniz..

.

 

[soykan]

Çok teşekkür ederim elinize sağlık.
Bir de bununla beraber yine boş gördüğü yere başka bir dosyadan düşeyara fonksiyonu ile veri getimek istesem nasıl bir makro yazmalıyım.

 

[Ömer]

Başka dosyadan kastınız ayrı bir çalışma kitabı ise bu kapalı dosyalardan veri alma işlemine girer. Bu konuda fazla bir bilgim yok maalesef. Yeni bir konu açarak sorunuzu sormanızı tavsiye ederim.

.

 

[soykan]

Hayır aynı dosyada başka bir sayfadan önemli olan dolu hücreleri atlayıp boş hücrelerde bu işlemi gerçekleştirmesi

 

[Ömer]

Düşeyaradaki aranan tablonun Sayfa2 A:B sütununda olduğu düşünülmüştür. Aranan verinin ise Sayfa1 A sütununda,

Sub Deneme()
On Error Resume Next
son = [A65536].End(3).Row
Range("G2:G" & son).SpecialCells(xlCellTypeBlanks) = _
"=VLOOKUP(RC[-6],Sayfa2!C[-6]:C[-5],2,0)"
End Sub

.

 

[soykan]

çok teşekkür ederim.