Excel Macro herhalen; eerst A1, dan A2 etc

[mikxa]

Beste leden,

weer iemand met zo'n zelfde vraag. Maar dan toch anders hoop ik, want ik heb het antwoord nog nergens kunnen vinden.
Ik heb veel ervaring met Verticaal zoeken, maar niets met Macro's.

Wat ik heb is het volgende:
5 bestanden die allemaal bepaalde gegevens bevatten voor mijn kostprijsmodel. Het kostprijsmodel.xls wordt gevuld met een artikelnummer in cel B4. Op basis van deze waarde worden alle velden met vert.zoeken formules gevuld:
- receptuurnr uit bestand 1
- grondstoffen uit bestand 2
- kostprijzen van de grondstoffen uit bestand 3
- loonkosten uit bestand 4
- verpakkingskosten uit bestand 5

op deze manier heb ik een prima werkend kostprijsmodel. Echter moet ik nu nog handmatig telkens in cel b4 het artikelnummer invoeren om in cel E98 de gewenste kostprijs te zien. Ik heb hier een bestand gemaakt genaamd kostprijzen.xls

Nu wil ik een macro die dit voor me uitvoert.
Dus: knip A1 uit bestand kostprijzen.xls-> plak in kostprijsmodel.xls in cel B4 -> knip waarde uit kostprijsmodel.xls cel E98 en plak in kostprijzen.xls B1

Liefst naast deze ene prijs ophalen, wil ik ook nog wat andere prijzen ophalen. Maar dat is vast een kwestie van herhalen.

Daar het hier gaat om circa 600 artikelnummers wil ik dit niet voor alle cellen apart moeten invoeren in een macro.

Bedankt voor het antwoord!

 

[mikxa]

Heeft er niemand een idee

 

[mikxa]

Zo,

Excel: Macro's en VBA van Gerrit Bruijnes aangeschaf en het zelf opgelost. Voor wie het ooit nodig heeft:

Sub Kostprijs()

Dim rcell As Range

For Each rcell In Range("A2:A500")

rcell.Copy Sheets("Berekeningsmodel").Range("b4")
rcell.Offset(, 4).Value = Sheets("Berekeningsmodel").Range("j37").Value
rcell.Offset(, 5).Value = Sheets("Berekeningsmodel").Range("k37").Value
rcell.Offset(, 6).Value = Sheets("Berekeningsmodel").Range("k58").Value
rcell.Offset(, 7).Value = Sheets("Berekeningsmodel").Range("k70").Value
rcell.Offset(, 8).Value = Sheets("Berekeningsmodel").Range("k89").Value
rcell.Offset(, 9).Value = Sheets("Berekeningsmodel").Range("k94").Value
rcell.Offset(, 10).Value = Sheets("Berekeningsmodel").Range("b96").Value
rcell.Offset(, 11).Value = Sheets("Berekeningsmodel").Range("b98").Value
rcell.Offset(, 12).Value = Sheets("Berekeningsmodel").Range("e98").Value
rcell.Offset(, 13).Value = Sheets("Berekeningsmodel").Range("e100").Value
Next rcell

End Sub

 

[Roncancio]

Bedankt voor de terugkoppeling en goed dat je het zelf hebt opgelost.:thumb:
Je code kan echter wat korter en vooral wat sneller door geen gebruik te maken van een lus.

Sub Kostprijs()

With Sheets("Berekeningsmodel")
    Range("A2:A500").Value = .Range("b4")
    Range("E2:E500").Value = .Range("j37").Value
    Range("F2:F500").Value = .Range("k37").Value
    Range("G2:G500").Value = .Range("k58").Value
    Range("H2:H500").Value = .Range("k70").Value
    Range("I2:I500").Value = .Range("k89").Value
    Range("J2:J500").Value = .Range("k94").Value
    Range("K2:K500").Value = .Range("b96").Value
    Range("L2:L500").Value = .Range("b98").Value
    Range("M2:M500").Value = .Range("e98").Value
    Range("N2:N500").Value = .Range("e100").Value
End With
End Sub

Met vriendelijke groet,


Roncancio