Userform trouble?

[lpking2005]

hi,

in need of some help.....

I currently have a userform which has a textbox which once the user adds text and clicks ok it the populates a textbox on a worksheet.

Also when this userform is initialised, it reads the text from the worksheet textbox.

What i want to do is, instead of creating multiple copies of the userform, can i have it where this userform is linked to about 4 other commandbuttons,
But it only reads and writes textbox values to other textboxes depending on which button I press?

i hope you understand me?
i think i just confused myself

 

[pcc]

set up a global variable (eg FRED) as integer
if you have , say, 5 commandbuttons on your sheet, add to each button's click code
FRED = 1, or FRED = 2 etc, so that each one is unique

In the userform initialise routine use
Select case fred
case 1
textbox1.text = sheets("Blah").textbox1.text
case 2
textbox1.text = sheets("Blah").textbox2.text
.
.
end select

Use the same method in reverse when the user clicks OK on the userform

 

[lpking2005]

thanks for the reply, but still cannot get it to work, been playing around for 30mins with it, but no luck.


I have this on my command buttons:

Dim product As Integer

product = 1

OpComments.Show

I have this connected to userform:

Private Sub UserForm_Initialize()

'open correct product comments

Select Case product
Case 1
CommentsBox.Value = Sheets("OP COMMENTS").NewLF
Case 2
CommentsBox.Value = Sheets("OP COMMENTS").OldLF

End Select

End Sub

and this connected to userform OK button:

Private Sub CommandButton2_Click()

'set comments into cell

Dim product As Integer

Select Case product
Case 1
Sheets("OP COMMENTS").NewLF = CommentsBox.Value
Case 2
Sheets("OP COMMENTS").OldLF = CommentsBox.Value
End Select


Unload Me

End Sub

 

[pcc]

Don't Dim product in each button's code.
Use

Public Product as Integer

at the top of the code in any code module.

To check thast it works, stop the code while the form is loading and check that the value of Product is as expected

Private Sub UserForm_Initialize()

'open correct product comments
Stop
Select Case product
Case 1
CommentsBox.Value = Sheets("OP COMMENTS").NewLF
Case 2
CommentsBox.Value = Sheets("OP COMMENTS").OldLF

End Select

End Sub

when it stops, hover over Product to check the value