Sayfa Görünürlülüğü Büyümesi

[mustafa1205]

Örnek dosyamda açıklama yapmaya çalıştım "B" ve "G" sütununda bulunan herhangi bir hücreye tkladığımda yada giriş yaptığımda sayfa görünümünün %69 dan %100 e çıkmasını istiyorum.Hücreden çıkınca tekrar %69 a geri dönmesini istiyorum.Teşekkürler

 

[Husgvarna]

Örnek dosyamda açıklama yapmaya çalıştım "B" ve "G" sütununda bulunan herhangi bir hücreye tkladığımda yada giriş yaptığımda sayfa görünümünün %69 dan %100 e çıkmasını istiyorum.Hücreden çıkınca tekrar %69 a geri dönmesini istiyorum.Teşekkürler

Denemenize yarar mı ?

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then ActiveWindow.Zoom = 100
If Target.Column = 7 Then ActiveWindow.Zoom = 100
If Target.Column <> 2 And Target.Column <> 7 Then ActiveWindow.Zoom = 69

End Sub

 

[mustafa1205]

Elinize Sağlık çalışmanız güzel ancak benim işimi görmedi. 2 ve 7 nci sütunlardan herhangi bir hücreye giriş yaptığımda sayfa görünümü %69 dan %100 e çıkmasını istiyorum. Diğer sütunlardaki herhangi bir hücreye girdiğimde tekrar %69 görünüme geri dönmesini istiyorum

 

[Husgvarna]

Yukarıda değişen kodlar ..?

 

[mustafa1205]

Kod şu şekilde çalışıyor 2nci sütundaki hücrelere tıkladığımda 10 ar 10 ar büyüyor.7nci sütuna tıkladığımda 10 ar 10 ar küçülüyor.Malesef yapmak istediğim bu değil

 

[Husgvarna]

Kod şu şekilde çalışıyor 2nci sütundaki hücrelere tıkladığımda 10 ar 10 ar büyüyor.7nci sütuna tıkladığımda 10 ar 10 ar küçülüyor.Malesef yapmak istediğim bu değil

Son gönderdiğim kod lara bakınız.

 

[mustafa1205]

Elinize Sağlık tam istediğim gibi olmuş .Şuan sorunsuz çalışıyor.Çok teşekkür ediyorum.Hayırlı geceler diliyorum