sayfalardan sütun silme

[spiderman061]

Arkadaşlar okul ve veri sayfası dışındaki tüm sayfaların A sutununu silen bir döngü lazım. yardımcı olabilirseniz çok memnun olurum

 

[AdemCan]

Modul içerisine aşağıdaki kodları ekleyiniz.

Option Explicit
Sub sutun_sil()

Dim Sayfa As Worksheet
 
For Each Sayfa In Worksheets

If Sayfa.Name = "Okul" Or Sayfa.Name = "Veri" Then GoTo gec

Rem A sütunundaki değerleri siler
Rem Sayfa.Range("A:A").Clear

Rem A sütununu siler
Sayfa.Columns("A:A").Delete

gec:
Next
End Sub

 

[spiderman061]

teşekkür ediyorum

 

[AdemCan]

Rica ederim. İyi çalışmalar.