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 Forsker
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 Forsker
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





CIO
Global it-boss: Du kan ikke lede en tech-virksomhed gennem et regneark - fornemmelse for teknologien er afgørende
Interview: Ledelsesgangen i en techvirksomhed må ikke være et gemmested for chefen. Hvis du vil have succes som leder i dag, skal du have hænderne nede i skidtet. Den amerikanske tech-topchef Pat Gelsinger guider dig her til succes som leder.
Job & Karriere
Se listen: Disse it-folk bliver ansat på stedet - cheferne skriger efter helt bestemte it-kompetencer
Der er en markant mangel på it-folk med helt bestemte kompetencer samtidig med, at it-cheferne er i gang med at øge bemandingen i it-organisationerne. Se listen med de mest efterspurgte it-kompetencer netop nu.
White paper
Sådan vælger du business intelligence-løsning
I dette whitepaper undersøger vi, hvilke faktorer du skal være opmærksom på, når du vælger din kommende BI-løsning