Hücre boş ise sutun silinsin

[zahitsen]

Arkadaşlar excel sayfamda ilk üç satırdan sonra eğer hücre boş ise sutun silinsin istiyorum şöyle bi kod var ama çalışmıyor neden çalışmadığını anlamış değilim

    For sat = 4 To 10            "4 satırdan itibaren"
    For i = 15 To 2 Step -1    "15 hücreden 2 ye kadar"
    If Cells(sat, i) = ""  Then    "boşsa"
    Column(i).Delete              "sutun silsin"
    End If
    Next
    Next
    End Sub

 

[antonio]

Arkadaşlar excel sayfamda ilk üç satırdan sonra eğer hücre boş ise sutun silinsin istiyorum şöyle bi kod var ama çalışmıyor neden çalışmadığını anlamış değilim

    For sat = 4 To 10            "4 satırdan itibaren"
    For i = 15 To 2 Step -1    "15 hücreden 2 ye kadar"
    If Cells(sat, i) = ""  Then    "boşsa"
    Column(i).Delete              "sutun silsin"
    End If
    Next
    Next
    End Sub

Sadece bir satırda hata var.

    Column(i).Delete              "sutun silsin"

satırını,

Cells(sat, i).EntireColumn.Delete

şeklinde değiştiriniz.

 

[antonio]

Bir hatırlatma daha:
Kod içinde çift tırnak işareti içinde bilgi notu kullanırsanız, kod çalışmaz. Bunun yerine bilgi notunu yazmaya başlamadan önce sadece tek tırnak (') kullanınız.
Cells(sat, i).EntireColumn.Delete "sutun silsin"
yerine
Cells(sat, i).EntireColumn.Delete 'sutun silsin
yazınız.

 

[zahitsen]

Bir hatırlatma daha:
Kod içinde çift tırnak işareti içinde bilgi notu kullanırsanız, kod çalışmaz. Bunun yerine bilgi notunu yazmaya başlamadan önce sadece tek tırnak (') kullanınız.
Cells(sat, i).EntireColumn.Delete "sutun silsin"
yerine
Cells(sat, i).EntireColumn.Delete 'sutun silsin
yazınız.

Teşekkürler.