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

Ekte data kommer ikke med en etikett som forteller deg hvor de slutter. Hardkoding av Range("A1:I5") slutter å fungere den dagen noen legger til en sjette ordre — derfor må du spørre arket hvor dataene slutter.
### Finne siste rad
Den mest brukte kodelinjen i hele dette kurset:
```
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
```
Les dette fra høyre mot venstre: start helt nederst i kolonne A (`ws.Rows.Count`), hopp oppover (`End(xlUp)`) til du treffer den første utfylte cellen, og returner radnummeret. Dette fungerer uansett hvor mange ordrer som finnes.


### Finne siste kolonne
Fungerer på samme måte, men sidelengs:
```
Dim lastCol As Long
lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
```

### UsedRange
Rapporterer det fullstendige rektangulære området på arket som noen gang har inneholdt data — nyttig for en rask kontroll, men bruk det med forsiktighet: det husker celler som tidligere hadde data selv etter at du har slettet innholdet, så det kan overvurdere det faktiske dataområdet ditt.
```
Debug.Print ws.UsedRange.Address        ' e.g. $A$1:$I$6
Debug.Print ws.UsedRange.Rows.Count     ' 6
```

### CurrentRegion
Vanligvis det bedre verktøyet: det utvider seg utover fra én enkelt celle til den sammenhengende blokken med data rundt, og stopper ved første tomme rad eller kolonne — samsvarer nøyaktig med en ryddig tabell 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
```

## Oppgave
1. Skriv en `Sub` som finner siste rad ved å bruke `End(xlUp)`-metoden og skriver det ut i **Umiddelbar-vinduet**.
2. I samme `Sub`, finn siste rad på en annen måte ved å bruke `CurrentRegion.Rows.Count`, og skriv også ut dette — bekreft at de stemmer overens.
3. Legg manuelt til en sjette ordre på rad 7 i arket, kjør makroen på nytt, og bekreft at begge metodene nå rapporterer 7 uten noen endringer i koden:


**1. Finne siste rad med End(xlUp)**

- Start fra helt nederst i kolonne A og hopp oppover — samme mønster som i kapittel 3, "Finne siste rad".
- `Debug.Print` resultatet slik at det vises i Umiddelbar-vinduet (Ctrl+G).

**2. Finne det på en annen måte med CurrentRegion**

- `CurrentRegion` utvider seg fra én startcelle (prøv `Range("A1")`) til hele sammenhengende blokken.
- `.Rows.Count` på dette området inkluderer overskriftsraden — husk kapittelets merknad om å trekke fra 1 hvis du kun vil ha datarader. Siden denne oppgaven bare ber deg sammenligne de to metodene, skriv ut det rå antallet først og vurder overskriften etterpå.

**3. Legge til en sjette rad og kjøre på nytt**

- Ingen endringer i koden nødvendig — bare skriv inn en ny ordre direkte i rad 7 i regnearket, og kjør samme `Sub` igjen.

Tips

```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

Oppdag hvordan du kan forvandle Excel fra et statisk regnearkverktøy til en kraftig motor for forretningsautomatisering. Dette kurset tar deg fra å skrive din aller første makro til å bygge en komplett, flertrinns arbeidsflyt som importerer data, genererer rapporter og sender e-poster – alt med ett enkelt klikk. Behersk de grunnleggende VBA-ferdighetene som lar deg eliminere repeterende manuelt arbeid: lese og skrive data i stor skala, bygge interaktive skjemaer, automatisere tabeller og pivottabeller, samt håndtere feil som en profesjonell utvikler. Underveis får du praktisk erfaring med realistiske forretningsscenarier – fakturering, batchfilbehandling og rapportering – ved hjelp av eksempeldatasett laget spesielt for øving. Ved kursets slutt vil du ha selvtillit og teknisk grunnlag til å designe dine egne automatiseringsløsninger, og spare timer med manuelt arbeid i ekte regneark du bruker hver dag.

Fordyp deg i grunnleggende VBA ved å utforske Excel-objektmodellen og sette opp utviklingsmiljøet ditt. Lær å spille inn, kjøre og skrive dine første makroer, og få en solid forståelse av hvordan Application-, Workbook-, Worksheet- og Range-objektene henger sammen.

Bygg selvtillit i grunnleggende programmeringskonsepter: variabler, datatyper, operatorer og innebygde funksjoner. Behersk betinget logikk og løkker, og bruk dem på et reelt datasett ved å lage et fungerende lageralarm-makro.

Lær hemmelighetene bak effektiv lesing, skriving og formatering av celldata. Utforsk teknikker for å navigere i regneark, arbeide med dynamiske områder og behandle store datasett ved hjelp av matriser for maksimal ytelse.

Få praktisk erfaring med å automatisere Excel-tabeller, filtre, pivottabeller og diagrammer. Oppdag hvordan du kan bygge fullt automatiserte, oppdaterbare forretningsrapporter direkte fra VBA.

Utforsk hvordan du kan gjøre makroene dine interaktive ved hjelp av meldingsbokser, inndatabokser og egendefinerte brukerformer. Lær å validere brukerinput og bygge brukervennlige verktøy for dataregistrering.

Navigere i regneark

Finne siste rad

Finne siste kolonne

UsedRange

CurrentRegion

Oppgave