Makro Etkinmi Değilmi Buna Göre Sayfa Yönlendirmesi.

[cqners]

Merhaba;

Çalışma Kitabındaki tüm sayfa sekmeleri gizli,

Sorum,
İlk açılış sırasında Makro Etkin ise Sayfa 1,
Makro Etkin Değil ise Sayfa 2, şeklinde yönlendirme yapılabilirmi ?


Saygılarımla;
C.SARIGÜL

 

[mehmett]

Aşağıdaki kodları ilgili yerlere kopyalayın. Ekte bir de örnek dosya gönderiyorum.

ThisWorkbook kod sayfasına;


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sayfa2").Select
End Sub


Herhangi bir Modül'ün içine;

Sub auto_open()
Sheets("Sayfa1").Select
End Sub

 

[cqners]

Merhaba; Mehmet Bey,

Yapmış olduğunuz uygulama Harika,

İlginiz İçin Teşekkürler.

Saygılarımla;
C.SARIGÜL

 

[cqners]

Sayın; Mehmett Bey,

Excel'i kayıt ederken sayfa2 ye yönlenmekte bunu önleyebilirmiyiz ?

 

[mehmett]

Dosyayı makroları etkinleştirmeden açarsanız, hangi sayfada kaydettiyseniz o sayfaya yönelir. Bu nedenle kaydederken (siz öyle istediğiniz için) Sayfa2'ye gidip öyle kayedecek şekilde makro yazdım. Başka türlü de mümkün olabilir, ben bilemiyorum.

 

[cqners]

Sayın Mehmett Bey;

Açıklamalı Örnek Dosyamı Ek te gönderiyorum. Kayıt sırasında MakroEtkine yönlenmesi lazım.

Konu hakkında yardımlarınızı rica ederim.

 

[cqners]

Makro çalışırken kayıt işleminde makronun aktif olmadığı sayfaya yönlenmekte.

Saygılarımla;
C.SARIGÜL

 

[Ali]

Thisworkbook'taki kodu

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("[COLOR=red]MakroEtkin[/COLOR]").Select
End Sub

olarak değiştirmeniz yeterlidir.

 

[cqners]

Dediğiniz işlemi denedim ve açılışta Makroyu devredışı bıraktığımda MakroEtkin sayfası gelmekte.

Sayfayı açetken Makroyu Etkin kılarsam > MakroEtkin Sayfası
Devredışı ise > MakroOFF Sayfası

Kayıt et düğmesine tıladığımda hangi sayfada ise kayt edip kapancak.
Yukarıdaki makroda hangi sayfada olursam olayım o sayfaya yönlenmektedir.

 

[Ali]

Makroları devre devredışı bıraktıktan sonra MakroOFF sayfasına yönlendiren makro nasıl çalışacak o kısmı anlamadım.

 

[cqners]

Yukarıdaki örnek dosyamı incelerseniz sevinirim.

Sn.Mehmet Bey'in yapmış olduğu dosya açılışta problem çıkarmadı. Makro etkin ise MakroEtkin Sayfasına, Makro devredışı ise MakroOFF sayfasına yönelmekte.

Problem Makro Etkin iken Çalışma sayfasını kayıt ettiğimde MakroEtkin Sayfasına yönelmesi gerekli.

İlginiz için Teşekkürler.

 

[cqners]

İşimi görebilecek bir koda rastladım formda,
Kod biraz dönüp duruyor kırpa bilme şansım varmı ?

Aşağıda belirtilen kodda amaç,

1 Kullanıcı açılış sırasında Makroyu etkinleştirmiyorsa UYARI sayfasına yönlendiriyor.
2 Kullanıcı Makroyu etkinleştirip çalıştırıyorsa Giris Sayfası aktif olmaktadır.
3 Kullanıcı programı kaparken dosya UYARI sayfasını aktif edip çıkmaktadır. (Açılışta makro aktif olmayacak ise ilk görülecek sayfa olduğundan)

Açılış Sırasında
-----------------
Sub auto_open()
Worksheets("Giris").Visible = True
Worksheets("Liste").Visible = False
Worksheets("UYARI").Visible = False
Sheets("Giris").Select
End Sub
--------------------------
--------------------------


Kapatma ve kayt etme Sırasında
------------------
Sub kapat()
Worksheets("UYARI").Visible = True
Worksheets("Giris").Visible = False
Worksheets("Liste").Visible = False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
----------------------------
----------------------------


Düğmelerden Sayfalar arası geçiş işlemi.
--------------------------------------
Sub Liste()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = True
Next
Sheets("Liste").Select
Worksheets("Giris").Visible = False
Worksheets("UYARI").Visible = False
End Sub
-----------------------------------
Sub UYARI()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = True
Next
Sheets("UYARI").Select
Worksheets("Giris").Visible = False
Worksheets("Liste").Visible = False
End Sub
------------------------------------
Sub Giris()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = True
Next
Sheets("Giris").Select
Worksheets("Liste").Visible = False
Worksheets("UYARI").Visible = False
End Sub

 

[cqners]

Merhaba Arkadaşlar;

Önerisi ve yönlendirme tavsiyesi olan ark. varmı ?

 

[Korhan Ayhan]

Selamlar,

Ekte konuyla ilgili örnek bir dosya hazırladım. Umarım faydası olur.

Not: Kodlar yabancı bir siteden alıntıdır. Ben sadece biraz türkçeleştirdim.

 

[Selçuk1]

Selamlar Sayın Cost_Control;

konuyla ilgili bende bir şey sormak istiyorum. çalışmanız gerçekten çok güzel, ancak ben bunun sadece makrolar etkinleştirilmediğinde çıkan uyarı ekranını kullanmak istiyorum. yani makrolar etkinse problem yok. zaten programın sadece istediğim çalışma sayfasından başlamasını sağlayan bir makro yazılı. yani ben tebrikler ekranını görmek istemiyorum, sadece uyarı ekranı çalışsın istiyorum. kodlarınızdan makro aktif kısmını silerek kayıt ettiğimde, makrolar pasifse uyarı ekranı çıkıyor, ancak aktifse (sanırım diğer makroyla çakıştığından) hata veriyor ve yine pasif uyarı ekranı geliyor. bunun sadece "makrolar pasifse" kısmını nasıl kullanabilirim? bir yerlerde hata mı yapıyorum?? bir de bu uyarı ekranını bir sheet le değilde userform ile yapabilir miyiz? iyi bayramlar diliyorum.

Saygılar..

 

[cqners]

Sn. COST_CONTROL

Amacına Uygun Çalışıyor. Dosyayı kayıt ederken problem çıkarmadı düzenlemeleri yaptıktan sonra problemle karşılaşırsam sizi rahatsız ederim.

İlginiz İçin Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Sn. cellchuq

Örnek dosyadaki kodların çalışması için en az 2 sayfa gereklidir. Örnek dosyayı makroları etkinleştirerek açıp kod sayfasına geçtikten sonra F8 tuşu ile "MAKROLAR PASİF" ve "MAKROLAR AKTİF" makrolarını adım adım çalıştırarak kodlardaki mantığı kavramaya çalışın. Bundan sonra sayfa isimlerini değiştirerek kendinize göre uyarlamak kalıyor.

Not: Sayfa isimlerini kod kısmından da düzeltmeyi unutmayın.

 

[Selçuk1]

Sayın Cost_Control;
ilginize teşekkürler, sorunu çözdüm ve istediğim gibi açılıp kapanmasını sağladım.. iyi geceler..

Saygılar...

 

[Selçuk1]

Sayın Cost_Control;

makroları düzenledim ve çalışıyor ancak şöyle bir sorum olacak. makroları etkinleştirdiğim takdirde ben çalışma kitabının "ANASAYFA" sekmesinde açılmasını istiyorum, bunun için MAKROLAR_AKTİF makrosuna aşağıdaki gibi bir satır ekledim ama faydası olmadı. ayrıca makroları etkinleştirdiğimde önce "MAKROLAR PASİF" sayfası görünüyor ve daha sonra bu sayfa gizlenerek ondan bir önceki sayfaya geçiyor, aynı şekilde kapanışta otomatik olarak "MAKROLAR PASİF" sayfası görünüyor ve kayıt etmek isteyip istemediğimi soruyor. bunu nasıl değiştirebiliriz?? yani makrolar etkinse kapanışta o sayfa hiç görünmeden benim anasayfam görünsün istiyorum..

Saygılar..
:???: :???:

ThisWorkbook.Sheets("ANASAYFA").Visible = xlSheetVisible

 

[Korhan Ayhan]

Selamlar,

Çalışmanızın bir örneğini eklermisiniz.