makroyu bütün sayfalarda uygulamak

[mehmet2285]

slm, yardıma biraz ihtiyacım var
şöyle ki ;
benim çok sayfalı bir excel dosyam var ,bir makro kaydettim ve tek tuşla nasıl bütün sayfalara uygulayacağımı bilemiyorum ,
örnegin bütün A2 hücrelerine tek tuşla aynı şeyi yazmak istiyorum.

örnek makro bu:

Sub Makro1()
'
' Makro1 Makro
' Makro mehmet tarafından 07.08.2010 tarihinde kaydedildi.
'

'
Range("K20").Select
ActiveCell.FormulaR1C1 = "Prof. Dr. Salih YILDIRIM"
Range("K21").Select
ActiveCell.FormulaR1C1 = "Yön.Kur.Üyesi"
Range("K20:L21").Select
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

 

[Orion1]

slm, yardıma biraz ihtiyacım var
şöyle ki ;
benim çok sayfalı bir excel dosyam var ,bir makro kaydettim ve tek tuşla nasıl bütün sayfalara uygulayacağımı bilemiyorum ,
örnegin bütün A2 hücrelerine tek tuşla aynı şeyi yazmak istiyorum.

örnek makro bu:

Sub Makro1()
dim sh as worksheet
'
' Makro1 Makro
' Makro mehmet tarafından 07.08.2010 tarihinde kaydedildi.
'

'
for each sh in worksheets
    sh.select
    Range("K20").Select
    ActiveCell.FormulaR1C1 = "Prof. Dr. Salih YILDIRIM"
    Range("K21").Select
    ActiveCell.FormulaR1C1 = "Yön.Kur.Üyesi"
    Range("K20:L21").Select
    Selection.Font.Bold = True
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
next
End Sub

 

[mehmet2285]

Sayın Evren Gizlen bey çok çok tşk ederim yardımlarınız için.iyi çalışmalar diliyorum...

 

[Orion1]

Sayın Evren Gizlen bey çok çok tşk ederim yardımlarınız için.iyi çalışmalar diliyorum...

Rica ederim.
İyi çalışmalar.