Multipage Problems

A

Aksel Børve

I have a Userform with 4 Multipages, first Multpagpage belong to sheet1,
second Multipage to Sheet2, and so on. Is there a possibility to get e.g.
Multipage3 on Top when I open the Userform from Sheet3? and
Multipage4 on Top when I open the Userform from Sheet4?
I open the userform from all 4 sheets with buttons:

Private Sub CommandButton5_Click()
Userform6.Show
End Sub

I have asked this question before, and thanks for the reply. But am not able
to make it work

I have no code in the UserForm or the MultiPage. But a macro that run when I
push the "OK" button on the UserForm. This code runs:


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("MPA").Select
Sheets("MPA").Unprotect
'Decide if a module is changed
If MpaSuct1 = True Then GoTo Line1 Else GoTo Line2
Line1:
Sheets("MPA").Range("G25").Copy
Sheets("MPA").Range("C29").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPA").Range("B23").Copy
Sheets("MPA").Range("C25").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPA").Range("C25").Select
Selection.Interior.ColorIndex = 3
MpaSuct1 = False
'Decide if a module is changed
Line2:
If MpaSuct2 = True Then GoTo Line3 Else GoTo Line4
Line3:
Sheets("MPA").Range("G26").Copy
Sheets("MPA").Range("C30").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPA").Range("B23").Copy
Sheets("MPA").Range("C26").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPA").Range("C26").Select
Selection.Interior.ColorIndex = 3
MpaSuct2 = False
'Decide if a module is changed
Line4:
If MpaSuct3 = True Then GoTo Line5 Else GoTo Line6
Line5:
Sheets("MPA").Range("G27").Copy
Sheets("MPA").Range("C31").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPA").Range("B23").Copy
Sheets("MPA").Range("C27").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPA").Range("C27").Select
Selection.Interior.ColorIndex = 3
MpaSuct3 = False
'Decide if a module is changed
Line6:
If MpaDisch1 = True Then GoTo Line7 Else GoTo Line8
Line7:
Sheets("MPA").Range("H25").Copy
Sheets("MPA").Range("D29").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPA").Range("B23").Copy
Sheets("MPA").Range("D25").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPA").Range("D25").Select
Selection.Interior.ColorIndex = 3
MpaDisch1 = False
'Decide if a module is changed
Line8:
If MpaDisch2 = True Then GoTo Line9 Else GoTo Line10
Line9:
Sheets("MPA").Range("H26").Copy
Sheets("MPA").Range("D30").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPA").Range("B23").Copy
Sheets("MPA").Range("D26").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPA").Range("D26").Select
Selection.Interior.ColorIndex = 3
MpaDisch2 = False
'Decide if a module is changed
Line10:
If MpaDisch3 = True Then GoTo Line11 Else GoTo Line12
Line11:
Sheets("MPA").Range("H27").Copy
Sheets("MPA").Range("D31").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPA").Range("B23").Copy
Sheets("MPA").Range("D27").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPA").Range("D27").Select
Selection.Interior.ColorIndex = 3
MpaDisch3 = False
'Decide if a module is changed
Line12:
Sheets("MPA").Protect DrawingObjects:=True, _
Contents:=True, _
Scenarios:=False
'MPB
Sheets("MPB").Select
Sheets("MPB").Unprotect
If MpbSuct1 = True Then GoTo Line13 Else GoTo Line14
Line13:
Sheets("MPB").Range("G25").Copy
Sheets("MPB").Range("C29").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPB").Range("B23").Copy
Sheets("MPB").Range("C25").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPB").Range("C25").Select
Selection.Interior.ColorIndex = 3
MpbSuct1 = False
'Decide if a module is changed
Line14:
If MpbSuct2 = True Then GoTo Line15 Else GoTo Line16
Line15:
Sheets("MPB").Range("G26").Copy
Sheets("MPB").Range("C30").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPB").Range("B23").Copy
Sheets("MPB").Range("C26").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPB").Range("C26").Select
Selection.Interior.ColorIndex = 3
MpbSuct2 = False
'Decide if a module is changed
Line16:
If MpbSuct3 = True Then GoTo Line17 Else GoTo Line18
Line17:
Sheets("MPB").Range("G27").Copy
Sheets("MPB").Range("C31").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPB").Range("B23").Copy
Sheets("MPB").Range("C27").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPB").Range("C27").Select
Selection.Interior.ColorIndex = 3
MpbSuct3 = False
'Decide if a module is changed
Line18:
If MpbDisch1 = True Then GoTo Line19 Else GoTo Line20
Line19:
Sheets("MPB").Range("H25").Copy
Sheets("MPB").Range("D29").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPB").Range("B23").Copy
Sheets("MPB").Range("D25").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPB").Range("D25").Select
Selection.Interior.ColorIndex = 3
MpbDisch1 = False
'Decide if a module is changed
Line20:
If MpbDisch2 = True Then GoTo Line21 Else GoTo Line22
Line21:
Sheets("MPB").Range("H26").Copy
Sheets("MPB").Range("D30").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPB").Range("B23").Copy
Sheets("MPB").Range("D26").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPB").Range("D26").Select
Selection.Interior.ColorIndex = 3
MpbDisch2 = False
'Decide if a module is changed
Line22:
If MpbDisch3 = True Then GoTo Line23 Else GoTo Line24
Line23:
Sheets("MPB").Range("H27").Copy
Sheets("MPB").Range("D31").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPB").Range("B23").Copy
Sheets("MPB").Range("D27").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPB").Range("D27").Select
Selection.Interior.ColorIndex = 3
MpbDisch3 = False
'Decide if a module is changed
Line24:
Sheets("MPB").Protect DrawingObjects:=True, _
Contents:=True, _
Scenarios:=False
'MPC
Sheets("MPC").Select
Sheets("MPC").Unprotect
If MpcSuct1 = True Then GoTo Line25 Else GoTo Line26
Line25:
Sheets("MPC").Range("G25").Copy
Sheets("MPC").Range("C29").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPC").Range("B23").Copy
Sheets("MPC").Range("C25").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPC").Range("C25").Select
Selection.Interior.ColorIndex = 3
MpcSuct1 = False
'Decide if a module is changed
Line26:
If MpcSuct2 = True Then GoTo Line27 Else GoTo Line28
Line27:
Sheets("MPC").Range("G26").Copy
Sheets("MPC").Range("C30").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPC").Range("B23").Copy
Sheets("MPC").Range("C26").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPC").Range("C26").Select
Selection.Interior.ColorIndex = 3
MpcSuct2 = False
'Decide if a module is changed
Line28:
If MpcSuct3 = True Then GoTo Line29 Else GoTo Line30
Line29:
Sheets("MPC").Range("G27").Copy
Sheets("MPC").Range("C31").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPC").Range("B23").Copy
Sheets("MPC").Range("C27").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPC").Range("C27").Select
Selection.Interior.ColorIndex = 3
MpcSuct3 = False
'Decide if a module is changed
Line30:
If MpcDisch1 = True Then GoTo Line31 Else GoTo Line32
Line31:
Sheets("MPC").Range("H25").Copy
Sheets("MPC").Range("D29").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPC").Range("B23").Copy
Sheets("MPC").Range("D25").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPC").Range("D25").Select
Selection.Interior.ColorIndex = 3
MpcDisch1 = False
'Decide if a module is changed
Line32:
If MpcDisch2 = True Then GoTo Line33 Else GoTo Line34
Line33:
Sheets("MPC").Range("H26").Copy
Sheets("MPC").Range("D30").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPC").Range("B23").Copy
Sheets("MPC").Range("D26").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPC").Range("D26").Select
Selection.Interior.ColorIndex = 3
MpcDisch2 = False
'Decide if a module is changed
Line34:
If MpcDisch3 = True Then GoTo Line35 Else GoTo Line36
Line35:
Sheets("MPC").Range("H27").Copy
Sheets("MPC").Range("D31").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPC").Range("B23").Copy
Sheets("MPC").Range("D27").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPC").Range("D27").Select
Selection.Interior.ColorIndex = 3
MpcDisch3 = False
'Decide if a module is changed
Line36:
Sheets("MPC").Protect DrawingObjects:=True, _
Contents:=True, _
Scenarios:=False

