Ekranı kapla ile Normal pencereye geçişte..

[özilhan]

Ekranı kapla (Windows penceresinde ki buton) ile Normal pencereye geçişte çalışma sayfasının kullandığım alanını Tam ekranda gördüğüm gibi Normal Ekranda da görebilirmiyiz. Tam ekrandan Normal pencereye geçişte çalışma sayfasının kullandığım alanını otomatik olarak orantılı küçültebilirmiyiz ?

 

[özilhan]

Arkadaşlar bu soruma cevap alamadım.. Bu mümkün mü?

 

[Metin Karaağaç]

Sub Makro1()
Application.WindowState = xlMaximized
End Sub

 

[Metin Karaağaç]

Üstteki makroyu Araçlar/yeni makro kaydet ile oluşturdum.
Siz de yapmak istediğinizi bu şekilde oluşturabilirsiniz.
Yani, yeni makro kaydet deyin ve yapmak istediklerinizi yapın,
sonra da kaydı durdur deyin ve isterseniz makronuza bir düğme oluşturup kullanın.

 

[özilhan]

Sub Makro1()
Application.WindowState = xlMaximized
End Sub

Teşekkür ederim. Bu kod sadece ekranı kaplıyor.
Benim tam istediğim Windows penceresinde ki ekranı kapla butonuna tıkladığımda sayfa görüntüsünün de aynı oranda zomlanarak otomatik olarak çalışmasıdır..

 

[Metin Karaağaç]

ikinci mesajımda sorunuzun cevabını vermiştim.

 

[özilhan]

Netteki ağırlıktan dolayı farketmemiştim.
Önerinizi deneyeceğim
Teşekkür ederim.

 

[mehmett]

Aşağıdaki iki makroyu kullanabilirsiniz.

Makro1'deki 80 değerini kendinize göre değiştirin.

[vb:1:2415b96eab]Sub Makro1()
Application.WindowState = xlNormal
ActiveWindow.Zoom = 80
End Sub[/vb:1:2415b96eab]

[vb:1:2415b96eab]Sub Makro2()
Application.WindowState = xlMaximized
ActiveWindow.Zoom = 100
End Sub[/vb:1:2415b96eab]

Örnek dosya ektedir.

 

[özilhan]

Sayın mehmett, Teşekkür ederim.
Verdiğiniz kodlar benim işimi görüyor.
Bu kodları Windowsun Ekranı kapla butonuna bastığımda otomatik olarak çalıştırabilirmiyiz. Aynı şekilde Windowsun Normal ekran butonuna bastığımızda otomatik olarak kodları çalıştırsın.

 

[karamurselli]

verilen kodları düğmeye atarsanız,
tek düğme ile istediğinizi yapmış olursunuz zaten.

 

[karamurselli]

özür dilerim,
düğme eklemeyi biliyormusunuz?
belki de bu yüzden sorununuz tam çözülmüyor

 

[özilhan]

Sayın karamurselli, Düğme eklemeyi ve makro atamayı biliyorum.
Benim tam olarak öğrenmek istediğim resimlerde kırmızı okla gösterdiğim butona bastığımda bu kodların devreye girmesi.
VBA kodlar bölümününde okuduğum şartlar gerçekleşirse kodlar otomatik olarak çalışsın. Yani tek tıklamayla bu gerçekleşirmi.

Bir de (ActiveWindow.Zoom = 80) burda ki "80" rakamı yerine Normal ekranda ekranın büyüklüğüne göre kod yazılabilir mi ?

 

[karamurselli]

Kusura bakmayın ben ne demek istediğinizi anlayamıyorum.
normal ekran nası bişey oluyor?
neden illa kırmızı çizgilerle belirttiğiniz düğmelere basmak istiyorsunuz?
"VBA kodlar bölümünde okuduğunuz şartlar" nedir?

İstediğiniz tek tıklama ise size önerilen çözümler çok uygun.
Hatta kodların başındaki ismi "Sub Auto_open()" olarak değiştirirseniz dosya açılır açılmaz kodlar çalışacaktır. Düğme eklemenizew de gerek yok.

 

[özilhan]

Siz kusura bakmayın Ben anlatamadım.
Resim olarak gönderiyorum.

 

[karamurselli]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.WindowState = xlMaximized
ActiveWindow.Zoom = 70
End Sub
Bu kodlarla dosya açıldıktan sonra herhangi bir hücreye çift tıkladığınızda istediğiniz oluyor. Makroyu o düğme ile ilişkilendiremedim bi türlü. Makro üstadlarından da bi ses çıkmöadı belki biri size yardımcı olur.
kodları sayfa1 e kopyalayıp yapıştırmanız gerekiyor.
kolay gelsin

 

[özilhan]

Sayın karamurselli, ilginiz için çok teşekkür ederim.

Abi neymiş bu excel böyle yaa!
Güzel bir soru..

 

[özilhan]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.WindowState = xlMaximized
ActiveWindow.Zoom = 70
End Sub
Bu kodlarla dosya açıldıktan sonra herhangi bir hücreye çift tıkladığınızda istediğiniz oluyor. Makroyu o düğme ile ilişkilendiremedim bi türlü. Makro üstadlarından da bi ses çıkmadı belki biri size yardımcı olur.
kodları sayfa1 e kopyalayıp yapıştırmanız gerekiyor.
kolay gelsin

Sayın karamurselli bu kodu göndermişti. Windowsun ana penceresindeki ekranı kapla butonuyla ilişkilendirememiştik.
Bu butonla ilişkilendirebilecek arkadaşlar varsa yardımcı olmalarını rica ederim..Teşekkürler..