Resultaat combobox in kopieer functie gebruiken

[mieoli]

In bijlage mijn vraag, het kopieren van een cell naar een andere sheet in overeenstemming met de geselecteerde naam in de combobox en daar dan plakken in de derde kolom.
wie kan me op weg helpen?

 

[RoCompy87]

Kun je hier iets mee?

Private Sub Submit_Click()
Dim Zoek As String
Zoek = Sheets("overzicht").Range("B2").Value
Set Naam = Sheets("data").Range("A3:A7").Find(Zoek)
Naam.Offset(0, 2).Value = Sheets("overzicht").Range("B5")
End Sub

De naam wordt hier alleen gezocht in A3:A7, maar dat kun je zonodig zelf aanpassen.