Excel 2007 : How to transfer data from worksheet to vba userform

Hi!
I use a UserForm for imput data in worksheet, and the question is: How can I do the opposite?
For exemple: I fill up data of sells in userform, and at same time, I should like that the useform gives me, through a textbox, the value of product of all sells?
How could I do that?
Thanks advence

hi
thank you for your quicly answer, but..
I have a userform with multipage. In pag1, I fill out data that goes to the worksheet.In pag2 I have two comboboxs(Months and Selles), to chose two situations, and one textbox for appear the resolts of each seller in a particulary month. This values cames from worksheets by "Sumif function"and goes to "sheet1".
In code above that I use, it gives me only (March). Something is not correct. could you help me? Thank you
Private Sub cboseller2_change()


If CboMonth2.Value = "January" Then
TxtValT = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboSeller2, Sheets("Sheet1").Range("B:B"))
ElseIf CboMonth2.Value = "February" Then
TxtValT = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboSeller2, Sheets("Sheet1").Range("C:C"))
Else
TxtValT = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboSeller2, Sheets("Sheet1").Range("D:D"))
End If

End Sub

here goes the attach
car_sales5F.xlsm

hi Soren Larsen
Many thanks for this solution.
It didn't work, because the Months isn't in capital letter as sheets's name.(Very estrange isn't it?)
Bye, and thank again
Jdasp

Hi again,Soren Larson
It works perfectly, however there is a small detail that consists of the following:
when I test Pag2 and call for example the month of January, and the seller choose, in the textbox, it will automatically gave me the corresponding value - OK.
But if I change then the name of the month and let stay the seller, the value of the Textbox (Value)wouldn't change so it ceases to be correct. How to solve this detail?
Thank you for your kind
Jdasp

hi Roy
Thank you for your intervention.
Please could you explain me the reason why must I use the code that you send me (Set Num....)?
And what you mean with (UCase) in that code?
Sorry I'm not expert in VBA perhaps candidate to be beginner
Thanks in advance
Jdasp

Hi Soren Larsen
Thank you for all
I already did that but it stay in same situation.

Private Sub CboMonth2_Change()

If CboSeller2.Value = "Jim" Then
TxtValT.Value = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboMonth2.Value, Sheets("Sheet1").Range("B:B"))
ElseIf CboSeller2.Value = "Rob" Then
TxtValT.Value = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboMonth2.Value, Sheets("Sheet1").Range("C:C"))
Else
TxtValT.Value = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboMonth2.Value, Sheets("Sheet1").Range("D:D"))
End If

End Sub

[QUOTE=Søren Larsen;2799458]Could you please place code tags around your code? It makes it a lot easier to read your code snippet! Read about code tags here:

[URL="http://www.excelforum.com/misc.php?do=bbcode"]' Transfer data from worksheet to userform boxes
Private Sub cboseller2_change()

If CboMonth2.Value = "JANUARY" Then
TxtValT.Value = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboSeller2.Value, Sheets("Sheet1").Range("B:B"))
ElseIf CboMonth2.Value = "FEBRUARY" Then
TxtValT.Value = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboSeller2.Value, Sheets("Sheet1").Range("C:C"))
Else
TxtValT.Value = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboSeller2.Value, Sheets("Sheet1").Range("D:D"))
End If

End Sub

' Transfer data from worksheet to userform boxes
Private Sub CboMonth2_Change()

If CboSeller2.Value = "Jim" Then
TxtValT.Value = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboMonth2.Value, Sheets("Sheet1").Range("B:B"))
ElseIf CboSeller2.Value = "Rob" Then
TxtValT.Value = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboMonth2.Value, Sheets("Sheet1").Range("C:C"))
Else
TxtValT.Value = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboMonth2.Value, Sheets("Sheet1").Range("D:D"))
End If

End Sub

Originally Posted by Søren Larsen

You ranges are off, which is probaby why it does not work. Try this, untested, code instead:

Please Login or Register  to view this content.

' Transfer data from worksheet to userform boxes
Private Sub cboseller2_change()

If CboMonth2.Value = "JANUARY" Then
TxtValT.Value = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboSeller2.Value, Sheets("Sheet1").Range("B:B"))
ElseIf CboMonth2.Value = "FEBRUARY" Then
TxtValT.Value = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboSeller2.Value, Sheets("Sheet1").Range("C:C"))
Else
TxtValT.Value = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboSeller2.Value, Sheets("Sheet1").Range("D:D"))
End If

End Sub

' Transfer data from worksheet to userform boxes
Private Sub CboMonth2_Change()

If CboSeller2.Value = "Jim" Then
TxtValT.Value = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboMonth2.Value, Sheets("Sheet1").Range("B:B"))
ElseIf CboSeller2.Value = "Rob" Then
TxtValT.Value = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboMonth2.Value, Sheets("Sheet1").Range("C:C"))
Else
TxtValT.Value = WorksheetFunction.SumIf(Sheets("sheet1").Range("A:A"), CboMonth2.Value, Sheets("Sheet1").Range("D:D"))
End If

End Sub

Hi Soren Larsen
It was a big maratona, I realy appreciate your kindness
All Works well
Many thanks
Jdasp

hi Soren Larsen
I have learned a lot with the Forums, it is cool to have already the solution to the exposed problem . The example I tried to solve, is the base to use in the procedures to be taken in similar situations. Because the solution was arranged somewhat strange, not wanting to abuse your patience I would like to know the technical reasons for that change (identifying the cell of the worksheet by number) as well as when you says "range off" what is it means? should be necessary to declare any variable (Dim. ..)? Thanks in advance to clarify that with anything you can forward saying.