UserForm with Cell Data

[Phil Hageman]

I have a CommandButton bringing up a UserForm. On that
form, I want to display the contents of three cells, and
then display the sum of the other three cells. How do I
do this?

 

[Tom Ogilvy]

private Sub CommandButton1_click()
With userform1
.Textbox1.Value = Range("A1").Text
.Textbox2.Value = Range("A2").Text
.Textbox3.Value = Range("A3").Text
.Textbox3.Value = Application.Sum(Range("A1:A3"))
.Show
End With
end Sub

 

[Phil Hageman]

Thanks, Tom - works fine!

-----Original Message-----
private Sub CommandButton1_click()
With userform1
.Textbox1.Value = Range("A1").Text
.Textbox2.Value = Range("A2").Text
.Textbox3.Value = Range("A3").Text
.Textbox3.Value = Application.Sum(Range("A1:A3"))
.Show
End With
end Sub

--
Regards,
Tom Ogilvy





.