makroyu baska sayfada çalıştırma

[zehfeysal]

Sub aktar59()
Dim dosya As String, sonsat1 As Long, sonsat2 As Long
Dim sh As Worksheet
Range("B2:T" & Rows.Count).UnMerge
Range("B2:T" & Rows.Count).Clear
Application.ScreenUpdating = False
sonsat1 = Cells(Rows.Count, "B").End(xlUp).Row + 1
dosya = Dir(ThisWorkbook.Path & "\Kaynak\*.xls")
Do While dosya <> ""
Application.DisplayAlerts = False
If Workbooks.Open(ThisWorkbook.Path & "\Kaynak\" & dosya).ReadOnly = True Then
Workbooks(dosya).Close True
End If
Application.DisplayAlerts = True
Set sh = Sheets("Sheet1")
sonsat2 = sh.Cells(Rows.Count, "B").End(xlUp).Row
ThisWorkbook.Activate
sh.Range("B1:T" & sonsat2).Copy
Range("B" & sonsat1).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Workbooks(dosya).Close False
sonsat1 = Cells(Rows.Count, "B").End(xlUp).Row + 1
Set sh = Nothing
dosya = Dir
Loop
Application.ScreenUpdating = True
MsgBox "Veriler aktarıldı." & vbLf & ""
End Sub

kolay gelsin makroyu bulundugu sayfada çalışıyorum. Farklı sayfaya buton atıyorum çalışmıyor bu makroyu çalıştıramıyorum nasıl bir düzenleme
yapabiliriz.
tevzii sayfasında veri al makrosu calışıyor Çalışma sayfasında aynı makroyu nasıl calıştırabilirim

 

[Korhan Ayhan]

Makroda sadece aşağıdaki satırda sayfa adı belirtilmiş.

Set sh = Sheets("Sheet1")

Tam olarak ne yapmaya çalıştığınızı açıklarsanız size daha iyi yardımcı olabiliriz.