Makro ile sütun silme

[emsey]

Çalışma kitabında bazı sütunları tek seferde silmem gerekiyor. Bununla ilgili aşağıdaki kodları kullanıyorum ama bu kodlarda örneğin 4 ve 5 sütunlarını sil dediğimde bu silme işlemlerini sırayla yaptığı için 4 ve 5 silinse bile 4 ve 5 'ten sonra 5 ... 6... ve tüm sütunlar sola doğru kaydığı için işlemin devamında yanlış sütunlar siliniyor. Ben tek seferde istediğim sütünları silmek istiyorum. Bu hususta yardımcı olabilirseniz çok memnun olurum. İlginize şimdiden teşekkür ederim.

Columns(3).Delete
Columns(4).Delete
Columns(5).Delete
Columns(6).Delete
Columns(9).Delete
Columns(13).Delete
Columns(16).Delete
Columns(20).Delete

 

[hamitcan]

Sondan başa doğru silmeyi deneyin.

 

[Emir Hüseyin Çoban]

Alternatif olarak.

Range("B:B,D:D,F:F").Delete

 

[emsey]

Çok teşekkür ederim. Elinize salğık. İki alternatifte çok güzel çalıştı fakat sanki

Range("B:B,D,F:F").Delete kodu daha hızlı çözümmüş gibi geldi.

 

[İhsan Tank]

alternatif Olsun

Sub sütun_sil()
hiho = InputBox("Sütun'u Harf Olarak Giriniz", "Sütun Silme")
Columns("" & hiho).Delete
End Sub

Inputbox'a gireceğiniz harf Sütununu Siler.

 

[kankaemre]

Peki hücrenin içindekini silerken ona bağlı hücreleride aynı anda nasıl silinir

 

[İhsan Tank]

Peki hücrenin içindekini silerken ona bağlı hücreleride aynı anda nasıl silinir

Syn : kankaemre sorularınızı tek bir başlık altında sorunuz her tarafa aynı soruyu sorup durmayın. bir daha uyarmam

 

[kankaemre]

anladım hayır konuları dolaşarak bilgi almaya çalışıyorum kafamada takılnca sorum bir daha kinde tek başlıkta toplarım kusura bakmayın