BOŞ HÜCRELERİ SİLME

[Alpeek]

Merhaba arkadaşlar,
Ekte belirttiğim soldaki gibi bir tablo var. Kırmızı çarpıyla işaretlenen hücreleri silip bütün dolu olan hücreleri sol tarafa kaydırma işlemini nasıl yaparım. Herhangi formül vs. bir şey var mıdır? Listenin bir örneğini verdim. Teker teker silme işlemi çok uzun süreceğinden sizden yardım istedim. Geri dönüşlerinizi bekliyorum.

 

[ÖmerBey]

Merhaba,
Verileri seç > F5 tuşuna bas > açılan pencereden Özel butonu > Boşluklar > Tamam > Seçili alanda sağ tık > Sil > Hücreleri sola sürükle > Tamam yolunu izleyiniz.

 

[Ömer]

Merhaba,

Aynı tablo üzerinde mi silme olacak yoksa listeleme sonucunda farklı bir tablo mu oluşacak.

 

[uzmanamele]

Merhaba

Makro ile çözüm

Sub VerileriKaydir()
        Range("B11:F14").ClearContents
Dim deg(1 To 5) As Variant
For i = 1 To 4
X = 0
For j = 2 To 6
If Cells(i, j) <> "" Then
X = X + 1
deg(X) = Cells(i, j)
End If
Next
    For k = 2 To 6
    Cells(i + 10, k) = deg(k - 1)
    deg(k - 1) = Empty
    Next
Next
End Sub

 

[Alpeek]

Teşekkürler.