Bir Makroyu Tüm çalışma Kitabında Uygulama

[MSCRoMuLuS]

Merhabalar;
Dönem dönem makro yazma ihtiyacım oluyor ama aslında makro yazma hakkında bilgim yok. İnternetten ve sizlerden yardım alarak birşeyler yapmaya çalışıyorum.
Amacım şu aşağıda yazdığım küçük kodun başına ve sonuna ne eklemeliyim ki çalışma kitabında bulunan tüm çalışma sayfalarının hepsine uygulasın.
Bunu kullandığım tüm makrolarada uygulamaya çalışacağım.

Sub Sütun sil()

    Columns("A:F").Select
    Selection.Delete Shift:=xlToLeft
End Sub

Teşekkür ederim.

 

[volki_112]

Merhabalar;
Dönem dönem makro yazma ihtiyacım oluyor ama aslında makro yazma hakkında bilgim yok. İnternetten ve sizlerden yardım alarak birşeyler yapmaya çalışıyorum.
Amacım şu aşağıda yazdığım küçük kodun başına ve sonuna ne eklemeliyim ki çalışma kitabında bulunan tüm çalışma sayfalarının hepsine uygulasın.
Bunu kullandığım tüm makrolarada uygulamaya çalışacağım.

Sub Sütun sil()

    Columns("A:F").Select
    Selection.Delete Shift:=xlToLeft
End Sub

Teşekkür ederim.

Deneyiniz

Sub Sütun sil()

    ActiveSheets.Columns("A:F").Select
    Selection.Delete Shift:=xlToLeft
End Sub

Aktif olan sayfadaki A F sutunlarini siler

 

[Muzaffer Ali]

Merhaba.
Tüm sayfaların A:F aralığını siler.

Sub Sütunsil()
    Dim Syf As Worksheet
    For Each Syf In ThisWorkbook.Worksheets
        Syf.Columns("A:F").Delete Shift:=xlToLeft
    Next
End Sub