Matching ZIP code with post name (VBA)

[Lynx2x]

Hello again!

First of all thank you for everything and everybody that helped me with my problems. I have this big project work in my school and you guys are helping me alot.

So, my problem is, that I have just ZIP codes from posts around Slovenia in sheet1(ZIP), and in sheet2 (DataBase) I have all ZIP codes from our country (column A) and post names that belongs to that code (column B). What I need is a VBA that would lookup all ZIP codes from sheet1(ZIP) in column B and write down name of the post in column C.

Lets say that in column B is ZIP = 1000, in column C there would be name of the post(city) = Ljubljana

I know that this I could do with VLookUP, but I need a macro for this, so that everytime there is a new database, I would simply clik on the button.

Can anyone help me?

Example: ExampleZIP.xlsx

[johnjohns]

Perhaps this way. See the attachement.

[Lynx2x]

Thank you 1000 times!

Works great and you have helped me alot, because my knowledge of VBA is really poor. I can now move on with my project.

Thanks once again and have a great day!

[LL1980]

This code works even better as there is no need to click a button. It basically updates automatically once the data is downloaded
Simply copy and paste the 1st code in the ThisWorkbook module and the 2nd code in Sheet1(ZIP) module.

Please Login or Register  to view this content.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
on error resume next
i = WorksheetFunction.CountA(Range("c1:c1000"))
u = WorksheetFunction.CountA(Range("b1:b1000"))

If Sheets("zip").Range("b2").End(xlDown).Offset(0, 1) = "" Then _
Sheets("zip").Range("b2").End(xlDown).Offset(0, 1).End(xlUp).AutoFill Destination:=Range("c" & i, "c" & u)

End Sub

Please Login or Register  to view this content.

[LL1980]

My mistake. Should be:

Please Login or Register  to view this content.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

i = WorksheetFunction.CountA(Range("c1:c1000"))
u = WorksheetFunction.CountA(Range("b1:b1000"))

If Sheets("zip").Range("b2").End(xlDown).Offset(0, 1) = "" Then _
Sheets("zip").Range("b2").End(xlDown).Offset(0, 1).End(xlUp).AutoFill Destination:=Range("c" & i, "c" & u)

End Sub

Please Login or Register  to view this content.

[LL1980]

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

i = WorksheetFunction.CountA(Range("c1:c1000"))
u = WorksheetFunction.CountA(Range("b1:b1000"))

If Sheets("zip").Range("b2").End(xlDown).Offset(0, 1) = "" Then _
Sheets("zip").Range("b2").End(xlDown).Offset(0, 1).End(xlUp).AutoFill Destination:=Range("c" & i, "c" & u)

End Sub

[LL1980]

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)




i = WorksheetFunction.CountA(Range("c1:c1000"))
u = WorksheetFunction.CountA(Range("b1:b1000"))

If Sheets("zip").Range("b2").End(xlDown).Offset(0, 1) = "" Then _
Sheets("zip").Range("b2").End(xlDown).Offset(0, 1).End(xlUp).AutoFill Destination:=Range("c" & i, "c" & u)

End Sub