Belirli Sutunlarin Excel Belgesi icinden silinmesi

[ikarayaka]

Merhaba,
Elimdeki bir excel tablosu icinde ihtiyacım olan sutun isimleri belli. Yapmak istediğim excel tablosu icindeki benim istemediğim sutunların otomatik olarak makro yardimi ile silinmesi ve sutunların genisliklerinin kendi kendine ben müdahale etmeden ayarlanması.Elinde bu şekilde ornek olan var ise paylasabilirse sevinirim.
Yardımlarınız icin simdiden tesekkür ederim.

 

[Seyit Tiken]

Bu kodları bir deneyin.

Sub Makro1()
Selection.EntireColumn.AutoFit
Selection.EntireColumn = Delete
End Sub

 

[ikarayaka]

Merhaba,

Bu kodu nasıl kullanacağım konusunda yardımcı olurmusunuz.
Makro eklemeyi biliyorum ama benim silmek istedigim sutunlar örneğin C-E-R-T olsun. Bunları gonderdiğiniz kod üzerinden nereye yazmam lazım.

 

[Seceren]

Bu vermiş olduğum kodları nasıl çalıştıracağım diyorsan, daha doğrusu makrolarla ilgili birşeyler öğrenmek istiyorsan altaki linki incele ve vermiş olduğum kodları uygula.

Sub Sil()
Range("C:C,E:E,R:R,T:T").Delete Shift:=xlToLeft
End Sub

http://www.excel.web.tr/showthread.php?t=4228

Not:Madem bu kadar isteklisin isakarakus'un makrolarla ilgili yazılarını okumayı devam ettir.

 

[Seyit Tiken]

Yukarıda sayın Seceren yanıtlamış. Aynı mantıkta olan kodların kısaltılmış şekli.

Sub Düğme1_Tıklat()
[C:C,E:E,H:H,K:K].Columns = Delete
End Sub