14. februar 2012 - 13:09Der er
2 kommentarer og 1 løsning
Print ud fra liste med VBA.
Jeg har et ark hvor man skal skifte kundenr i felt "C3" og så skal det printes. Jeg kunne godt tænke mig i et andet ark at man kan indsætte en liste over kunde nr og så køre en makro. Så kunderne 1 efter 1 bliver kopiereet over på det andet ark og udprintet. Mængden af kunde nr kan variere.
Jeg har forsøgt med denne kode. Men i de felte hvor der ikke står kunde nr udskriver den alligevel en side. Istedet for den kopieret værdi skriver den: Range("C3").Select
Jeg bruger excel 2007 kan nogen hjælpe?
Sub Makro1() ' ' Makro1 Makro ' For Each c In Range("b2:b6") If c.Value > 1 Then c.Copy Sheets("Ark2").Select Range("C3").Select ActiveSheet.Paste Application.CutCopyMode = False ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Next Else Next End Sub
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Sub Makro1() ' ' Makro1 Makro ' For Each c In Range("b2:b6") If c.Value > 1 Then c.Copy Sheets("Ark2").Select Range("C3").Select ActiveSheet.Paste Application.CutCopyMode = False ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Next End Sub
Sub Makro1() ' ' Makro1 Makro ' For Each c In Range("b2:b6") If c.Value > 1 Then c.Copy Sheets("Ark2").Select Range("C3").Select ActiveSheet.Paste Application.CutCopyMode = False ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" End if Next End Sub
Den virker lige netop... Ikke den store ændringer der er lavet. Men giver præcis den ønskede effet :-)
Synes godt om
Ny brugerNybegynder
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.
