Summary  
This chapter explains how to dynamically determine the extent of worksheet data by finding the last occupied row and column with End(xlUp)/End(xlToLeft) and by using UsedRange and CurrentRegion to capture contiguous data blocks.

General domain of usage  
Spreadsheet automation

Rigtige data kommer ikke med en etiket, der fortæller dig, hvor de slutter. At hardkode Range("A1:I5") fejler den dag, nogen tilføjer en sjette ordre — derfor skal du spørge arket, hvor dets data slutter.
### Find den sidste række
Den mest anvendte kodelinje i hele dette kursus:
```
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
```
Læs dette fra højre mod venstre: start helt nederst i kolonne A (`ws.Rows.Count`), hop opad (`End(xlUp)`) indtil du rammer den første udfyldte celle, og returnér dens rækkenummer. Det virker uanset, hvor mange ordrer der findes.


### Find den sidste kolonne
Fungerer på samme måde, men vandret:
```
Dim lastCol As Long
lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
```

### UsedRange
Rapporterer det fulde rektangulære område på arket, der nogensinde har indeholdt data — nyttigt til et hurtigt overblik, men brug det med forsigtighed: det husker celler, der tidligere har indeholdt data, selv efter du har slettet indholdet, så det kan overvurdere dit faktiske dataområde.
```
Debug.Print ws.UsedRange.Address        ' e.g. $A$1:$I$6
Debug.Print ws.UsedRange.Rows.Count     ' 6
```

### CurrentRegion
Normalt det bedre værktøj: udvider sig udad fra en enkelt celle til det sammenhængende datablok omkring den og stopper ved den første tomme række eller kolonne — matcher præcist en ren tabel som Orders:
```
Dim tableRange As Range
Set tableRange = ws.Range("A1").CurrentRegion
Debug.Print tableRange.Address           ' $A$1:$I$6
Debug.Print tableRange.Rows.Count - 1    ' 5 — subtract 1 to exclude the header
```

## Opgave
1. Skriv en `Sub`, der finder den sidste række ved hjælp af `End(xlUp)`-metoden og udskriver den til **Immediate Window**.
2. I samme `Sub`, find den sidste række på en anden måde ved hjælp af `CurrentRegion.Rows.Count`, og udskriv også dette — bekræft at de stemmer overens.
3. Tilføj manuelt en sjette ordre til række 7 i arket, kør makroen igen, og bekræft at begge metoder nu rapporterer 7 uden nogen kodeændringer:


**1. Find den sidste række med End(xlUp)**

- Start fra bunden af kolonne A og hop opad — samme mønster som i Kapitel 3's afsnit "Find den sidste række".
- Brug `Debug.Print` for at vise resultatet i Immediate-vinduet (Ctrl+G).

**2. Find den på en anden måde med CurrentRegion**

- `CurrentRegion` udvider sig fra en enkelt startcelle (prøv `Range("A1")`) til hele det sammenhængende blok.
- `.Rows.Count` på det område inkluderer header-rækken — husk kapitlets note om at trække 1 fra, hvis du kun vil have datarækker. Da denne opgave blot beder dig sammenligne de to metoder, udskriv først det rå antal og overvej headeren bagefter.

**3. Tilføj en sjette række og kør igen**

- Ingen kodeændringer nødvendige — indtast blot en ny ordre direkte i række 7 i regnearket, og kør derefter den samme `Sub` igen.

```vba
Sub CompareLastRowMethods()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Orders")

    Dim lastRowMethod1 As Long
    lastRowMethod1 = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Debug.Print "End(xlUp): " & lastRowMethod1

    Dim lastRowMethod2 As Long
    lastRowMethod2 = ws.Range("A1").CurrentRegion.Rows.Count
    Debug.Print "CurrentRegion: " & lastRowMethod2
End Sub
```

Løsning

Opdag, hvordan du kan forvandle Excel fra et statisk regnearksprogram til en kraftfuld motor for forretningsautomatisering. Dette kursus fører dig fra at skrive din allerførste makro til at opbygge en komplet, flertrins arbejdsgang, der importerer data, genererer rapporter og sender e-mails — alt sammen med ét enkelt klik. Behersk de centrale VBA-færdigheder, der gør det muligt at eliminere gentagne manuelle opgaver: læsning og skrivning af data i stor skala, opbygning af interaktive formularer, automatisering af tabeller og pivottabeller samt håndtering af fejl som en professionel udvikler. Undervejs får du praktisk erfaring med realistiske forretningsscenarier — fakturering, batchfilbehandling og rapportering — ved hjælp af eksempeldatasæt, der er udviklet specifikt til øvelser. Ved kursets afslutning vil du have selvtilliden og det tekniske fundament til at designe dine egne automatiseringsløsninger og spare timer af manuelt arbejde i de regneark, du bruger hver dag.

Dyk ned i grundlæggende VBA ved at udforske Excels objektmodel og opsætte dit udviklingsmiljø. Lær at optage, køre og skrive dine første makroer, og opnå en solid forståelse af, hvordan Application-, Workbook-, Worksheet- og Range-objekter hænger sammen.

Opbyg selvtillid i grundlæggende programmeringskoncepter: variabler, datatyper, operatorer og indbyggede funktioner. Behersk betinget logik og løkker, og anvend dem på et reelt datasæt ved at oprette et fungerende lageradvarselsmakro.

Lær hemmelighederne bag effektiv læsning, skrivning og formatering af celldata. Udforsk teknikker til at navigere i regneark, arbejde med dynamiske områder og behandle store datasæt ved hjælp af arrays for maksimal ydeevne.

Få praktisk erfaring med at automatisere Excel-tabeller, filtre, pivottabeller og diagrammer. Opdag, hvordan man opbygger fuldautomatiske, opdaterbare forretningsrapporter direkte fra VBA.

Undersøg, hvordan du gør dine makroer interaktive ved hjælp af meddelelsesbokse, inputbokse og brugerdefinerede UserForms. Lær at validere brugerinput og opbygge brugervenlige værktøjer til dataindtastning.

Navigere i regneark

Find den sidste række

Find den sidste kolonne

UsedRange

CurrentRegion

Opgave