Sayfa değiştirme menüsü oluşturmak istiyorum

[KARTAL06]

Forumdan aldığım yardımlarla bir sipariş ve stok takip programı olşturdum. Emeğini ve bilgisini esirgemeyen hekese birkez daha teşekkür ederim. Bu programa görsellik ve kolaylık kazandırmak için sayfa sekmelerini bir menüye bağlayıp ilgili butona basınca o sayfaya geçmeyi istiyorum. Mümkünse bu menü her sayfada görünsün. Dün Tüm aramalarıma rağmen bu uygulamanın nasıl yapıldığını bulamadım. Benzeri menüler var ama nasıl yapılır? Bilimiyorum Yadımlarınızı bekliyorum.

 

[uzmanamele]

merhaba
ek dosya işinizi görür mü?

 

[KARTAL06]

Nasıl?

Anlayamadım?

 

[uzmanamele]

Anlayamadım?

merhaba
neyi anlayamadınız?

 

[KARTAL06]

Tamam istediğim bu

kusura bakmayın ekteki dosya ilk anda görünmedi.
Kendi dosyama Nasıl uygulayabilirim?

 

[uzmanamele]

merhaba
ek dosyadaki userform ve modülü kendi dosyanıza kopyalayınız.

 

[KARTAL06]

Eksik birşeyler yapıyorum herhade

Tamam örnek tam istediğim gibi. Ama kopyalamayı eksik yapıyorum herhalde.
bendeki Sayfa adları değişik acaba kodda sayfa adları ile alakalı birşeyler yapacakmıyız.

 

[uzmanamele]

merhaba
dosyanızı ekleyiniz, düzenleyelim. (özel bilgiler içeriyorsa içindekileri silerek)

 

[gezgin-49]

sayın Kartal06 sizin dosyanızda eksik olan kısım nedir?. Userformu mu açamıyorsunuz.? yoksa başka bir şey mi?

 

[KARTAL06]

Dosyada özel bilgiler var

Hemde ögrenmek için siz bana bir iyilik yapıp nasıl bir yol izleyeceğimi kısaca anlatırsanız örnek dosyadan faydalanarak hem kendim üstesinden gelmiş olurum hemde konu başkalrınada faydalı olur. Ama en son çare dosyayı gönderirim. Umarım sizi gereksiz meşgul etmiyorum.

 

[gezgin-49]

dosyanızın küçük bir kısmını gönderirseniz daha iyi olur,

 

[KARTAL06]

User fomu örnekte açamdım

sayın Kartal06 sizin dosyanızda eksik olan kısım nedir?. Userformu mu açamıyorsunuz.? yoksa başka bir şey mi?

daha önce hiç user form kullanmadım.
Ama direk kopyaladım ve makro atadan modülün içindeki koda bağladım ama dosyamda içinde birsürü makro var. userforma tıklayınca sayfa menüsü gelmiyor. Hata veriyor.

 

[gezgin-49]

dosyanız içindeki düğmeye modüle1 içine yazdığınız

Sub sayfa_seçimi()
UserForm1.Show
End Sub

makrosunu atadınız mı

 

[KARTAL06]

dosyanız içindeki düğmeye modüle1 içine yazdığınız

Sub sayfa_seçimi()
UserForm1.Show
End Sub

makrosunu atadınız mı

ben herhalde userformu kopyalayamadım.

 

[gezgin-49]

aslında userform olmadan da yapılabilir. sizin çalışmanızda toplam kaç sayfanız var eğer çok değilse başka yoldan da yapılabilir.

 

[KARTAL06]

21 sayfa var

 

[gezgin-49]

21 sayfa var

sayfa sayısı çokmuş 7-8 gibi olsaydı ekteki dosya işinize yarardı. ama tabi UZMANAMELE üstadımın bu konularda eline bile su dökemeyiz.

 

[KARTAL06]

userformun kod kısmına
Private Sub ListBox1_Click()
On Error Resume Next
Application.DisplayAlerts = False
Sheets(Me.ListBox1.Text).Select
Application.DisplayAlerts = True
Unload Me
End Sub
Private Sub UserForm_Activate()
For s = 1 To Sheets.Count
Me.ListBox1.AddItem Sheets(s).Name
Next
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Çarpıdan Kapatamazsınız!", vbCritical, "UYARI"
Cancel = True
End If
End Sub
bu kodu kopyaladım

"ÖZET" sayfamın kod kısmına

Sub sayfa_seçimi()
UserForm1.Show
End Sub

bu kodu kopyaladım

eksik olan nedir?

 

[uzmanamele]

merhaba
bu kodu modüle kopyalayın

Sub sayfa_seçimi()
UserForm1.Show
End Sub

sayfanıza herhangibir şekil yerleştirin (çiçek, böcek bile olabilir),
sayfa_seçimi makrosunu bu şekile ayatın.

 

[gezgin-49]

eksik olan birşey gözükmüyor,