hvis F1:G44 er ledig i arket kan du evt. prøve denne udskift Ark8 med dit ark navn
Sub SpecielPrint() Sheets("Ark8").Range("C45:D88").Copy Sheets("Ark8").Range("F1") Sheets("Ark8").Range("C1:G44").Select Selection.PrintPreview 'Selection.PrintOut Sheets("Ark8").Range("F1:G44") = "" End Sub
De er så ikke ledige... Hmm.. jeg tænkte på at det måtte være muligt at definere print area til at dele sig på midten og printe resten ved siden af når man valgte landscape format??
Jeg har alle personers navne stående i C3 til C70 (bliver hele tiden flere men næppe over 100) I D3-D70 er der et tomt felt hvor de på det udprintede sætter krydser. Så printet består af C3-C70 og D3-D70 Jeg bruger a,b,e,f o.s.v. til andre ting...
Måske kunne jeg bruge felter støøre end 100, da jeg nok aldrig kommer derned...
1 opret ark 2 marker sellen hvor den første værdi skal være 3 tast = og marker den første værdi i det andet ark + enter 4 marker sellen igen og træk i fyldhåndtag fx. 50 seller ned 5 marker første selle i næste kolonne 6 tast = og marker den første værdi du mangler i det andet ark 7 marker sellen igen og træk i fyldhåndtag fx. 50 seller ned
formater arket/udskift m.v. så burde du være kørende
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.
