makroyu tüm sayfaya uygulamak

[kadirdiloglu]

Merhaba,

Aşağıdaki makromu çalışma sayfasının içindeki tüm sheetlere uygulamak istiyorum ama beceremedim..Bu makroyu aynı çalışma sayfası içinde 30 sheete nasıl uygularım.

Sub Makro5()
'
' Makro5 Makro
'

'
    Range("P4:T4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("P4:T612").Select
    Selection.ClearContents
    Range("P4").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-8]="""","""",RC[-8]*24)"
    Range("P4").Select
    Selection.AutoFill Destination:=Range("P4:P587")
    Range("P4:P587").Select
    Range("T4").Select
End Sub

 

[asi_kral]

Merhaba
Makro kodunun ne iş yaptığını bilmiyorum. Tüm çalışma kitabında kullanmak için bu kodu kod bölümünde bulunan Thisworkbook kısmına kopyalayın ve deneyin.

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call sayfalar
End Sub

 

[Kardiyak]

Sub Makro5()
[COLOR="Red"]Application.ScreenUpdating = 0 [/COLOR][COLOR="SeaGreen"]'sayfa geçişleri gösterilmez[/COLOR]
[COLOR="Red"]For i = 1 To Sheets.Count [/COLOR][COLOR="SeaGreen"]'1.sayfadan toplam sayfa adedine kadar döngü.[/COLOR]
[COLOR="Red"]If Not Sheets(i).Visible Then GoTo atla[/COLOR] [COLOR="SeaGreen"]'eğer sayfa gizli ise bu sayfa döngüye dahil olmasın[/COLOR]
[COLOR="Red"]Sheets(i).Select[/COLOR] [COLOR="SeaGreen"]'döngüdeki sıradaki sayfayı seç[/COLOR]
[COLOR="Red"]If ActiveSheet.Name = "veri1" or ActiveSheet.Name = "veri2" Then GoTo atla[/COLOR] [COLOR="SeaGreen"]'eğer sayfa adı veri1 yada veri2 ise bu sayfa döngüye dahil olmasın[/COLOR]

    Range("P4:T4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("P4:T612").ClearContents
    Range("P4").FormulaR1C1 = "=IF(RC[-8]="""","""",RC[-8]*24)"
    Range("P4").Select
    Selection.AutoFill Destination:=Range("P4:P587")

[COLOR="Red"]atla: [/COLOR][COLOR="SeaGreen"]'döngü sonuna atlanacak yerimi[/COLOR]
[COLOR="Red"]Next i[/COLOR] [COLOR="SeaGreen"]'döngü sonu sıradakideğer[/COLOR]
[COLOR="Red"]Application.ScreenUpdating = 1[/COLOR] [COLOR="SeaGreen"]'sayfa geçişleri gösterilsin[/COLOR]
End Sub

 

[kadirdiloglu]

işe yaramadı.