PDA

View Full Version : [SOLVED] Putting values in text boxes



gibbo1715
08-27-2005, 03:11 AM
I use the code below to put data in my textboxes on several userforms, what im wondering is as I use the same code for several different userforms is there an easy way to replace the me command (Or make current userform active) so I can call this macro from a procedure and use the same code on several different forms without the need to repeat my code?



'Name
Me.TextBox1.value = ActiveCell.value
'Address
Me.TextBox2.value = ActiveCell.Offset(0, 1).value
Me.TextBox3.value = ActiveCell.Offset(0, 2).value
Me.TextBox4.value = ActiveCell.Offset(0, 3).value
Me.TextBox5.value = ActiveCell.Offset(0, 4).value
Me.TextBox6.value = ActiveCell.Offset(0, 5).value


cheers

gibbo

mdmackillop
08-27-2005, 04:27 AM
Hi Gibbo,
Try
In the Userform code


Private Sub CommandButton1_Click()
DoFill UserForm1
End Sub


In a standard module



Sub DoFill(UF)
UF.TextBox1.Value = ActiveCell.Value
UF.TextBox2.Value = ActiveCell.Offset(0, 1).Value
UF.TextBox3.Value = ActiveCell.Offset(0, 2).Value
UF.TextBox4.Value = ActiveCell.Offset(0, 3).Value
UF.TextBox5.Value = ActiveCell.Offset(0, 4).Value
UF.TextBox6.Value = ActiveCell.Offset(0, 5).Value
End Sub

gibbo1715
08-27-2005, 01:50 PM
that was exactly what i was after,

thanks

gibbo