ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   vba - using multipage (https://www.excelbanter.com/excel-programming/306403-vba-using-multipage.html)

ajliaks[_23_]

vba - using multipage
 
Hi all,

I am using a multipage.
When I choose page2 in multipage, I want to show the messag
"Activating Page 2".

I am trying something like this, but I get error:

Private sub Multipage1_Change
if multipage.page.item ("Page2) = true then
msgbox "Activating Page 2"
end if
End sub

Thanks in advance.
Aldo

--
Message posted from http://www.ExcelForum.com


papou[_7_]

vba - using multipage
 
Hello Alod
MsgBox "Activating page " & MultiPage1.Value + 1

HTH
Cordially
Pascal

"ajliaks " a écrit dans le message
de ...
Hi all,

I am using a multipage.
When I choose page2 in multipage, I want to show the message
"Activating Page 2".

I am trying something like this, but I get error:

Private sub Multipage1_Change
if multipage.page.item ("Page2) = true then
msgbox "Activating Page 2"
end if
End sub

Thanks in advance.
Aldo.


---
Message posted from http://www.ExcelForum.com/




Harald Staff

vba - using multipage
 

Private Sub MultiPage1_Change()
Me.Caption = "Activating " & _
MultiPage1.Pages(MultiPage1.Value).Caption
End Sub

HTH. Best wishes Harald


"ajliaks " skrev i melding
...
Hi all,

I am using a multipage.
When I choose page2 in multipage, I want to show the message
"Activating Page 2".

I am trying something like this, but I get error:

Private sub Multipage1_Change
if multipage.page.item ("Page2) = true then
msgbox "Activating Page 2"
end if
End sub

Thanks in advance.
Aldo.


---
Message posted from http://www.ExcelForum.com/




Michael Harrer

vba - using multipage
 
Hi Aldo,

try this:

Private Sub Multipage1_Change
'the .Value property of Multipage object start from 0 (=first page)
if Me.Multipage1.Value = 1 Then MsgBox "Activating Page 2"
End sub

Greetings,
Michael

"ajliaks " schrieb im Newsbeitrag
...
Hi all,

I am using a multipage.
When I choose page2 in multipage, I want to show the message
"Activating Page 2".

I am trying something like this, but I get error:

Private sub Multipage1_Change
if multipage.page.item ("Page2) = true then
msgbox "Activating Page 2"
end if
End sub

Thanks in advance.
Aldo.


---
Message posted from http://www.ExcelForum.com/





All times are GMT +1. The time now is 05:20 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com