Gramstrup Mester
19. maj 2017 - 20:16 Der er 2 kommentarer og
1 løsning

Print forskelige antal kopier med VBA

Hejsa

Jeg har nedenstående makro som jeg bruger til at printe en masse ark ud med. Den værdi der står i Kolonne N gør at jeg siden bliver udfyldt med det som er nødvendigt. Selve makroen fungere som den skal. Men i kolonne O står hvor mange kopier der skal ud af de enkle linjer. Det er meget skiftenede og er imellem 1-10 stk. Det er vigtigt at når der f.eks. skal printes 10 x af N2 så skal de komme inden de 2 x af N3 efter fulgt af 5 x N4 o.s.v. hvor antallet som sagt står i kolonne O.

Jeg er kørt lidt fast i det.

For Each c In Range("n2:n200")
If c.Value > 1 Then
    c.Copy
    Range("h50").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End If
Next
End Sub
Jan Hansen Ekspert
19. maj 2017 - 21:47 #1
For iCount=0 to c.Offset(0,1).Value
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next

Jan
Gramstrup Mester
20. maj 2017 - 08:14 #2
Perfekt. Dog laver den en ekstra kopi. Derfor har jeg rettet den så istedet for 0 står der 1 som kan ses herunder:

For iCount=1 to c.Offset(0,1).Value
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Så virker den lige som den skal. Mange tag for hjælpen.
Jan Hansen Ekspert
20. maj 2017 - 08:31 #3
Velbekomme var ikke testet.
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

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





Premium
Han blev ansat til at flytte Carlsbergs 700 servere i skyen på halvandet år: "Vi valgte at rive plasteret hurtigt af"
Interview: På mindre end halvandet år har Carlsberg flyttet hele bryggeriets it-infrastruktur fra 700 servere over i skyen. Den nye platform skal sikre, at Carlsberg i fremtiden kan rykke fra sine direkte konkurrenter i Vesteuropa. Derfor blev Jakob From hentet hjem fra USA.
Computerworld
Datatilsynet advarer om falske GDPR-tilsyn: Mystiske folk i tøj fra sikkerhedsfirma dukkede op hos dansk ørelæge
Dansk klinik er blevet udsat for et mistænkeligt besøg af to mænd i forklædning som tilsynsfolk fra Datatilsynet. Datatilsynet kommer nu med et opråb: "Jeg håber, at vi med denne advarsel kan undgå, at det gentager sig."
CIO
Henrik Jeberg om at arbejde i Silicon Valley: "Er du dygtig nok får du tilbud der får en til at falde ned af stolen."
Henrik Jeberg bor i San Francisco og er direktør i Hampleton Partners, der rådgiver om opkøb med særligt fokus på teknologi. Hør ham fortælle om forskellen på Danmark og Silicon Valley - og om nogle af de vilde forhold der hersker i verdens ubestridte tech-hovedstad.
Job & Karriere
Stor outsourcing i Region Hovedstaden kan føre til medarbejderflugt
Der er en risiko for, at vigtige it-medarbejdere vælger at forlade Region Hovedstaden, hvis et nyt stort outsourcing-projekt gennemføres.
White paper
Står din infrastruktur i vejen for virksomhedens udvikling? … her er de 10 vigtigste overvejelser
Oplever du, at din virksomheds it-infrastruktur er en stopklods for udviklingen af forretningen, digitalisering og konkurrencekraft? Måske er svaret hyperkonvergeret infrastruktur, hvor software og hardware smelter sammen i én konkurrencedygtig enhed, som er nem at administrere. Men der er 10 meget vigtige overvejelser at gøre sig, før man vælger en løsning. Læs dette whitepaper fra Lenovo og bliv klædt bedre på til at vælge rigtigt. 10 Key Considerations for Selecting Hyper-Converged Infrastructure - What to Know Before You Choose a Solution, Lenovo, 18 sider på engelsk.