Hjælp til uskrift-makro - bestemte celler i flere ark - samtidig

Måske:


Tilret de 20 Ark.

Jeg er vist for meget rookie til at kunne finde ud af det uden at udbede mig lidt mere info.

"Sheets(Array("Ark1", "Ark2", "Ark3")).Select"
Er det korrekt forstået, at jeg her skal skrive navnene på de ark, jeg ønsker at udskrive (lidt bøvlet, da jeg jo har navngivet dem på anden vis og jeg har 25 styk :-P
)?

"Application.Goto Reference:="R6C11:R28C33""
Og her er det så dét område, jeg ønsker at udskrive på hvert ark?

Det har jeg nemlig forsøgt, og da melder programmet fejl, når jeg forsøger at køre makroen. :-/

Ja, Fane navne skal passe, ellers fejler makroen ;-)

"Sheets(Array("Ark1", "Ark2", "Ark3")).Select"

Kan erstattes af:

Sheets(Array(1, 2, 3)).Select 'Tilføj selv resten.

Som udgang punkt er Ark1 = 1
Men det kan være svært når du har omdøbt Fanerne,
kan dog ses under: VBAProjekt

"Application.Goto Reference:="R6C11:R28C33""

R6C11 = Række 6 - Kolonne 11 = K6
R28C33 = Række 28 - Kolonne 33 = AG28

Altså marker: K6:AG28

"Som udgang punkt er Ark1 = 1"

Er ikke helt korrekt ;-)
Sheets(Array(1, 2, 3)).Select
Vælger de 3 første Ark (fra venstre), uafhængig af navnene.