How I calculate distance 2 colum with VBA code (Radius of the earth in Kilometer)

Dear Sir
How I calculate distance 2 colum with VBA code (Radius of the earth in Kilometer)
Step
----------------------------
If
1.Select Location ID at Worksheet("INPUT").Cell ("2:2")
2.Select Radius less than equal at Worksheet("INPUT").Cell ("2:3")
3.Get Result at Worksheet("INPUT").Range ("F2:G")
If
1.If Select New Location ID at Worksheet("INPUT").Cell ("2:2")
2.Select Radius less than equal at Worksheet("INPUT").Cell ("2:3")Location-distance-.png
3.Get Result at Worksheet("INPUT").Range ("F2:G")

Thank you
arttyv1

----------------------------------------------------

Please Login or Register  to view this content.

Are you trying to calculate the great circle distance between any two lat/long points?

If not would you explain exactly what you are trying to do, manually add some results and importantly explain your calculation for arriving at the results.
I'm struggling to understand why you need a radius drop down box since the earth's radius is a constant (for all practical purposes - I know it varies from pole to equator).

Neither do I understand what the Source and Target columns are.

Are you still looking for help.

If so I don't understand what you are trying to do, and trying to reverse engineer your macro into a meaningful statement of requirement I find difficult to do.

If you'd like to review what I said in post #2 and address the points I made then maybe we can help further.

With all these things a sample list of inputs and the manually calculated results you expect are vital so that we can understand the overall goal. Be sure to explain your calculations that produce the results you show,

Dear Richard
After I revise decode vba my code is WORK is FINE with small row
If large Row many data is not working
Please revise my code is not work
Thank you

Please Login or Register  to view this content.

This will already speed things up significantly.

Please Login or Register  to view this content.

@ lotto009

Please notice that I've made some changes to my previous post to make the code a tiny bit faster and some errortrapping when a startlocation isn't found in Column A.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Also thanks for rep+.

New I can do I edit
by command

HTML Code: 

is Cleared
Thank you