Sub makro1() altında Sub makro2() değerlerine ulaşmak

[ouzan83]

Sub makro1()
.........
.........
makro2(.......)
*****burada kayitSheet e nasıl ulaşılabilir.


end sub
Sub makro2()
........
........
Set kayitSheet= .....

end sub

 

[veyselemre]

Makro1 in hata vermemesi için önce makro 2 nin çalıştırılması gerekir.

Dim kayitSheet As Object
Sub makro1()
    MsgBox kayitSheet.Name
End Sub

Sub makro2()
    Set kayitSheet = Sheets("Sayfa2")
End Sub

 

[hamitcan]

Umarım doğru anlamışımdır.

Sub cagirmakro2()
makro2
End Sub
Sub makro2()
MsgBox "merhaba"
End Sub