cellen door kopieren dmv getal

[pirat]

Hallo ik een leek in vba maar heb hier al veel handige inf op gedaan maar 't volgende vind ik nergens
ik wil een cel b.v d10 naar rechts door kopieren maar dan bv 2 keer en die aantal keer hier dus 2
wil ik kunnen in geven in bv cel A1 is dit mogelijk zo ja bvd

 

[Roncancio]

[D10].AutoFill Range("D10:" & [D10].Offset(0, [A1]).Address)

Met vriendelijke groet,


Roncancio

 

[pirat]

super werkt prima bedankt nog een vraag zou dit ook samenwerken als ik in cel B1 een waarde bv 3 zet dat die dan 3 keer naar beneden kopieert zodat een bereik krijg met de zelfde cellen

 

[Roncancio]

Range("D10:" & [D10].Offset([B1] - 1, [A1]).Address).Value = [D10]

Met vriendelijke groet,


Roncancio

 

[pirat]

Bedankt voor 't snel reageren maar een vraag die tweede code moet ik die alleen plaatsen of onder die eerste want onderelkaar werkt niet bij mij, en tweede code alleen plaatsen werkt ook niet
sorry maar ben hier een leek in b.v.d

 

[Roncancio]

De 2e code alleen moet genoeg zijn.

Met vriendelijke groet,


Roncancio

 

[pirat]

klopt inderdaad maar hij kopieert alleen de waarden in cel en de opmaak niet dat deed die met alleen de eerste formule wel ,is dat ook mogelijk dat die de opmaak mee naar rechts
en beneden overneemt ben wel lastig bij voorbaat hartelijk dank

 

[Roncancio]

In dat geval...

[D10].Copy Range("D10:" & [D10].Offset([B1] - 1, [A1]).Address)

Met vriendelijke groet,


Roncancio

 

[pirat]

Hartstikke bedankt werkt prima is opgelost

 

[Roncancio]

Graag nog de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio