Kod yardımı ile sütun silme

[yst10]

Tekrar iyi akşamlar,
Bir satırki hücre değeri=0 veya boş olduğunda, o kolonu tamamen silmek mümkün mü. Mesela 65535 satır, c kolonu. değer 0 veya boş, c kolonu tamamen silinsin gibi...
Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodlardan size uygun olanı kullanabilirsiniz.

Sub SİL_1()
    'C65535 HÜCRESİ BOŞ İSE C SÜTUNUNU SİLER.
    If [C65535] = "" Then Columns("C").Delete
End Sub
 
Sub SİL_2()
    'C65535 HÜCRESİ BOŞ İSE C SÜTUNUNU İÇERİK OLARAK SİLER.
    If [C65535] = "" Then Columns("C").ClearContents
End Sub
 
Sub SİL_3()
    'C SÜTUNUNDA HİÇ DOLU HÜCRE YOKSA C SÜTUNUNU SİLER.
    If WorksheetFunction.CountA(Columns("C")) = 0 Then Columns("C").Delete
End Sub
 
Sub SİL_4()
    'C SÜTUNUNDA HİÇ DOLU HÜCRE YOKSA C SÜTUNUNU İÇERİK OLARAK SİLER.
    If WorksheetFunction.CountA(Columns("C")) = 0 Then Columns("C").ClearContents
End Sub

 

[yst10]

Korhan bey, iyi geceler.
Tekrar merhaba. Yine siz, yine çözüm.
Hakkınızı helal edin. Allaha emanet olun.
Sevgiler,
Yavuz Tümer