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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.