Hi allen,
Ik wil postcode omzetten in provinciecode. Nu zoek je dan in heel veel range en heb ik daar een macro voor geschreven. Mijn bestand is groot. 93071 regels en de provincie codes dat zijn er ook heel wat gezien de diversiteit in postcodes. Wat kan ik aanpassen zodat ik toch op een snelle manier de provinciecode kan toevoegen? Dank!
Dim i As Integer
i = 2
While i < 93071
If Cells(i, 20) >= 3218 And Cells(i, 20) <= 3225 Then Cells(i, 22) = "Zuid-Holland" Else
If Cells(i, 20) >= 4796 And Cells(i, 20) <= 4796 Then Cells(i, 22) = "Noord-Brabant" Else
If Cells(i, 20) >= 7152 And Cells(i, 20) <= 7152 Then Cells(i, 22) = "Gelderland" Else
If Cells(i, 20) >= 8000 And Cells(i, 20) <= 8044 Then Cells(i, 22) = "Overijssel" Else
i = i + 1
Wend
Ik wil postcode omzetten in provinciecode. Nu zoek je dan in heel veel range en heb ik daar een macro voor geschreven. Mijn bestand is groot. 93071 regels en de provincie codes dat zijn er ook heel wat gezien de diversiteit in postcodes. Wat kan ik aanpassen zodat ik toch op een snelle manier de provinciecode kan toevoegen? Dank!
Dim i As Integer
i = 2
While i < 93071
If Cells(i, 20) >= 3218 And Cells(i, 20) <= 3225 Then Cells(i, 22) = "Zuid-Holland" Else
If Cells(i, 20) >= 4796 And Cells(i, 20) <= 4796 Then Cells(i, 22) = "Noord-Brabant" Else
If Cells(i, 20) >= 7152 And Cells(i, 20) <= 7152 Then Cells(i, 22) = "Gelderland" Else
If Cells(i, 20) >= 8000 And Cells(i, 20) <= 8044 Then Cells(i, 22) = "Overijssel" Else
i = i + 1
Wend