Opgelost aanpassing macro

[lsc.b]

aanpassing macro
wie kan mij hier verder mee help in het bestandje staat verdere uitleg

 

[AHulpje]

Bijvoorbeeld zo:

Sub kopygegevens()
    Range("A9:A65536").Find(Range("A2").Value).Offset(0, 2) = Sheets("blad2").Range("C8")
End Sub

 

[lsc.b]

thanks ik hoop dat ik het nu verder af kan maken

 

[edmoor]

Zonder knop, gewoon A2 wijzigen:

 

[lsc.b]

Thanks Edmoor en AHulpje voor de snelle hulp hier kan ik wel wat mee

 

[lsc.b]

Bijvoorbeeld zo:

Sub kopygegevens()
    Range("A9:A65536").Find(Range("A2").Value).Offset(0, 2) = Sheets("blad2").Range("C8")
End Sub

zo zijn er dus 12 kolommen en misschien wel 20 nu gaat me dit niet lukken welke gegevens moet ik aan passen en hoe zie mijn voorbeeld hoe het nu is ( ps. dit is een voor beeld )

 

[AHulpje]

Eventueel K39 aanpassen als er meer kolommen bijkomen.

Sub kopygegevens()
    rij = Range("B83:B105").Find(Range("B1").Value).Row
    Range("F39:K39").Copy
    Cells(rij, 6).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

 

[lsc.b]

bedankt zover

 

[HSV]

Sub kopygegevens()
  Range("B83:B105").Find(Range("B1").Value).Offset(, 4).Resize(, 6) = Range("F39:K39").Value
End Sub