Avatar billede Butterfly Ekspert
25. april 2016 - 12:48 Der er 3 kommentarer og
2 løsninger

Marker alle linjer i pivottabel undtaget den sidste

Hej
Hvordan kan jeg lave en markering til sidste celle med indhold, dog ikke sidste celle?
Jeg har en pivottabel hvor jeg gerne vil lave en kopi af alle rækker, dog ikke den sidste der er Hovedtotal
Lige nu ser det sådan ud, men mangler "minus sidste linje"
    Range("A4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
Avatar billede natkatten Mester
25. april 2016 - 13:41 #1
Måske noget i denne dur:

Sub Test()
Dim omr As Range
Set omr = ActiveSheet.Range("A4").CurrentRegion
omr.Resize(omr.Rows.Count - 1, omr.Columns.Count).Copy
End Sub
Avatar billede store-morten Ekspert
25. april 2016 - 19:33 #2
Range("A4").Select
    Range(Selection, Selection.End(xlDown).Offset(-1, 0)).Select
    Selection.Copy
Avatar billede Butterfly Ekspert
26. april 2016 - 13:15 #3
Mange tak for svarene, de er brugbar begge to. Så I skal dele pointene, skriv et svar og få point.
Avatar billede natkatten Mester
26. april 2016 - 15:35 #4
Et svar
/natkatten
Avatar billede store-morten Ekspert
26. april 2016 - 15:50 #5
Et svar
/Morten
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester