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