VBA-kode, der kan lave x-antal rækker, og putter indhold i nogle af cellerne

Er de prædefinerede tekster konstanter?
x-antal rækker - hvad bestemmer antallet?

VBA kan klare det - men "spillereglerne" skal være entydige..

Ikke helt sikker på, hvad du mener med konstanter..

Men fx skal jeg lave en kode, der laver 7 rækker, hvor der for de 4 første rækker gælder: celle 1 = "1" og celle 2 = "tekst 1". De 3 sidste linier skal gælde: celle 1 = "2" og celle 2 ="tekst 2".

Så det er helt konstant hvilke tal og tekster, der skal udfyldes i cellerne, når koden køres (og antallet af rækker er også fastlagt - skal bare bruge 3 versioner af koden med hhv. 4, 7 og 9 rækker)

Så er det vel en Userform, hvori der kan vælges een af de tre versioner.

Prøv at sende en regneark med de 3 scenarier i udfyldt stand.
(@-adr. under min profil)

Nej, det skal ikke være en userform. Jeg laver det som 3 knapper: "Lav 4 rækker", "Lav 7 rækker" og "Lav 9 rækker" - så det er bare koden, jeg er ude efter - jeg sender til dig..

OK....

Der er ikke modtaget noget i skrivende stund (blot info)

Jeg har ikke sendt noget endnu. Nærmere info følger..

Ok -

Sender du ikke et svar? Jeg har fundet en anden løsning, men du var lidt skyld i det, så synes, du skal have pointene :)

Ok & tak - men så skulle du vel vise/forklare løsningen her.

Selection.Resize(11, 1).EntireRow.Insert
Selection.End(xlToLeft).Select
Sheets("ADM").Range("A52:Y62").Copy Sheets("Periodeoplæg").Range(ActiveCell.Address)

Kan ikke forklare den, men det virker :)

Ok..