Emoncada
05-13-2013, 09:22 AM
I have the following code.
ThisWorkbook.FollowHyperlink Address:="http://wwwapps.ups.com/WebTracking/track?HTMLVersion=5.0&loc=en_US&" _
& "Requester=UPSHome&WBPM_lid=homepage%2Fct1.html_pnl_trk&trackNums=" _
& Me.ListBox1.List(0, 0) & "%0D%0A" _
& Me.ListBox1.List(1, 0) & "%0D%0A" _
& Me.ListBox1.List(2, 0) & "%0D%0A" _
& Me.ListBox1.List(3, 0) & "%0D%0A" _
& Me.ListBox1.List(4, 0) & "%0D%0A" _
& Me.ListBox1.List(5, 0) & "%0D%0A" _
& Me.ListBox1.List(6, 0) & "%0D%0A" _
& Me.ListBox1.List(7, 0) & "%0D%0A" _
& "&track.x=Track", NewWindow:=True
I have a listbox that gets populated from a spreadsheet.
This form will show the tracking #'s and with a click it checks all tracking numbers on UPS Website in group.
List box can have upto 25 rows, but lets say
Me.ListBox1.List(7, 0) = "" then it won't work.
How can I have it look at just the values in listbox and then have it add those to the hyperlink?
ThisWorkbook.FollowHyperlink Address:="http://wwwapps.ups.com/WebTracking/track?HTMLVersion=5.0&loc=en_US&" _
& "Requester=UPSHome&WBPM_lid=homepage%2Fct1.html_pnl_trk&trackNums=" _
& Me.ListBox1.List(0, 0) & "%0D%0A" _
& Me.ListBox1.List(1, 0) & "%0D%0A" _
& Me.ListBox1.List(2, 0) & "%0D%0A" _
& Me.ListBox1.List(3, 0) & "%0D%0A" _
& Me.ListBox1.List(4, 0) & "%0D%0A" _
& Me.ListBox1.List(5, 0) & "%0D%0A" _
& Me.ListBox1.List(6, 0) & "%0D%0A" _
& Me.ListBox1.List(7, 0) & "%0D%0A" _
& "&track.x=Track", NewWindow:=True
I have a listbox that gets populated from a spreadsheet.
This form will show the tracking #'s and with a click it checks all tracking numbers on UPS Website in group.
List box can have upto 25 rows, but lets say
Me.ListBox1.List(7, 0) = "" then it won't work.
How can I have it look at just the values in listbox and then have it add those to the hyperlink?