Soru Sutun Toplamı Boşsa Sütünü Silmek

[bulentkars]

Arkadaşlar Merhaba,

Ekteki tabloda örenk olarak gösterdim. ilgili ayların Toplamı boş ise ilgili sutunların silinmesini istiyorum. Yardımcı olabilirseniz sevinirim. Şİmdiden Teşekkürler

 

[Ömer]

Merhaba,

Deneyiniz.

Sub sil()
   
    Dim c As Range, sut As Integer, i As Integer
   
    Application.ScreenUpdating = False
   
    Set c = [A:A].Find("GENEL TOPLAM", , xlValues, xlWhole)
    If Not c Is Nothing Then
        sut = Cells(c.Row, Columns.Count).End(xlToLeft).Column
        For i = sut To 1 Step -1
            If Cells(c.Row, i) = 0 Then
                Cells(c.Row, i).EntireColumn.Delete
            End If
        Next i
    End If
   
    Application.ScreenUpdating = True
   
End Sub

 

[bulentkars]

Ömer Bey,

Çok Teşekkür ederim. Tam istediğim olmuş..