how to copy corresponding values from different column when values are outside of a specific range

[bilphill1994]

Hello,

I hope you guys can help me to make the following macro.
So I have two columns (x and y) I usually look at the Y column and look for values outside the range of -20 to 20. I don’t care about every value but rather the first and last in every group. For those values (first and last Y value outside of the range of -20 to 20), I want to copy the corresponding X value in another part of the sheet. I have a mac BTW if this makes any difference. Please check the picture attached for clarification. I would greatly appreciate your help.
https://www.dropbox.com/s/mhhnabn95gtkakj/screenshot for upload.png?dl=0

 

[JLGWhiz]

Disregard.

 

[bilphill1994]

Disregard.

I am new to the forum so if I broke a rule or something, would you like to explain?

 

[JLGWhiz]

I am new to the forum so if I broke a rule or something, would you like to explain?

You broke no rule. I just could not get out of the post mode without entering something.

 

[MickG]

If you can run this on a "Mac" , try this:-
Results as your Example in column "F to H"

[COLOR="Navy"]Sub[/COLOR] MG25Jan51
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, nRng [COLOR="Navy"]As[/COLOR] Range, c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("B2"), Range("B" & Rows.Count).End(xlUp))
Range("G1") = "X1": Range("H1") = "X2"
c = 1
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
[COLOR="Navy"]If[/COLOR] Dn.Value <= -20 Or Dn.Value >= 20 [COLOR="Navy"]Then[/COLOR]
    [COLOR="Navy"]If[/COLOR] nRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
        [COLOR="Navy"]Set[/COLOR] nRng = Dn
    [COLOR="Navy"]Else[/COLOR]
        [COLOR="Navy"]Set[/COLOR] nRng = Union(nRng, Dn)
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] nRng.Areas
    [COLOR="Navy"]If[/COLOR] Dn.Count > 1 [COLOR="Navy"]Then[/COLOR]
        c = c + 1
        Range("F" & c) = "Incident " & c - 1
        Range("G" & c) = Dn(1).Offset(, -1)
        Range("H" & c) = Dn(Dn.Count)
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick