UserForm üzerinden sayfa yönetme

[contct]

Değerli üstadlar konuyu doğru yere açıp açmadığımı bilmiyorum ama acemi olduğum için bu kısma açıyorum affınıza sığınarak.
Dostlar USERFORM la ilgili sorunumu kısaca ekte örnek dosyada açıklamaya çalıştım.yardımcı olursanız.şükranlarımı sunarım.

 

[İhsan Tank]

Değerli üstadlar konuyu doğru yere açıp açmadığımı bilmiyorum ama acemi olduğum için bu kısma açıyorum affınıza sığınarak.
Dostlar USERFORM la ilgili sorunumu kısaca ekte örnek dosyada açıklamaya çalıştım.yardımcı olursanız.şükranlarımı sunarım.

Merhaba
Userformun kod bölümüne kopyalayın ve deneyin.

Private Sub CommandButton1_Click()
Sheets("01").Select
End Sub
Private Sub CommandButton2_Click()
Sheets("02").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("03").Select
End Sub
Private Sub CommandButton4_Click()
Sheets("04").Select
End Sub
Private Sub CommandButton5_Click()
Sheets("05").Select
End Sub
Private Sub CommandButton6_Click()
Sheets("06").Select
End Sub
Private Sub CommandButton7_Click()
ts = Format(Date, "dd")
Sheets(ts).Select
End Sub

 

[contct]

Hocam dediğinizi yapmaya çalıştım ama olmadı benmi hata yaptım acaba
hatanın resmini ekliyorum

 

[İhsan Tank]

Hocam dediğinizi yapmaya çalıştım ama olmadı benmi hata yaptım acaba
hatanın resmini ekliyorum

Merhaba

Private Sub CommandButton1_Click()

Bu başlıktan iki tane var. Userformun kod bölümünde bulunan tüm kodları silin ve benim verdiğim kodları ekleyin.

 

[contct]

Hocam çok tşk.ler mantığı anladım gibi devamını yapabilirim sanırım tşk.ler . Son olarak exeli ilk açtığımda direkt bu formun açılmasını nasıl sağlayabilirim.

 

[Skorpiyon]

Sayın cnotct,

İhsan Hocamın affına sığınarak, bu saatte müsait olduğum için yazayım dedim. VBA'daki ThisWorkbook'a aşağıdaki kodu yazarak deneyiniz.

Private Sub Workbook_Open()
UserForm1.Show
End Sub

 

[contct]

Sayın cnotct,

İhsan Hocamın affına sığınarak, bu saatte müsait olduğum için yazayım dedim. VBA'daki ThisWorkbook'a aşağıdaki kodu yazarak deneyiniz.

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Bu saatte yardımcı olan siz ustalara sonsuz tşk.ler

 

[Skorpiyon]

Eh, Siz de gece pek uyuyanlardan değilsiniz sanırım

 

[İhsan Tank]

Hocam çok tşk.ler mantığı anladım gibi devamını yapabilirim sanırım tşk.ler . Son olarak exeli ilk açtığımda direkt bu formun açılmasını nasıl sağlayabilirim.

Rica ederim
:keyif:

Sayın cnotct,

İhsan Hocamın affına sığınarak, bu saatte müsait olduğum için yazayım dedim. VBA'daki ThisWorkbook'a aşağıdaki kodu yazarak deneyiniz.

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Şaban hocam çok teşekkür ederim. Allah Razı Olsun

 

[contct]

Eh, Siz de gece pek uyuyanlardan değilsiniz sanırım

Uyku mu o nası bişi iş güçten uyumaya vakit mi var.Tşk.ler tekrar