gegevens kopieren en plakken vanuit een userform

[john1976]

Goedemiddag,

Ik heb een userform met textblok1 en textblok2, nu wil dat indien er een button aangeklikt wordt dat er in bijvoorbeeld "blad2" gezocht wordt naar de waarde in textblok1 en dat dan de waarde die in textblok2 staat gekopieerd wordt naar cell g in dezefde rij.

Is er iemand die me op weg kan helpen hiermee?

Alvast bedankt.Bekijk bijlage testform.xlsm

 

[HSV]

In de Userform.

Private Sub CommandButton1_Click()
With Sheets("Blad2")
 Set c = .Columns(1).Find(TextBox1, , xlValues, xlWhole)
  If Not c Is Nothing Then
     c.Offset(, 6) = TextBox2.Value
    End If
   End With
 Unload Me
End Sub

 

[john1976]

thx, dit is precies wat ik zocht.

Heel erg bedankt.

Groet,

John