Macro ile Excel sayfasını Sayfa Düzeni haline getirme

[cocoa35]

Arkadaşlar merhaba, Hazırlamış olduğum programda üst menüleri kapattığım için bir sayfada Macro ile bir buton vasıtasıyla Normal excel sayfasının Sayfa Düzeni haline gelmesini istiyorum , eğer istenirse yeniden normal excel sayfası haline dönüşsün, birde mümkünse sayfa sonu izleme bölümü'de sırf o sayfada açılsın. Bu şekilde bir macro oluşturulma imkanı varmı? Teşekkürler.

 

[ÖmerFaruk]

Yapmak istediğiniz bu işlemleri, MAKRO KAYDET metoduyla kaydedip sonucu kendinize göre uyrlayabilirsiniz.

 

[Seyit Tiken]

Bu şekilde ilgili sayfanın kod bölümüne yapıştırarak deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
ActiveWindow.View = 3
End Sub

Çift Tıklama.

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

Sub sayfaduzeni()
If Sayfa1.Shapes("Button 1").TextFrame.Characters.Text = "Normal" Then
ActiveWindow.View = 3
Sayfa1.Shapes("Button 1").TextFrame.Characters.Text = "Sayfa Düzeni"
Else
Sayfa1.Shapes("Button 1").TextFrame.Characters.Text = "Normal"
ActiveWindow.View = 1
End If
End Sub

 

[cocoa35]

Sn Seyit Tiken gayet güzel çalışıyor peki " Sayfa düzeni " haline getirdikten sonra eski haline dönmek için ne yapmalı?

 

[cocoa35]

Pardon son gönderdiğiniz macroları görmemiştim , son gönderdiklerinizi sayfada " Button 1" adlı düğme yapıp gönderdiğiniz macroları modüle kopyalayıp Button 1 düğmesine bu modülü atadım ancak hata verdi.!

 

[Seyit Tiken]

Örnek dosya gönderiyorum, sayfa no ve buton no'yu kontrol ediniz.

 

[cocoa35]

Sn Seyit bey örnek dosyayı uyguladım gayet güzel olmuş çok teşekkür ederim.

 

[Seyit Tiken]

Buda düğme kullanmadan, sadece hücreye Çift Tıklayarak gerçekleştirebilirsiniz.