'MPD
Sheets("MPD").Select
Sheets("MPD").Unprotect
If MpdSuct1 = True Then GoTo Line37 Else GoTo Line38
Line37:
Sheets("MPD").Range("G25").Copy
Sheets("MPD").Range("C29").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPD").Range("B23").Copy
Sheets("MPD").Range("C25").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPD").Range("C25").Select
Selection.Interior.ColorIndex = 3
MpdSuct1 = False
'Decide if a module is changed
Line38:
If MpdSuct2 = True Then GoTo Line39 Else GoTo Line40
Line39:
Sheets("MPD").Range("G26").Copy
Sheets("MPD").Range("C30").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPD").Range("B23").Copy
Sheets("MPD").Range("C26").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPD").Range("C26").Select
Selection.Interior.ColorIndex = 3
MpdSuct2 = False
'Decide if a module is changed
Line40:
If MpdSuct3 = True Then GoTo Line41 Else GoTo Line42
Line41:
Sheets("MPD").Range("G27").Copy
Sheets("MPD").Range("C31").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPD").Range("B23").Copy
Sheets("MPD").Range("C27").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPD").Range("C27").Select
Selection.Interior.ColorIndex = 3
MpdSuct3 = False
'Decide if a module is changed
Line42:
If MpdDisch1 = True Then GoTo Line43 Else GoTo Line44
Line43:
Sheets("MPD").Range("H25").Copy
Sheets("MPD").Range("D29").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPD").Range("B23").Copy
Sheets("MPD").Range("D25").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPD").Range("D25").Select
Selection.Interior.ColorIndex = 3
MpdDisch1 = False
'Decide if a module is changed
Line44:
If MpdDisch2 = True Then GoTo Line45 Else GoTo Line46
Line45:
Sheets("MPD").Range("H26").Copy
Sheets("MPD").Range("D30").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPD").Range("B23").Copy
Sheets("MPD").Range("D26").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPD").Range("D26").Select
Selection.Interior.ColorIndex = 3
MpdDisch2 = False
'Decide if a module is changed
Line46:
If MpdDisch3 = True Then GoTo Line47 Else GoTo Lastline
Line47:
Sheets("MPD").Range("H27").Copy
Sheets("MPD").Range("D31").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPD").Range("B23").Copy
Sheets("MPD").Range("D27").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Sheets("MPD").Range("D27").Select
Selection.Interior.ColorIndex = 3
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, _
Scenarios:=False
MpdDisch3 = False
Lastline:
Sheets("MPD").Protect DrawingObjects:=True, _
Contents:=True, _
Scenarios:=False
MpaSuct1 = False
MpaSuct2 = False
MpaSuct3 = False
MpbSuct1 = False
MpbSuct2 = False
MpbSuct3 = False
MpcSuct1 = False
MpcSuct2 = False
MpcSuct3 = False
MpdSuct1 = False
MpdSuct2 = False
MpdSuct3 = False
MpaDisch1 = False
MpaDisch2 = False
MpaDisch3 = False
MpbDisch1 = False
MpbDisch2 = False
MpbDisch3 = False
MpcDisch1 = False
MpcDisch2 = False
MpcDisch3 = False
MpdDisch1 = False
MpdDisch2 = False
MpdDisch3 = False
Unload UserForm6
 
B

Brian

One way:
Determine which sheet using which=Activesheet.name
Map these onto 1 thru 4, something like
Sub ShowForm6
Select ActiveSheet.name
Case "Sheet1": UserForm6.MultiPage1.Value=1
Case "Sheet2": UserForm6.MultiPage1.value=2
Case "Sheet3": UserForm6.MultiPage1.value=3
Case "Sheet4": UserForm6.MultiPage1.value=4
Case Else: Msgbox "Something's messed up"
End Select
UserForm6.Show
End Sub' ShowForm6
Then call this from your _click subs, or just assign this
routine to a forms button in the sheets using right-click
Assign Macro...
Regards
Brian
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Run-time error 1004 paste method of worksheet class failed 3
Help with condensing a lot of copying/pasting... 4
conso macro 0
Error using offset 1
sort macro not working 1
Procedure too large 3
Copy Paste Macro not Pasting Values when Blank 3
Tannspose and cycle 4

Top