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
Hjalp virksomheder Atea med at klage over omstridt udbud i Region Sjælland? Forsvarer udpeger Ib Kunøe som fællesnævner
Der indløb klager fra flere it-selskaber, da Region Sjælland i 2015 udpegede 3A-it som vinder af et stort it-udbud foran næsen af Atea. Det pudsige er, at klagerne var næsten ens. Forsvarer i Atea-sagen peger på et interessant sammenfald - Ib Kunøe.
Computerworld
Fona-ejer skal betale million-beløb tilbage: Hævede 22 millioner kroner lige inden krak
Fona-ejeren Elkjøp Nordic trak uretmæssigt 22 millioner kroner ud af selskabet lige inden salget af den kendte kæde gik ned med flaget.
CIO
Her er tre vigtige spørgsmål, som du altid bør stille til sælgere af it-systemer
Klumme: Softwareudviklere elsker at hade sælgere, der generelt er lidt for glatte, lidt for smilende, lidt for hjertelige og også dygtige til at undvige eller parere, når man fagligt argumenterer for sine forbehold overfor det system, man lige har fået præsenteret og lynhurtigt har spottet ikke vil fungere.
Job & Karriere
Regeringen vil gøre it-undervisning obligatorisk i folkeskolen: "Planen er, at alle danske børn skal lære at kode," siger undervisningsministeren
Interview: Regeringen indfører obligatorisk undervisning i it i folkeskolen på alle klassetrin og præsenterer fredag ny plan. Ny forsøgsordning i op til 50 skoler skal bane vejen. “Visionen for planen er, at alle danske børn skal lære at kode,” siger undervisningsminister Merete Riisager (LA).
White paper
Digitalisering i verdensklasse: Lær af finanssektorens erfaringer og nye syn på infrastruktur
Digitaliseringen buldrer afsted i erhvervslivet, men få brancher er så langt fremme som finanssektoren i bestræbelserne på digital transformation. Det har resulteret i en masse erfaringer om blandt andet hybrid infrastruktur, som andre kan drage nytte af. Læs i dette whitepaper udarbejdet af IDC for Interxion om udviklingen, den nye tankegang og de umiddelbare fordele. 12 sider på engelsk.