multipage

[heft]

Merhaba,
Userform1 üzerinde mutipage var ve üzerinde 3 page var.
Sorum şu
Eğer sayfa1 A1 hücresinde
1 yazıyorsa page1 visible=true olsun diğer 2 ve 3 false
2 yazıyorsa page2 visible=true olsun diğer 1 ve 3 false
3 yazıyorsa page3 visible=true olsun diğer 1 ve 2 false
nasıl bir kod yazmalıyım?

 

[Orion1]

Sanırım pagelerin visible özelliği yok.Yani görünmez olamıyorlar.Ama aktif edilebilirler.Value değerlerini true yaparsanız o page aktif olur.İlk page indexi sıfırdan başalar.:cool.

 

[heft]

kodunu nasıl yaymam gerekir?

 

[Orion1]

kodunu nasıl yaymam gerekir?

Dim deg As Integer
If Range("A1").Value > MultiPage1.Pages.Count Then
    deg = MultiPage1.Pages.Count - 1
    Else
    deg = Range("A1").Value - 1
End If
MultiPage1.Value = deg

 

[heft]

teşekkürler

 

[Orion1]

teşekkürler

Rica ederim.