I don't know what I am doing wrong....

[rlink_23]

I have used a code like this in a different part of my userform, To transfer info from a sheet to the userform. I have a list of Zipcodes in a sheet called ("Zips") in Column A is the actual Zip code, the State is in Column B, and City is Column C. What I am trying to do is when the Zip code is entered into TextBox ("Zipcode") It populates TextBox ("City") and TextBox ("State"). I have used a very similar code Elsewhere in my userform but this code WILL NOT work at all.. I know it is trying as it runs super super solw when I am typing in the TextBox ("ZipCode"). I think I have used Dim I As long before so maybe that is cousiung an issue.. idk.. Please help!!! Maybe I am just missing something and am not noticing the smallest detail...

Private Sub ZipCode_Change()Dim I As Long, Lastrow As Long
Lastrow = Sheets("Zips").Range("A" & Rows.Count).End(xlUp).Row
For I = 2 To Lastrow


If Sheets("Zips").Cells(I, "A").Value = ZipCode Or _
Sheets("Zips").Cells(I, "A").Value = Val("ZipCode") Then


Me.State = Sheets("Zips").Cells(I, "B").Value
Me.City = Sheets("Zips").Cells(I, "C").Value






End If


Next






End Sub

 

[Roderick_E]

It's done by just entering the number in the textbox. Then it populates. I just thought it would be nice if you make a mistake that when you clear the textbox it will clear the other textboxes

the red text I added should do the trick. Will clear before search result.

 

[rlink_23]

I just added this bit.. It seems to work. I will try your way

 If ZipCode = "" Then  

Me.State = Clear
  Me.City = Clear
   End If[CODE]


Ok that didnt work lol I will try your way haha