Boş Sütunları Koşula Bağlı Silmek

[mustafa1205]

Ekte örneğini olan çalışmamda B sütunundan K sütununa kadar olan sütunların eğer 2nci hücreleri boş ise kod yardımı ile silmek istiyorum. Örnek çalışmamda da açıklama yapmaya çalıştım . Teşekkür ederim

 

[mustafa1205]

Sorumu güncellemek istiyorum.

 

[Emir Hüseyin Çoban]

. . .

Soruyu biraz daha açalım.
B:K aralığında 2 tane değer yoksa o satır silinecek. İstediğiniz böyle birşey mi ?

. . .

 

[mustafa1205]

Kusura bakmayın geç cevap yazabildim. Şöyle anlatayım B2 hücresinden k2 hücrelerine kadar eğer bu ikinci hücreler boş ise o sütunu komple silmesini istiyorum umarım anlatabilmişimdir. yani b2 hücresi boş ise b sütunu, c2 hücresi boş ise c sütununu komple silsin

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub BOŞ_SÜTUNLARI_SİL()
    Dim X As Integer
    
    Application.ScreenUpdating = False
    
    For X = Cells(1, Columns.Count).End(1).Column To 2 Step -1
        If Cells(2, X) = "" Then Cells(1, X).EntireColumn.Delete
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mustafa1205]

Hocam elleriniz dert görmesin çok güzel oldu. Çok teşekkür ediyorum.