07. december 2014 - 15:43Der er
15 kommentarer og 1 løsning
Automatisk udskrift af udfyldte ark
Lige et sidste spørgsmål i denne omgang :)
Jeg har fikset en formular i en projektmappe, der fylder op til 40 ark.
Der er behov for at udskrive de udfyldte ark, og antallet varierer, idet formularen automatisk udfylder det antal ark der skal bruges.
Så kommer 200 Points spørgsmålet:
Kan det lade sig gøre at lave en funktion, der udskriver de ark, hvor der f.eks er indhold i F7, mens de øvrige ark ikke udskrives ?
F.eks. Celle F7 er udfyldt i Ark 1, Ark 2, Ark 3, Ark 4, Ark 5, Ark 6 Ark 7 og Árk 8. mens celle F7 er tomt i resten af arkene. Det er så kun ark 1 til 7, der skal udskrives.
Public Sub udskrivArkBetinget() Const betingelse = "F7" Dim Ark
For Each Ark In ActiveWorkbook.Sheets If Ark.Range(betingelse) <> "" Then Ark.Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False
Hmm, jeg havde vist ikke helt fået forklaret projektet. F7 bliver udfyldt, når der registreret en dato i et andet felt. Det ser ud om om makroen, som iøvrigt fungerer fint, idet den meget fint sorterer Ark fra, der er helt tomme, uden formler.
Men netop i F7 i de aktuelle ark, er der en formel:=HVIS(B1="";"";"udskriv")
Kan man lave det så makroen ikke "ser" formlen og agerer som om feltet er tomt?
Kanon, det virker, med en lille ændring, mange tak, kast lige et svar, så du kan få nogle point :)
Ændringen:
Public Sub udskrivArkBetinget() Const betingelse = "F7" Dim Ark
For Each Ark In ActiveWorkbook.Sheets If Ark.Range(betingelse) = "udskriv" Then Ark.Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False
Hej igen, er det et problem at arkene er beskyttede ? Når jeg kører test i mit testprojekt, ser det ud til at virke, men når jeg lægger den ind i mit fullscale projekt, og kompilerer, kommer der følgende fejlmedd:
Run-time error '428' Object doesn't support this property method
Nej, det er denne: If Ark.Range(betingelse) <> "" Then
Men det er lidt underligt, for jeg har lavet en test projektmappe, der indeholder samme antal ark, som og der virker det udmærket. Men projektmappen virker det simpelthen ikke i. Jeg tænkte, at det er for tungt, så jeg har lavet en kopi og hevet ark ud, så der nu kun er 10 ark i den, og det virker stadig ikke. Der er masser af øvrig kode i projektet, men det burde jo ikke gøre, at udskriftfunktionen ikke kan virke.
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.
