DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If [C3] > 0 Then
Target.Offset(1).Select
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$3" Then
ActiveWindow.Zoom = 145
SendKeys "%{down}"
Else
ActiveWindow.Zoom = 100
End If
End Sub