Afstemme bilag i dit økonomisystem – sådan markerer du ens bilagsnumre

Ikke alle økonomisystemer har indbygget modul til at afstemme bilag mellem f.eks. bank og systemet, og derfor anvender mange Microsoft Excel til denne opgave. I mit virke som Excelnørd er jeg stødt på utallige personer, der enten sidder og sammenligner to kolonner med bilag eller har printet sider ud og bruger en gul overstregningstusch. Det er fuldstændig spild af tid, så her får du en guide til hvordan du får Excel til at arbejde for dig.

Sådan kan du få Excel til at afstemme bilag

Du skal sikre dig at få begge kolonner i samme fil. En metode er at have udtræk på hvert sit ark – på den måde mister du ikke overblikket.

Højreklik på arknavnet og vælg Vis programkode.

Vis programkode

Her indsætter du følgende kode:

Sub MarkerEnsBilag()
Dim Range1 As Range, Range2 As Range, Rng1 As Range, Rng2 As Range, outRng As Range
xTitleId = "Marker ens bilag"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Marker område 1:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Marker område 2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng1 In Range1
xValue = Rng1.Value
For Each Rng2 In Range2
If xValue = Rng2.Value Then
If outRng Is Nothing Then
Set outRng = Rng1
Else
Set outRng = Application.Union(outRng, Rng1)
End If
End If
Next
Next
outRng.Select
Application.ScreenUpdating = True
End Sub

Derefter kører du makroen fra Makroer under menuen Udvikler. Nu har du taget kontrollen over Excel!

Se video af hvordan du automatisk markerer ens beløb

Tagged with:

Skriv et svar