DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Sayfa1.Select
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, [a1:a100]) Is Nothing Then Exit Sub
If ActiveCell = IsNothing Then Exit Sub
Sheets(ActiveCell.Text).Select
End Sub
Sn ciran
Makro ile yapılmış bir örnekde ben ekledim
İnşallah işinize yarar
Saygılar