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

Echte gegevens hebben geen label dat aangeeft waar ze eindigen. Het hardcoderen van Range("A1:I5") werkt niet meer zodra iemand een zesde order toevoegt — daarom moet je het werkblad vragen waar de gegevens eindigen.
### De laatste rij vinden
De meest gebruikte code in deze hele cursus:
```
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
```
Lees dit van rechts naar links: begin helemaal onderaan kolom A (`ws.Rows.Count`), spring omhoog (`End(xlUp)`) tot je de eerste bezette cel tegenkomt, en geef het rijnummer terug. Dit werkt ongeacht het aantal orders.


### De laatste kolom vinden
Werkt op dezelfde manier, maar dan horizontaal:
```
Dim lastCol As Long
lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
```

### UsedRange
Geeft het volledige rechthoekige gebied van het werkblad weer dat ooit gegevens heeft bevat — handig voor een snelle controle, maar gebruik het met voorzichtigheid: het onthoudt cellen die eerder gegevens hadden, zelfs nadat je hun inhoud hebt verwijderd, waardoor het je daadwerkelijke gegevensbereik kan overschatten.
```
Debug.Print ws.UsedRange.Address        ' e.g. $A$1:$I$6
Debug.Print ws.UsedRange.Rows.Count     ' 6
```

### CurrentRegion
Meestal het betere hulpmiddel: breidt zich uit vanuit één cel naar het aaneengesloten gegevensblok eromheen en stopt bij de eerste lege rij of kolom — komt exact overeen met een nette tabel zoals 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
```

## Taak
1. Schrijf een `Sub` die de laatste rij vindt met de `End(xlUp)`-methode en deze afdrukt in het **Directvenster**.
2. Zoek in dezelfde `Sub` de laatste rij op een tweede manier met `CurrentRegion.Rows.Count` en druk deze ook af — controleer of ze overeenkomen.
3. Voeg handmatig een zesde order toe op rij 7 van het werkblad, voer je macro opnieuw uit en controleer of beide methoden nu 7 rapporteren zonder enige codewijzigingen:


**1. De laatste rij vinden met End(xlUp)**

- Begin helemaal onderaan kolom A en spring omhoog — hetzelfde patroon als in hoofdstuk 3, sectie "De laatste rij vinden".
- Gebruik `Debug.Print` om het resultaat te tonen in het Direct-venster (Ctrl+G).

**2. Op een tweede manier vinden met CurrentRegion**

- `CurrentRegion` breidt uit vanaf één startcel (probeer `Range("A1")`) tot het volledige aaneengesloten blok.
- `.Rows.Count` op die regio telt ook de koprij mee — let op de opmerking in het hoofdstuk over het aftrekken van 1 als je alleen datarijen wilt. Omdat deze taak alleen vraagt om de twee methoden te vergelijken, print eerst het ruwe aantal en redeneer daarna over de koprij.

**3. Een zesde rij toevoegen en opnieuw uitvoeren**

- Geen codewijzigingen nodig — typ gewoon een nieuwe order direct in rij 7 van het werkblad en voer dezelfde `Sub` opnieuw uit.

Hint

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

Oplossing

Ontdek hoe u Excel kunt transformeren van een statisch spreadsheetprogramma tot een krachtig hulpmiddel voor bedrijfsautomatisering. Deze cursus begeleidt u van het schrijven van uw allereerste macro tot het bouwen van een complete, meerstaps workflow die gegevens importeert, rapporten genereert en e-mails verzendt — allemaal met één klik. Beheers de essentiële VBA-vaardigheden waarmee u repetitief handmatig werk elimineert: grootschalig lezen en schrijven van gegevens, het bouwen van interactieve formulieren, het automatiseren van tabellen en draaitabellen, en het afhandelen van fouten als een professionele ontwikkelaar. Onderweg doet u praktijkervaring op met realistische bedrijfsscenario's — facturatie, batchverwerking van bestanden en rapportage — met voorbeeldgegevens die speciaal zijn ontworpen voor oefening. Aan het einde beschikt u over het vertrouwen en de technische basis om uw eigen automatiseringsoplossingen te ontwerpen, waarmee u uren handmatig werk bespaart in de spreadsheets die u dagelijks gebruikt.

Duik in de basisprincipes van VBA door het Excel-objectmodel te verkennen en uw ontwikkelomgeving in te stellen. Leer hoe u uw eerste macro's opneemt, uitvoert en schrijft, en verkrijg een grondig begrip van hoe Application-, Workbook-, Worksheet- en Range-objecten samenhangen.

Bouw vertrouwen op in kernprogrammeconcepten: variabelen, gegevenstypen, operatoren en ingebouwde functies. Beheers conditionele logica en lussen, en pas deze toe op een echte dataset door een werkende voorraadwaarschuwingsmacro te maken.

Leer de geheimen van het efficiënt lezen, schrijven en opmaken van celgegevens. Ontdek technieken voor het navigeren door werkbladen, werken met dynamische bereiken en het verwerken van grote datasets met behulp van arrays voor maximale prestaties.

Doe praktische ervaring op met het automatiseren van Excel-tabellen, filters, draaitabellen en grafieken. Ontdek hoe volledig geautomatiseerde, vernieuwbare bedrijfsrapporten rechtstreeks vanuit VBA kunnen worden opgebouwd.

Ontdek hoe u uw macro's interactief kunt maken met behulp van berichtvensters, invoervelden en aangepaste UserForms. Leer hoe u gebruikersinvoer valideert en gebruiksvriendelijke gegevensinvoertools bouwt.

Werkbladen Navigeren

De laatste rij vinden

De laatste kolom vinden

UsedRange

CurrentRegion

Taak