Makro nun tüm sekmelerde çalışması

[sebastianmbl]

Merhaba Arkadaşlar,

Aşağıda ki makroyu butona bağladım

Butona her tıkladığımda makroda belirtilen hücre aralıklarını çalışma kitabında bulunan tüm sekmeler de çalıştırması sağlanabilir mi?

Not: Makronun amacı Kopyala- Yapıştır(Değerler), belirtilen hücre aralıklarını formüllerden arındırıyorum.

Amacım çalışma kitabında bulunan tüm sekmeler de aynı anda tek bir buton ile işlemi yapabilmek.

Sub Kopyala()
Range("B1:B10").Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("E1:E10").Copy
Range("E1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("G1:G10").Copy
Range("G1").Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

Teşekkürler

 

[Orion1]

Buyurun.

Sub Kopyala()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Select
    Range("B1:B10").Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Range("C1:C10").Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Range("D110").Copy
    Range("D1").Select
    Selection.PasteSpecial Paste:=xlPasteValues
Next
Application.CutCopyMode = False
End Sub

 

[sebastianmbl]

Hocam teşekkürler

Süper!!

 

[Orion1]

Hocam teşekkürler

Süper!!

Rica ederim.
İyi çalışmalar.