Boş olan hücre içeriğinin silinmesi

[tahsinanarat]

Ekli örnek dosyamda b sutununda B216'a kadar olan hücreler Düşeyara formülü ile çekilmiş olup, formüllerin silinmesi için kopyalanarak özel /yapıştır/ değerler seçilerek yapıştırılmıştır.
Buraya kada herşey tamam.
B sutununda boş gibi görünen hücreler ctrl+altyön tuşuna basıldığında ilk boş satırın üstü olan b3 hücresinde durması gerekirken formülü sürekleyerek getirdiğim B216 satırına kadar gitmektedir, yani boş gibi görünen hücreleri dolu saymaktadır. Tek tek hücreleri delete tuşu ile sildiğimde hücre içeriği temizleniyor.
Sonuç olarak ben b sutunundaki B1:B216 aralığındaki hücreleri bir seferde delete tuşu ile silmek istiyorum. Bunun için makroya ihtiyacım vardır. Yardımcı olacak arkadaşlarıma şimdiden teşekkür ediyorum.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub bossil()
Dim sat As Integer
For sat = 2 To Cells(65536, "a").End(xlUp).Row
Cells(sat, "b").Clear
Next
End Sub

 

[tahsinanarat]

sn. N.Ziya Hiçdurmaz, ilginiz için teşekkür ederim, ancak değer bulunan hücrelerin silinmemesi gerekiyor, saadece boş görünen hücreler silinecek. Tekrür bakarsanız sevinirim. Saygılar.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub bossil()
Dim sat As Integer
For sat = 2 To Cells(65536, "a").End(xlUp).Row
If Cells(sat, "b") = "" Then
Cells(sat, "b").Clear
End If: Next
End Sub

 

[tahsinanarat]

Evet sn. hocam, istediğim tam olarak bu. Çok ama çok teşekkür ediyorum, Elinize, bilginize sağlık.
Hocam bunu saadece b sutunu değilde tüm sayfa için yapabilirmiyiz?

 

[Levent Menteşoğlu]

Sn Tahsin bey tüm sayfa derken kesdettiğiniz nedir? yani tüm satırmı temizlenecektir.

 

[Necdet]

Merhaba,

Belki şöyle bir kod işinize yarayabilir.

Sub Sil()
Application.ScreenUpdating = False
    For Each Hücre In ActiveSheet.UsedRange
        If Hücre = "" Then Hücre = Hücre.Clear
    Next Hücre
Application.ScreenUpdating = True
End Sub

 

[tahsinanarat]

SN. Necdet hocam, tüm hücreleri kastetmiştim, yukarıda verdiğiniz kod sorunu halletti, çok teşekkür ediyorum, elinize sağlık hocam.