How to avoid error if value ="" in for loop

[Nitesh Khot]

Hi,

Attached file contains Chandoos Lat & long program..I want to modified code to do work as for loop but getting error when postal code is not available...I want to check postal code is blank if blank then zip code show"not found."

Error in code is below and Also File attached...

Zip = Mid(apan, InStr(1, apan, "<type>postal_code</type>") - 21, 6)

 

[Hui]

Put the following just before your line Zip =

on error resume next

then change Tet1 as below

Sub Test1()
'
  Dim Address1 As String
  Dim Lat_Lon1 As String
  Dim Zip1 As String
  Dim i As Range
  Dim lastrow As Integer
  lastrow = Range("A" & Rows.Count).End(xlUp).Row
  For Each i In Range("A2:A" & lastrow)
   
  Address1 = i.Value
   
  Zip1 = ""
   
  Call Lat_Lon_Zip(Address1, Lat_Lon1, Zip1)
   
  i.Offset(0, 1).Value = Lat_Lon1 & "-" & Zip1
  Next i
End Sub

 

[Nitesh Khot]

Thanks for prompt response...Awesome working what i want.....Thank you so much...

Happy Diwali to Chandoo.org..,to you & your family...