- Katılım
- 25 Ocak 2006
- Mesajlar
- 763
- Excel Vers. ve Dili
- 2019 tr
- Altın Üyelik Bitiş Tarihi
- 04-01-2024
aşağıda yazdığım kodu listeleme yaparken çok küçük çıktığından büyültmek için kullanıyorum. bugün farkettim ki bu makroyu kullandığım çalışma sayfalarında geri alma tuşu pasife geçiyor. sorun ne olabilir. kod şu şekilde
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice 20160530
On Error GoTo LZoom
Dim xZoom As Long
xZoom = 100
If Target.Validation.Type = xlValidateList Then xZoom = 150
LZoom:
ActiveWindow.Zoom = xZoom
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice 20160530
On Error GoTo LZoom
Dim xZoom As Long
xZoom = 100
If Target.Validation.Type = xlValidateList Then xZoom = 150
LZoom:
ActiveWindow.Zoom = xZoom
End Sub