Find crossing points based on a given condition

Hi fellows,

I need to solve this problem:
I have got two sets of independent data (700 and 300 registers each).
Register data type is
column A----- X1 coordinate column E----- X2 coordinate
column B------Y1 coordinate column F----- Y2 coordinate
column C------Z1 coordinate column G----- Z2 coordinate

Basically I want to compare each X, Y values from dataset one with each X, Y values from dataset two,
and for that I must use euclidean distance criteria

if sqrt((X1 - X2)^2 + (Y1-Y2)^2)< 0.1 (for example)

If the conditon is met, I need to write the avarages to new columns
(X1+X2)/2------column I
(Y1+Y2)/2 -----column J

and calculate abs(Z1-Z2) -----column K

This will return crossing points and the high difference between sets

THANK YOU

Hi Mahju,

the code must test the condition for
each dataset A registers with all dataset B registers

dataset A dataset B
col a col b col c col e col f col g

line 1 AX1 AY1 AZ1 BX1 BY1 BZ1
line 2 AX2 AY2 AZ2 BX2 BY2 BZ2

... ... ...

line n AXn AYn AZn BXn BYn BZn

So, starting on the first register on dataset A

if sqrt((AX1-BX1)^2 + (AY1-BY1)^2)<0.1 then write

col i col j col k

(AX1+BX1)/2 (AY1+BY1)/2 abs(AZ1-BZ1)

in the condition isn't met go on...

if sqrt((AX1-BX2)^2 + (AY1-BY2)^2)<0.1
if sqrt((AX1-BX3)^2 + (AY1-BY3)^2)<0.1
...

if sqrt((AX1-BXn)^2 + (AY1-BYn)^2)<0.1

...and start all over again to

if sqrt((AX2-BX1)^2 + (AY2-BY1)^2)<0.1
if sqrt((AX2-BX2)^2 + (AY2-BY2)^2)<0.1
...

if sqrt((AX2-BXn)^2 + (AY2-BYn)^2)<0.1

Thank You very much for you time!!

Mahju,

your example fits perfectly to my problem and it's so very usefull for smaller datasets. I'm handling more than 2000 registers per dataset!!
I tried on Access but I had to round my real numbers to integers, and then it was able to match some registers.
So, you're completely right: it must be solved with VBA code, and I already dive on it to address some new questions.

Thank you so much Mahju