otomatik sütun sildirme

[ebruulker]

Merhaba,

Ekteki örnekteki gibi bir dosyada AA verisini içeren sütunları sildirmek istiyorum. Yardımcı olurmusunuz.Teşekkürler.

 

[hamitcan]

Sub Makro1()
For i = 500 To 1 Step -1
If WorksheetFunction.CountIf(Columns(i), "AA") <> 0 Then
    Columns(i).Delete
End If
Next
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Sub sutsil()
Dim sut As Integer
    For sut = Cells(7, 256).End(xlToLeft).Column To 1 Step -1
        If Cells(7, sut) = "AA" Then
            Cells(7, sut).EntireColumn.Delete
        End If
    Next
End Sub