Son dolu sütunu silme

[hakki83]

İyi günler hocalarımız

Örnek dosyadaki RAPOR1 sayfasındaki Komut buton2 ile ANASAYFAdaki son dolu sütunu silmek (Clear) istiyorum.

Fakat önemli husus içinde veri olan son dolu sütunun yeri sabit değildir, değişkendir.

Gerekli kodu rica ederim.

 

[bmutlu966]

Deneyin.

Sub sil()
set s=Sheets("ANASAYFA")
sondolukolon =s.Cells(1, Columns.Count).End(xlToLeft).Column
s.Columns(sondolukolon).Clear

End Sub

 

[hakki83]

Bmutlu966 hocam teşekkür ederim. Emeğinize sağlık.

 

[hakki83]

Bmutlu966 hocam merhaba
Konu tazeyken hemen ekleyeyim.

Tamamen benim hatam, acele ettiğim için hem soruda hem de örnek dosyada bir şey atlamışım.
Silinmesi gereken son dolu sütunun başlığı, yeni örnek dosyadaki gibi SONUÇLAR olması gerekiyor.

Yani başlığı SONUÇLAR olan son sütun silinecek, silindikten sonraki kalan sütunlar silinmeyecek.

Yine SONUÇLAR başlıklı son sütunun yeri değişkendir. Sabit değildir. O durum yine aynıdır

Teşekkürler.

 

[ÖmerFaruk]

Nasıl sileceğinizi bilemedim. o sebeple koddaki açıklamaları okuyun lütfen.

Sub Bul_Kopyala_Yapıştır()
    Dim Bul As Range
    Set Bul = Worksheets("ANASAYFA").Rows(1).Find(what:="SONUÇLAR", after:=Cells(1, 1), searchdirection:=xlPrevious)
    'Kolonu komple silecekseniz aşağıki satırın başındaki tırnağı kaldırın
    'Columns(Bul.Column).Delete
    'Kolondaki içeriği silecekseniz aşağıki satırın başındaki tırnağı kaldırın
    'Columns(Bul.Column).ClearContents
End Sub

 

[hakki83]

Ömer Faruk hocam bir şey olmadı ama acaba ben mi yapamadım.

 

[ÖmerFaruk]

Mesajı okumadınız sanırım
Nasıl sileceğinizi bilemedim. o sebeple koddaki açıklamaları okuyun lütfen.

 

[hakki83]

Değerli hocam bir yerde hata yapıyorum, ama nerede yaptığımı bulamadım.
Tek tırnaklardan biri de kalkık vaziyette. Fakat SONUÇLAR sütunu silinmiyor.

 

[ÖmerFaruk]

Kodları Rapor sayfasındaki butona basarak çalıştırıyorsunu sanırım.
Bu durumda kodlar Rapor sayfasındaki sütunu silmeye çalışacakltır.

Aşağıda gerekli ilaveyi yaptım.

Private Sub CommandButton2_Click()
    Dim Bul As Range
    Set Bul = Worksheets("ANASAYFA").Rows(1).Find(what:="SONUÇLAR", after:=Cells(1, 1), searchdirection:=xlPrevious)
    'Kolonu komple silecekseniz aşağıki satırın başındaki tırnağı kaldırın
    'Worksheets("ANASAYFA").Columns(Bul.Column).Delete
    'Kolondaki içeriği silecekseniz aşağıki satırın başındaki tırnağı kaldırın
    Worksheets("ANASAYFA").Columns(Bul.Column).ClearContents
End Sub

 

[hakki83]

Sağ olunuz hocam. Emeğinize sağlık.