Transfer zip code to another column
Hello,
I need your help with a script:
In my spreadsheet, in column E, starting at line 3 and going down, I have different postal code. Now what I want to do is that, if the 3 first digits from the postal code are followed by the same 3 last digits, in column F, it will write only the 3 first digits. If the 3 first are the same but the 3 last are not the same, it will write the entire postal code in column F.
EX:
"COL E" "COL F"
C2B 4F9 C2B
C2B 4F9 C2B
C9T 3R4 C9T 3R4
C9T 1J0 C9T 1JO
I have an error on my script:
Code:
Private Sub CommandButton3_Click()
'For the postal code
Sheets("TL Data ").Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Range("F3").Select
Set MaZone = Range("E3:" & Range("E65536").End(xlUp).Address)
For Each x In MaZone
x.Offset(0, 1) = Split(x, " ")(0)
Set c = MaZone.find(Split(x, " ")(0))
firstAddress = c.Address
Do
If x.Value <> c.Value Then x.Offset(0, 1) = x: Exit Do
Set c = MaZone.FindNext(c)
Loop While c.Address <> firstAddress
Next
End Sub
It sais: Object variable or with block variable not set (run time error 91)
And it has to to i think with that section of the code:
Code:
firstAddress = c.Address
Thanks for your help.
