Avatar billede Grosen Praktikant
22. marts 2018 - 08:26 Der er 6 kommentarer

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

Er der mon nogen, der kan hjælpe mig med en makro, hvor jeg kan udskrive bestemte celler fra flere ark samtidig?

Jeg skal udskrive en markering fra  K6-AG28 i 20 ark - og det er jo bare enormt bøvlet at skulle markere cellerne i hvert enkelt ark og trykke udskriv i hvert enkelt.

På forhånd tusind tak for hjælpen! :-)
Avatar billede store-morten Ekspert
22. marts 2018 - 08:43 #1
Måske:

Sub Test_Udskriv()
    Sheets(Array("Ark1", "Ark2", "Ark3")).Select
    Application.Goto Reference:="R6C11:R28C33"
    Selection.PrintOut Copies:=1, Collate:=True
End Sub

Tilret de 20 Ark.
Avatar billede Grosen Praktikant
22. marts 2018 - 11:12 #2
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. :-/
Avatar billede store-morten Ekspert
22. marts 2018 - 12:23 #3
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
Avatar billede store-morten Ekspert
22. marts 2018 - 12:29 #4
"Application.Goto Reference:="R6C11:R28C33""

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

Altså marker: K6:AG28
Avatar billede store-morten Ekspert
22. marts 2018 - 12:34 #5
Sub Test_Udskriv2()
Sheets(Array(1, 2, 3)).Select
Application.Goto Reference:=Range("K6:AG28")
Selection.PrintOut Copies:=1, Collate:=True
End Sub
Avatar billede store-morten Ekspert
24. marts 2018 - 15:16 #6
"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.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester