Hej jeg har et regneark, med 50 faner (afd1, afd.2 osv)
Disse faner henter data fra andre regneark og mængden af data afviger fra periode til periode.
Jeg vil gerne have at den gemme de 50 faner som en PDF fil og det er her problemet opstår.
For hver fane har formler fra række 1 til 1000. Hvis den ikke kan finde data i formlen, så udfylder den cellen blankt. Men når den printer til PDF, så printer den alle 1000 rækker, men den skulle kun printe fra række 1 til den række som er sidst med vist data.
Det skal være en automatisk formel, som retter print området, da det vil tage for lang tid manuelt at skulle rette udskriftsområde hver uge for alle fanerne.
Sub omraade() Dim WS As Worksheet Dim x As Integer For Each WS In ActiveWorkbook.Worksheets Range("C:C").Select x = WorksheetFunction.Count(Range("C:C")) WS.PageSetup.PrintArea = "$A$1:$d$" & x + 2 Cells(1, 1).Select Next End Sub
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.
