vookup copy and paset from user form to sheet

[gurpartap008]

Hello sir

i have tbox1 and tbox2 and a command button
i want command button do that:-

first see text box1 value and match with vlookup range Sheet1 (A1 to A20) suppose we enter 5 in textbox1 and 5 is on a6
then we enter "123456" in textbox 2,
now the command button do that the value we enter in tbox2"123456" is paste in b6 ("a6=5 and b6=123456")
please help me sir

 

[Momentman]

Would you enter values in tbox1 and tbox2 before clicking the command button? or you enter in tbox1, then click OK - after which you enter a value in tbox2 and then click the commandbutton?

 

[gurpartap008]

i want enter a value in tbox1 and tbox2 and then click on the commandbutton? please help sir as early as posiable

 

[Momentman]

i want enter a value in tbox1 and tbox2 and then click on the commandbutton? please help sir as early as posiable

If the command button is called "commandbutton1", then use this code as is, else change the name as appropriate

Private Sub CommandButton1_Click()
    Dim foundrow As Integer, wks As Worksheet
    Set wks = Worksheets("Sheet1")
    foundrow = wks.Range("A1:A20").Find(tbox1.Value, wks.Range("A1")).Row
    wke.Range("A" & foundrow).Offset(0, 1).Value = tbox2.Value
End Sub

 

[gurpartap008]

cant work sir plz help me through team viewer can i sen u ID


Private Sub CommandButton1_Click() Dim foundrow As Integer, wks As Worksheet Set wks = Worksheets("Sheet1") foundrow = wks.Range("A1:A20").Find(tbox1.Value, wks.Range("A1")).Row wke.Range("A" & foundrow).Offset(0, 1).Value = tbox2.Value End Sub</pre>

 

[Momentman]

cant work sir plz help me through team viewer can i sen u ID


Private Sub CommandButton1_Click() Dim foundrow As Integer, wks As Worksheet Set wks = Worksheets("Sheet1") foundrow = wks.Range("A1:A20").Find(tbox1.Value, wks.Range("A1")).Row wke.Range("A" & foundrow).Offset(0, 1).Value = tbox2.Value End Sub

Apparently, thats a mistake on my part, it should be "wks" not "wke"

Private Sub CommandButton1_Click()
    Dim foundrow As Integer, wks As Worksheet
    Set wks = Worksheets("Sheet1")
    foundrow = wks.Range("A1:A20").Find(tbox1.Value, wks.Range("A1")).Row
    wks.Range("A" & foundrow).Offset(0, 1).Value = tbox2.Value
End Sub

 

[gurpartap008]

Cant work sir please help other way

 

[gurpartap008]

Private Sub CommandButton1_Click()
Dim foundrow As Integer, wks As Worksheet
Set wks = Worksheets("Sheet1")
foundrow = wks.Range("A1:A20").Find(tbox1.Value, wks.Range("A1")).Row
wks.Range("A" & foundrow).Offset(0, 1).Value = tbox2.Value
End Sub