specifieke data laten kopieeren via VBA

[Verwijderd]

Mijn vraag
Ik probeer een rekensheet te maken die direct de juiste data ook transporteerd naar een report form, maar omdat in mijn rekensheet van meerdere klanten en soms intern dingen staan wil ik enkel zodra er in een speciefieke cell een codering staat van een klant dat hij dan de data transporteerd. Het gaat hierbij dus om meerdere rijen en de data staat door mekaar heen.
Nu weet ik dat je met "for to step" and "if then next if" dat je een hoop kunt doen, maar krijg hier toch niet de juiste macro mee geformeerd of ik zie niet waar ik fout ga.
programma:
For i = 57 To 32 Step -1
If Range("K" & i) = "hf" Then
Range("B:I" & i).Select
Selection.Copy
Application.CutCopyMode = False
Workbooks.Open Filename:= _
"V:\Quotations & Reports & Invoices for clients projects\report template.xls"
Range("C19:J19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
If Range("K" & i) = "jh" Then
Range("B:I" & i).Select
Selection.Copy
Application.CutCopyMode = False
Workbooks.Open Filename:= _
"V:\Quotations & Reports & Invoices for clients projects\report template.xls"
Range("C19:J19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
next

Dit stukje heb ik zo opgebouwd zodat als ik nieuwe klanten krijg ik die ook direct door klein stukje te kopieeren kan toevoegen
Relevante software en hardware die ik gebruik

hopelijk heft hier iemand het antwoord of een oplossing zodat ik dit verder kan bedenken.
groet,
Dennis
...

Wat ik al gevonden of geprobeerd heb
...

[ajakkes]

Wat doet het nu of welke foutmelding krijg je?

Welke regel denk je zelf dat fout gaat?

Zet code tussen code tags.

[b.k.dijkstra]

Wat mij opviel is dat je de range cellen "B" i tot "I" i wilt selecteren en kopiëren.

Naar mijn idee klopt dit range selectie op dit moment niet omdat de "B" kolom geen celnummer toegewezen krijgt.

Ik zou daarom

code:

Range("B:I" & i).Select

vervangen door

code:

 Range("B" & i, "I" & i).Select

[Verwijderd]

@ajakkes ik krijg de foutmelding op de regel die b.k. dijkstra aangeeft.
Ik wil namelijk als die op rij "i" een code vindt dat hij meerdere kolommen uit die rij kopieeerd. Daarna moet die de volgende rij er op controleren.
@b.k. dijkstra, bedankt voor uw reactie ik zal even kijken of dit werkt.
Groet dennis

[Verwijderd]

beste mensen heb het idee van b.k dijkstra geprobeert, maar de macro loopt nu wel door, maar opent niet mijn report en daardoor kopieeerd hij ook mijn data er niet in dus kan niet zien of de oplossing van b.k. dijkstra echt werkt, want ook als ik een andere range selecteer ipv mijn report komt het gekopieerde niet zichtbaar.
Het moet toch mogelijk zijn om na een selectie "woord", specifieke cellen uit die rij gelijk te kopieeeren naar een andere locatie of is er hier een andere weg voor?

groet,
Dennis

[b.k.dijkstra]

Ik heb je code ook een keer geprobeerd, naar mijn idee gaat het verkeerd bij de application.cutcopymode-false nadat je de cellen hebt geselecteerd. Door deze regel vervalt de selectie en is er niks te kopieren.

Onderstaande code zou naar mijn idee moeten werken.

code:

For i = 57 To 32 Step -1
If Range("K" & i) = "hf" Then

Range("B"&i, "I"&i).Select

Selection.Copy

Workbooks.Open Filename:= "V:\Quotations & Reports & Invoices for clients projects\report template.xls"
Range("C19:J19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
Application.CutCopyMode = False
[i]End If[/i]

next