B,E,I Harici sütunları makro ile silmek istiyorum.

[sahin1]

B,E,I Harici sütunları makro ile silmek istiyorum.Teşekkürler.

 

[Recep İpek]

Sub Sil()
Range("a:a").ClearContents
Range("c:d").ClearContents
Range("f:h").ClearContents
Range("j:k").ClearContents
End Sub

kodlarını kullanabilirsiniz.

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.
Sarı boyalı sütunlar siliniyor.

Sub sil()
Sheets("Sayfa1").Select
Range("A:A,C:D,F:H,J:K").ClearContents
MsgBox "SİLME İŞLEMİ YAPILDI..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[sahin1]

Öncelikle ilginizden ötürü teşekkür ederim.Benim yapmak istediğim A VE K sütunları arasında B,E,I sütunları harici sütunları komple silip Üç sütunu yan yana getirmek.Sütun sayıları çoğalabileceğinden eğer mümkünse bir döngüyle sütunlar B,E,I 'ye denk olmayanları sil gibi.

 

[Orion1]

Merhaba.
Aşağıdaki kodları dendeyiniz.

Sub sil()
Sheets("Sayfa1").Select
Range("A:A,C:D,F:H,J:K").EntireColumn.Delete
MsgBox "SİLME İŞLEMİ YAPILDI..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[sahin1]

Sayın Orion2 ve ripek teşşekür ederim.