Makro der kan kopiere et variabelt område til en variabel placering.

"område af varierende størrelse til en varierende placering"
select en celle i området og prøv med:
currentRegion

Hvad er kriteriet for de 12 hhv. 15 rækker?

Det er måske nemmere at vise hvad jeg har begået.
Jeg har med makrooptageren lavet vedlagte makroer som virker, men jeg er ikke i stand til at skrive argumenterne, så makroerne kan virke med de ønskede variabler.

Jeg har prøvet at forklare hvad jeg ønsker, og håber at en "Ekspert" vil lave de nødvendige tilretninger.

på forhånd tak.

Sub kopier_omraade2_til_Q10()
    Sheets(" Start alle").Select
    Application.Goto Reference:="R10C46"
    Application.Goto Reference:="R18C46"
*tallet 18 erstattes af 8 (som er en variabel som hentes i celle AU5 + 10 som er konstant)

    Range("AT18:AU87").Select
*tallet 18 erstattes af 8 (som er en variabel som hentes i celle AU5 + 10 (som er konstant)
*tallet 87 erstattes af 78 (som er en variabel som hentes i celle AT5 - 8 (som er en variabel
der hentes i celle AU5) + 9 (som er konstant)

    Selection.Copy
    Application.Goto Reference:="R10C17"
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("Q9").Select
End Sub



Sub kopier_omraade1_til_Q_varierende()
    Sheets(" Start alle").Select
    Application.Goto Reference:="R10C46"
    Range("AT10:AU17").Select
*tallet 17 erstattes af 8 (som er en variabel som hentes i celle AU5 + 9 (som er konstant)

    Selection.Copy
    Application.Goto Reference:="R10C17"
    Application.Goto Reference:="R80C17"
*tallet 8 erstattes af 78 (som er en variabel som hentes i celle AT5 + 8 (som er en variabel
der hentes i celle AU5) - 11 (som er konstant)

    ActiveSheet.Paste
'    Range("Q87").Select
    Selection.End(xlUp).Select
End Sub

Et forsøg fra mig, brug et test ark først.

Tak store-morten

Jeg vil prøve det. Det er blevet for sent i dag. men jeg håber på at nå det i morgen.

Hej store-morten

Jeg har prøvet med dit forslag, efter nogle forsøg fik jeg det til at virke, kun for at opdage at min kopieringsrækkefølge ikke gav det resultat jeg egentlig vil have.

Jeg kan bruge dele af dit forslag, så mange tak.

Send et svar så du kan dine point

Velbekomme :-)

Hej  store.morten
Nu har jegfået dit forslag til at virke perfekt. Jeg har ændret lidt og anvendt det sammen med nogle if-sætninger, og det fungerer perfekt.  Du kan måske ændre if-sætningerne ved at skrive en af dine, for mig komplicerede kommandoer.
Jeg har også et ønske om at anvende en "for to next", for 7 gentagelser hvor det er den adresse, der skal kopieres til, der ændres, Adressen flyttes 3 kolonner mod højre for hver gentagelse.
Jeg vedlægger en kopi af en del af den makro der virker.

Foran nedenstående makro der starter med 'POST1 ønsker jeg at få følgende til at virke:

Application.Goto Reference:="R10C10"
For i = 1 to 7
Application.Goto Reference:="R10C10+3"  Jeg ønsker at markøren flytter sig 3 kolonner til højre ved hvert gennemløb.

' POST 1 - Afhængig af antal af deltagere på samme tid ved post1, udføres if-sætning
antal1 = Range("O6") 'antal af deltager på samme tid ved post 1
If antal1 = 2 Then 
Application.Goto Reference:="R10C37" ' Der kopieres herfra (det eneste der ændre i hver if-sætning)
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Application.Goto Reference:="R10C13" 'Der kopieres hertil
ActiveSheet.Paste
End If

If antal1 = 3 Then
Application.Goto Reference:="R10C40" ' Der kopieres her fra(det eneste der ændre i hver if-sætning)
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Application.Goto Reference:="R10C13" 'Der kopieres hertil
ActiveSheet.Paste
End If

If antal1 = 1 Then
Application.Goto Reference:="R10C43" ' Der kopieres herfra(det eneste der ændre i hver if-sætning)
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Application.Goto Reference:="R10C13" 'Der kopieres hertil
ActiveSheet.Paste
End If

Next i

End Sub

Skal jeg oprette et nyt spørgsmål for at kunne tildele dig point? Jeg glemte at vælge point sidste gang, og dit svar var mere værd for mig. For svar på dette problem giver jeg gerne 200 point.

Jeg håber på et positivt svar.