View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default filling userform textboxes

A slight qualification.

It is not unusual to have initialization code in a general module. This is
a matter of style. (the other choice would be the initialize event for the
userform).

Sub MycodeInAGeneralModule()
Dim rng as Range
set rng = Worksheets("Datasheets").Range("A3")
With Userform1
.txt_myname.txt = rng.value
.txt_myaddress.txt = rng.offset(1,0).value
.txt_mycity.txt = rng.offset(2,0).value
.show
End With
End Sub

the alternative would be
Sub MycodeInAGeneralModule()
Userform1.Show
End With

in the userform module

Private Sub Userform_Intialize()
Dim rng as Range
set rng = Worksheets("Datasheets").Range("A3")
me.txt_myname.txt = rng.value
me.txt_myaddress.txt = rng.offset(1,0).value
me.txt_mycity.txt = rng.offset(2,0).value
End Sub

--
Regards,
Tom Ogilvy


"Pierre via OfficeKB.com" <u13950@uwe wrote in message
news:55d452d4e06d4@uwe...
Hi expert,

i user userform1 to retreive data from an excel sheet . The data should

then
be visible in textboxes on userform1 that have no sourcecontrol.
My questions:

1. is it possible to write vba code to fill the textbox from the datasheet

?
I think yes, something like: txt_myname.text = sheets("datasheet").
range("A3").value
is this the correct way ?

2. is it possible to make a seperate module with vba code to fill

textboxes
on userform1
I think yes but don't know how...can you help

3. is it possible to use vba code in a different userform2 to fill

textboxes
in userform1 ?
I think no, but can you help if it is possible ?

Thanks for looking at my problem.
Pierre


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200510/1