görünüm ayarlama

[etmeha]

merhabalar arkadaşlar

excel dosyayı açtığımızda alttaki tüm sayfaların hepsinin %80 görünümle bile kapanmış olsa bile yeniden %100 görünüm ile açılmasını nasıl yapabiliriz.

 

[muygun]

Merhaba;
Boş bir modüle;

Sub Autpen()
Dim i As Long
Dim açılansayfa As Worksheet
Set açılansayfa = ActiveSheet
For i = 1 To ThisWorkbook.Sheets.Count
Sheets(i).Activate
ActiveWindow.Zoom = 100
Next
açılansayfa.Select
End Sub

Kodlarını yerleştirin.
Dosyayı kaydedip kapatın ve açın.
İyi çalışmalar.

 

[etmeha]

çok teşekkür ederim elinize sağlık