kopieren van een gebied met 2 variabelen

[Oude leerling]

Geacht forum,
Ik wil een bepaald variabel gebied kopiëren en heb
de onderstaande code gemaakt welke het niet doet,
Wat ik ook probeer ik krijg hem niet werkend.
Ik hoop dat u snapt wat ik wil doen en ontdek welke fout ik maak.

Range ("B" & (4 * Range("J4").Value) + 1) : Range("B" & (4 * Range("J4").Value) + 4).Copy

 

[edmoor]

Dat zal niet goed gaan inderdaad. Probeer deze eens:
Range("B" & (4 * Range("J4").Value + 1) & ":B" & (4 * Range("J4").Value + 4)).Copy

 

[Oude leerling]

Edmoor,

Bedankt voor je reactie

Het werkt echter niet bij mij.
Wat de code zou moeten doen is het volgende

("B13:B16").Copy

B13 = 4 maal de waarde in cel J4 plus 1 daarbij opgeteld (4*3)+1
B16 = 4 maal de waarde in cel J4 plus 4 daarbij opgeteld (4*3)+4

Ik heb een proef bestandje bijgevoegd met jou macro die niet werkt.

Hopelijk kan je me helpen met dit probleem

 

[edmoor]

Dan weet ik niet wat jij doet maar wat ik schreef werkt prima in je eigen document.
Wel gaat je eigen Sub Macro1 stuk op deze vergelijking:
If ("K4") <> 0

En dat is terecht want die syntax is niet correct.

 

[Oude leerling]

Ja klopt , hij blijft inderdaad hangen daarop , maar wat moet het dan zijn??

 

[edmoor]

Dit:
If Range("K4") <> 0

 

[Oude leerling]

Stom , stom , stom , stom , in mijn bed gisterenavond wist ik het ineens. Ik schaam de diep!!
Sorry hoor dat ik je met zo'n onbenullige fout lastig viel.
Zal de vermoeidheid wel geweest zijn

Probleem is opgelost , het werkte.

Hartelijk bedankt voor de genomen moeite

Vriendelijke groet , Jaap

 

[edmoor]

Geen probleem. Nooit te oud om te leren

 

[VenA]

Een optie zonder copy/paste

If [K4] > 0 Then [I9].Resize([j4] + 1) = Cells(4 * [j4] + 1, 2).Resize([j4] + 1).Value

 

[Oude leerling]

VenA,

Ga ik ook uitproberen weer wat nieuws geleerd.

Bedankt voor de genomen moeite.

Jaap