Makro atanmış butonu başka sayfaya taşımak

[farisakboga]

eklediğim dosyada sayfa2'deki "karıştır" butonunu sayfa1'e taşıdım ama buton bir türlü çalışmadı. kısıtlı kodlama bilgimle uğraştım yapamadım. yardımcı olabilir misiniz?

 

[Korhan Ayhan]

KURA kodlarının başına sayfa adını eklerseniz makronuz çalışır.

Sub Kura()
    With Sheets("Sayfa2")
       .Range("C13").Sort Key1:=.Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
       DataOption1:=xlSortNormal
    End With
End Sub

 

[farisakboga]

KURA kodlarının başına sayfa adını eklerseniz makronuz çalışır.

Sub Kura()
    With Sheets("Sayfa2")
       .Range("C13").Sort Key1:=.Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
       DataOption1:=xlSortNormal
    End With
End Sub

Çok teşekkür ederim.