DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Public sonsayfa As Worksheet
Sub GeriDon()
sonsayfa.Select
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set sonsayfa = Sh
End Sub
çok teşekkür ederim sorunsuz çalışıyorMerhaba,
Boş bir modüle:
Kod:Public sonsayfa As Worksheet Sub GeriDon() sonsayfa.Select End Sub
ThisWorkbook kod bölümüne:
Kod:Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Set sonsayfa = Sh End Sub
kodlarını kopyalayıp deneyiniz...