Opzet postcode vergelijken

[ABO01]

In kolom A zijn de postcodes. In kolom B is opzet van de postcodes hoe het moet zijn (N is voor nummer en A is voor letter) en spatie moet ie ook mee vergelijken. In kolom C wil ik zien of postcode in kolom A goed is of niet goed.

 

[JEC.]

Oplossing met hulpkolommen

 

[sylvester-ponte]

wat wordt er bedoeld met [A] ?
en wat met [A/N] ?
misschien kun je in je eigen bestand aanvullen wat de uitkomst moet zijn.

 

[ABO01]

JVeer,

Als ik iets verander in kolom A dan werkt formule niet meer? Krijg ik #NAME? in de cel

 

[sylvester-ponte]

AB, welke versie van excel gebruik jij?

 

[ABO01]

Hi Sylvester Ponten,

Ik heb Excel 2013. Is gewoon vergelijking van opzet van postcodes. Uitkomst zou moeten zijn Juist en/of Niet juist. File die JVeer heeft bijgewerkt is opzich wel goed. Maar zodar ik iets in kolom A verander dan werkt niks meer.

 

[sylvester-ponte]

idee van Jveer. aangepast aan jouw excel versie en verborge kolommen zichtbaar.

toch ben ik benieuwd wat die [ ] haken in jouw bestand betekenen.

 

[ABO01]

Hi Sylvester Ponten,

Het werkt nu goed, dank je wel. Die [ ] haken beteken niks, en het uitkomst is dat het niet klopt. Dat is dus goed.

Ik heb wel een vraag nog als het kan. Ik wil altijd proberen of te begrijpen wat een formule doet in excel. Wat betekent dat (A1) in formule? Want in cel naast zie ik B2. Is dat positie van de karakter?

 

[sylvester-ponte]

A1 betekend de waarde uit cel A1 (kolom A rij 1)

 

[ABO01]

Hi Sylvester Ponten,

Dank je wel. Geweldig

 

[HSV]

Hier met een stukje code.

Sub hsv()
Dim sv, a, i As Long
 sv = Cells(1).CurrentRegion.Resize(, 3).Value
 ReDim a(UBound(sv), 2) As String
  With CreateObject("VBscript.Regexp")
    For i = 2 To UBound(a)
      a(i - 2, 0) = sv(i, 1)
      a(i - 2, 1) = sv(i, 2)
              .Global = True
              .Pattern = "[a-zA-Z]"
               a(i - 2, 2) = .Replace(sv(i, 1), "A")
              .Pattern = "[0-9]"
               a(i - 2, 2) = .Replace(a(i - 2, 2), "N")
          a(i - 2, 2) = IIf(sv(i, 2) = a(i - 2, 2), "juist", "onjuist")
        Next i
    End With
Cells(2, 1).Resize(UBound(a), 3) = a
End Sub

De array (sv) omgezet in array(a) omwille de voorloopnullen in kolom A.

Of:

Sub hsv()
Dim sv, a, i As Long
 sv = Cells(1).CurrentRegion
  With CreateObject("VBscript.Regexp")
    For i = 2 To UBound(sv)
              .Global = True
              .Pattern = "[a-zA-Z]"
               sv(i, 1) = .Replace(sv(i, 1), "A")
              .Pattern = "[0-9]"
               sv(i, 1) = .Replace(sv(i, 1), "N")
         sv(i, 1) = IIf(sv(i, 1) = sv(i, 2), "juist", "onjuist")
        Next i
    End With
    sv(1, 1) = Cells(1, 3)
Cells(1, 3).Resize(UBound(sv)) = sv
End Sub