Başlıkları Olmayan Sütunların Silinmesi

[hakki83]

Merhaba Hocalarımız

Örnek dosyada bazı sütunların başlıkları yoktur.
Sütun başlıkları olmayan (D, I, L gibi) bu sütunların, Delete kodu ile silinmesi gerekmektedir.
Eğer sütun sınırı belirtilmesi gerekiyorsa B1:AP10000' dir.

Alternatif kodlar olursa da iyi olur.

Teşekkürler.

 

[Necdet]

Merhaba,

Public Sub SutunSil()

Dim rng As Range
Dim i   As Integer

Set rng = Sayfa1.UsedRange

Application.ScreenUpdating = False

For i = rng.Columns.Count To 1 Step -1
    If rng.Cells(1, i) = "" Then rng.Columns(i).Delete
Next i

Application.ScreenUpdating = True

End Sub

 

[alicimri]

Deneyin.

Sub sil()
Range(Rows(1).SpecialCells(xlCellTypeBlanks).Address).EntireColumn.Delete
End Sub

 

[alicimri]

#3 deki kod, araya bir boşluk konularak BZ sütununa kadar hazırlanan tabloda sorunsuz çalışıyor. Daha geniş tabloda hataya düşüyor.

 

[Necdet]

Deneyin.

Sub sil()
Range(Rows(1).SpecialCells(xlCellTypeBlanks).Address).EntireColumn.Delete
End Sub

    Rows("1:1").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete

Aklıma gelmedi iyi mi?

 

[hakki83]

Sağ olunuz hocalarımız

 

[hakki83]

Deneyin.

Sub sil()
Range(Rows(1).SpecialCells(xlCellTypeBlanks).Address).EntireColumn.Delete
End Sub

AliCimri hocamız merhaba, aynısının SATIR için olanını da yazar mısınız,
Rows'u Columns,
Column'u Row yaptım ama emin olamadım

 

[Necdet]

Makro kaydet ile aşağıdaki kodlara çok rahatlıkla erişebilirdiniz.

1. Sütunu Seç
2. F5
3. Özel
4. Boşluklar
5. Tamam
6. Sağ Klik
7. Sil
8. Tüm Satır
9. Tamam

    Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[Necdet]

Columns("A:A") yerine
Columns(1)
Yada
Range("A:A") diyebilirsiniz.