Als cel is gevuld dan naar volgende rij

Status
Niet open voor verdere reacties.

Daniel9654

Nieuwe gebruiker
Lid geworden
17 sep 2019
Berichten
3
Hoi goededag,

We houden sinds een tijdje onze uitgaven bij in een excelbestand. Ik download een CSV document vanaf de bank. Dit plaats ik in een excel document. Met behulp van VBA wordt er aan de hand van de beschrijving een categorie aan de inkomsten of uitgaven toebedeeld. Voorbeeld:

Afschrijving van de ALBERT HEIJN plaatst de VBA in categorie boodschappen.

De categorieën zijn uitgeschreven op een tab Keywords. Daar gaat de code doorheen. Als er een match is op de keywords (bijv. Albert Heijn) plaatst de vba dus een categorie erbij. Alleennn en hier komt de hulpvraag. Kunnen jullie mij helpen met een stukje code dat als: de afschrijving van Albert Heijn al toebedeeld is in een categorie. Dat de VBA hem dus niet opnieuw gaat berekenen. Het bestand is bijgevoegd in de bijlage.

Het gaat erom dat als er al een categorie staat in kolom J dat de macro hem dan overslaat. Dit komt dus voor als ik een nieuwe maand met afschrijvingen toevoeg, dan hoeft die maand -/- 1 niet nog een keer te berekenen. Hij begint nu telkens helemaal opnieuw. We doen het nu een aantal maanden, dus die macro duurt veel langer..

Ben heel benieuwd. :)
 

Bijlagen

  • Kasboekje DEF 2020 blanco.xlsm
    56,6 KB · Weergaven: 32
Maak de tabel niet groter dan nodig. Dus geen lege rijen in de tabel.

Code:
Sub Do_It()
  ar = Sheets("CSV bank download").ListObjects(1).DataBodyRange.Formula
  ar1 = Sheets("Keywords").Cells(1).CurrentRegion
  For j = 1 To UBound(ar)
    If ar(j, 10) = "" Then
      For jj = 1 To UBound(ar1)
        If InStr(1, ar(j, 2), ar1(jj, 1), vbTextCompare) Then
          ar(j, 10) = ar1(jj, 2)
          Exit For
        End If
      Next jj
    End If
  Next j
  Sheets("CSV bank download").ListObjects(1).DataBodyRange = ar
End Sub
 
Solved

@VenA

Geweldig. Het werkt gewoon helemaal met veel meer snelheid. Super, dankjewel!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan