DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [E11]) Is Nothing Then Exit Sub
Sheets("Sayfa2").Select
Application.DisplayFullScreen = True
End Sub