Waarde zoeken in cel en plakken

[bar88]

Wie kan mij even helpen.

Ik wil het volgende:
Ik voer een nummer in sheets "opvragen" cel "G6"
In Sheets "temp" in rij 1 naar het nummer zoeken.
Indien gevonden het gegeven in (voorbeeld) rij 10 kopiëren en plakken in sheets "opvragen" cel "F14".

Ik ben zelf even wezen puzzelen met voorbeelden uit helpmij.nl.
Maar ik kom er niet helemaal uit.

onderstaande heb ik maar werkt niet

Private Sub CommandButton1_Click()
With Sheets("temp")
    gev = Application.Match(Sheets("opvragen").Range("G6"), .Columns(1), 0)
    If Not IsError(gev) Then .Cells(gev, 10).Copy
    Sheets("opvragen").Range("F14").PasteSpecial Paste:=xlPasteValues
    End With
End Sub

#Beginner # starter

 

[VenA]

Haal je rijen en kolommen niet door elkaar? Plaats anders het bestandje even.

 

[bar88]

Bekijk bijlage voorbeeld.xlsm

Zie hier een voorbeeld.

 

[VenA]

Gebruik geen samengevoegde cellen staat ook duidelijk in de foutmelding dat daar het probleem zit.

Je kan het ook zo schrijven

Private Sub CommandButton1_Click()
  gev = Application.Match(Range("G6"), Sheets("temp").Columns(1), 0)
  If IsNumeric(gev) Then Range("F14") = Sheets("temp").Cells(gev, 10).Value
End Sub

 

[bar88]

Hoi VenA,

Precies wat ik zocht.
Heel erg bedankt voor je hulp !!!!!!

:thumb: