Makro ile sütun silme

Katılım
18 Mart 2007
Mesajlar
171
Excel Vers. ve Dili
OFFICE 2016
Altın Üyelik Bitiş Tarihi
02-03-2024
Ç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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,738
Excel Vers. ve Dili
Excel 2019 Türkçe
Sondan başa doğru silmeyi deneyin.
 

Emir Hüseyin Çoban

Destek Ekibi
Destek Ekibi
Katılım
11 Ağustos 2008
Mesajlar
5,892
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
Alternatif olarak.

Kod:
Range("B:B,D:D,F:F").Delete
 
Katılım
18 Mart 2007
Mesajlar
171
Excel Vers. ve Dili
OFFICE 2016
Altın Üyelik Bitiş Tarihi
02-03-2024
Çok teşekkür ederim. Elinize salğık. İki alternatifte çok güzel çalıştı fakat sanki

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

İhsan Tank

Misafir
alternatif Olsun
Kod:
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.
 
Katılım
5 Mayıs 2011
Mesajlar
60
Excel Vers. ve Dili
2007 türkçe
Peki hücrenin içindekini silerken ona bağlı hücreleride aynı anda nasıl silinir
 
Katılım
5 Mayıs 2011
Mesajlar
60
Excel Vers. ve Dili
2007 türkçe
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
 
Üst