Butonla, başka bir Userform'daki Page.ların açılması

[İsmail Küçükşengün]

Merhabalar;

Private Sub CommandButton6_Click()
UserForm3.Show
End Sub

Koduyla Form.3'ü açıyoruz.

Fakat Userform3 üzerinde, Multipage ve buna bağlı olarak Page.lar varsa;
ve biz butona tıkladığımızda, direk olarak Form.3 teki Page.4'ün (sayfa 4.ün) açılmasını istersek İstediğimiz page.'ın açılması için kodun nasıl olması gerekir.

Teşekkürlerimle.

 

[Haluk]

Private Sub CommandButton6_Click()
    UserForm3.Show
    UserForm3.MultiPage1.Value = 3
End Sub

 

[İsmail Küçükşengün]

Sayın Haluk;

İlginize teşekkür. Verdiğiniz örnekten anladığım kadarıyla ...Value=3 .deki
3 rakamı açılmasını istediğimiz sayfa sayısı. (yani multipajın 3. sayfası)

Bu kodu çalışmama uyguladım. Fakat butona tıkladığımda direk 3.sayfa
açılmıyor. Sayfa adlarını değiştirmiştim. Bundan kaynaklanabilir mi?

Selam ve saygılarımla.

 

[abdi]

Sayın kucuksengun,

Nesne tabanlı programlama dili olan VİSUAL BASİC ve VBA nın bir diğer özelliği ise kod ile istenilen nesneye direkt olarak gidilebilmesini sağlayabiliriz.

Örneklemek gerekirse siz diyelimki multipage nesnesinin 3. Sayfasına gitmek istiyorsunuz , burdaki Textbox 14 de işlem yapmak istiyorsunuz bunun kodlama olarak yaparsak

MultiPage1.Pages(2).Enabled = True
TextBox14.SetFocus

Böylece kod ile istediğimiz nesneyi seçtirmiş olduk ve aynı zamanda istediğimiz sayfaya gelmiş olduk.
Saygılar Sevgiler
Çalışmalarınızda Başarılar Dilerim.

 

[Rafet]

Sayfa secildiğinde aynı sayfanın MultiPage teki page acılsın

MultiPage Activ koduna aşağıdaki koldu yazdığımızda seçilen page adı gunluk olduğunda gunluk sayfası seciliyor.

If MultiPage1.SelectedItem.Name = "Gunluk" Then Sheets("Gunluk").Select

Peki seyfa acıldığında useform ve o useformdakı multı pagdeki Sayfanın ismi olan page secilmesi için nasıl bir kod yazmamız lazım .

Telekkürler.