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

[Rafet]

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.

 

[Levent Menteşoğlu]

Belki daha kısa bir yolda bulunabilir ama aklıma gelen ilk şeklini önereyim. Aşağıdaki kodu userformun kod sayfasına kopyalayın. Userform açıldığında aktif sayfanın ismini taşıyan page açılacaktır.

Private Sub UserForm_Initialize()
For a = 0 To MultiPage1.Pages.Count - 1
If MultiPage1.Pages(a).Caption = ActiveSheet.Name Then
MultiPage1.Value = a
Exit For
End If
Next

 

[Rafet]

Aslında düşündüğüm cevap bu değildi.

Sanki bana

Userform.Show
Userform.Multipage.Value = 1 'dermiş gibi value değilde name'i kullanarak olacak miş gibi gelmişti bana ama olmadı . Bu mantıkta bir çözüm ola biledeceğini düşünmüştüm.

Bu çözümde mantıklı geldi ama şimdilik çalışmadı 1. aklıma gelen Page lerin ID lerini değiştirmiş olmam. Bakalım deniyip bakacaz.

Teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki gibi sayfaların indexlerinide kullanabilirsiniz ama bu index değeri sayfa isminden bağımsızdır, sayfaların yerleşim sırasını ifade eder. Eğer sayfaların yerlerini değiştirmeyecekseniz bu şekilde de kullanabilirsiniz.

multipage1.value=activesheet.index-1