Makro giver fejl

Fejlen opstår ved ved
ActiveSheet.PageSeptup.PrintArea = "$A$1:$Q$48"
og/eller
ActiveSheet.Print

Prøv at stave rigtitg!  ;))

PageSeptup

Du har helt ret i den første linie :-)

men den anden linie giver stadig fejl

ActiveSheet.PrintOut

Begge linier virker nu som de skal - tak for hjælpen.

Hvis jeg lige må snige et tillægsspørgsmål ind:

Jeg skal have fundet sidste post i området B6:b305 og have flettet rækkenummeret herfra ind i linien
  ActiveSheet.PageSeptup.PrintArea = "$A$1:$Q$48"
Hvordan løses det?

prøv
ActiveSheet.PageSeptup.PrintArea = "$A$1:$Q" & Range("B305").End(xlUp).Row

excelent:
Først en lille beskrivelse af arket
B1:B5 er overskrifter og tomme linier
B6:b305 er navne eller, hvis ikke alle felter er udfyldt, et tomt felt

Din løsning tager rækkerne b1:b5 med, hvilket er OK.
Men i mit testark har jeg i B6:b10 indtastet navne, og din løsning tager kun række 6 (b6) med. Den mangler at tage de sidste 4 med

ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$" & Range("B305").End(xlUp).Row

ok kan du ikke lige køre denne test, og lad mig vide hvilken række den viser

Sub test()
MsgBox ("") & Range("B305").End(xlUp).Row
End Sub

excelent:
Det hjalp desværre ikke - den tager stadig kun den første indtastning med

prøv:

Sub Udskriv()
ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$" & Range("B305").End(xlUp).Row
ActiveSheet.PrintPreview
End Sub

Den viser 6

Kan det have noget gøre med, at række 5 er en linie der er tom (kun farve)

nej jeg oploader lige mit testark - øjeblik

http://pmexcelent.dk/Udskrift.xls

den virker ikke på nettet, gem først på HD

gammer - er du sikker på du arbejder i det rigtige ark ?

excelent
Jeg kan sagtens få dit testark til at køre korrekt, men når jeg kører den samme makro på mit eget ark får jeg stadig kun alle overskifter er med og den første indtastning.

Jeg har fået din makro til at virke i et andet ark, der dog ikke har samme opbygning.

Opbygningen af kolonne B i arket er sådan:
1. rk. - Navnet på arket (indtastet)
2. rk. - En overskrift
3. rk. - Tom linie formatteret med farve
4. rk. - En linie med teksten "TOTALER"
5. rk. - Tom linie formatteret med farve
6. rk - 305. rk. - Indtastede navne

Jeg har flere ark af samme opbygning som makroen heller ikke finder korrekt, og så lige et enkelt ark hvor den fungerer korrekt - lidt mystisk.

bynil:
På trods af min tidligere fejl, er jeg sikker på at jeg står i det rigtige ark :o)

ok: hvis række 306 er tom, så ret 305 til 306 i formlen

Har du prøvet

Sub x
  Range("B305").End(XlUp).Select
End Sub

Så får du konstateret hvor makroen arbejder når du finder den aktive celle. Der skulle meget gerne ikke være celler med værdi derunder.

brynil:

din sidste makro markerer kun felt b6

rækker under 305 er vel tomme ? (der forekommer kun navne til og med 305)?

Det er som excelent skriver sandsynligt, at startpunktet for din makro B305 er en celle med værdi. Derfor går det galt.

ja og derfor skal 305 ændres til 306, eller en celle længere ned e som er tom

Prøv at lege lidt med den Sub x jeg har vist, med forskellige værdier, så vil du se hvordan End(XlUp) fungerer.

Jeg har fundet ud af hvor det fejler:

Jeg har oplyst forkert, for kolonne B6:b305 består rent faktisk af følgende formel:
=HVIS(STAMOPLYSNINGER!B16="";"";STAMOPLYSNINGER!B16)

Jeg har automatisk gået ud fra, at når formlen indsatte "" i en celle, så er den også tom. Men det kan jeg jo så konstatere, at det er den ikke!!!!

Beklager mine fejlagtige oplysninger har medført det ekstra arbejde.

Kan det stadig gøres på samme måde, når der står formler i???

kikker på det

så må vi benytte en anden metode,- prøv

Sub Udskriv()
For x = 1 To 305
If Cells(x, 2) <> "" Then r = x
Next
ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$" & r
ActiveSheet.PrintPreview
End Sub

Sådan excelent, nu virker det.

Jeg opretter lige et spørgsmål med point til dig. Så kan brynil også få for sin hjælp.

brynil får pointene fra dette spørgsmål, mens excellent får 100 points i et nyt spørgsmål.

Og mange rigtigt mange gange tak for hjælpen

brynil smid et svar her!

Nup dem selv. Svaret på dit oprindelige spm skal du ikke gi point for. :))

Det er heller ikke det du får point for ;o)

men for din Sub x, som har lært mig lidt om hvordan End(XlUp) fungerer

Ok da, det hælper lidt på samvittigheden hvis vi tar den med! ;))

Det tænkte jeg nok. Men du har også lagt lidt tid i det, så det manglede da bare.