Tek Makroyu yeni açılan sayfalara(sekmelere) de aynen uygulamak

[micyot]

Arkadaşlar selam, hergün için excel de ayrı bir sekme açıyorum o günün işlemlerini ayrı takip edebilmek için "örn. 28.01.2019-29.01.2019-30.01.2019 v.s. gibi sekmeler"

28.01.2019 sayfasında aşağıdaki makroyu oluşturdum çalışmasında sorun yok. fakat ertesi gün yeni sekme açtığımda aynı makroyu çalıştırmıyor sadece ilk uyguladığım sayfada çalıştırıyor bu makroyu mevcuttaki ve yeni açılacak tüm sayfalarda çalışması için hangi kodu eklemem gerek.
Şimdiden teşekkür ederim.


Sub sırala()
'
' sırala Makro
'
' Klavye Kısayolu: Ctrl+Shift+S
'
Range("A2:B16").Select
Range("B2").Activate
ActiveWorkbook.Worksheets("28.01.19").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("28.01.19").Sort.SortFields.Add2 Key:=Range("B2"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("28.01.19").Sort
.SetRange Range("A2:B16")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("D2:E16").Select
Range("E2").Activate
ActiveWorkbook.Worksheets("28.01.19").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("28.01.19").Sort.SortFields.Add2 Key:=Range("E2"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("28.01.19").Sort
.SetRange Range("D2:E16")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End Sub

 

[Korhan Ayhan]

Merhaba,

ActiveWorkbook.Worksheets("28.01.19")

Yerine aşağıdaki ifadeyi yazın.

ActiveSheet

 

[micyot]

dönüşünüz için çok teşekkürler oldu