Returning the cell address in a range

[thisisthebear]

Heres the challenge;

I need to return the cell address on the first occasion that the following two conditions are met;

When Column A = 100
And
Column B is equal to or greater than 13

Column A Column B
101 --------- 10
102 --------- 10
103 --------- 11
104 --------- 13
100 --------- 10
101 --------- 10
102 --------- 11
103 --------- 11
104 --------- 11
100 --------- 13
101 --------- 11
102 --------- 11
103 --------- 10
104 --------- 12
100 --------- 14
101 --------- 11
102 --------- 11
103 --------- 10
104 --------- 12



In the above example I want to return the answer B10.

(Please ignore the ---------)

 

[facethegod]

Welcome to the Board

Try this in C1 and confirm with Ctr+ Shift + Enter, not just Enter

=ADDRESS(SMALL(IF(A1:A19=100,IF(B1:B19>=13,ROW(A1:A19),""),""),1),2)

 

[lenze]

Try this:

Sub FindMe()
    Dim cl As Range
    For Each cl In Range("$A$2:$A" & Range("$A$65536").End(xlUp).Row)
    If cl = 100 Then
         If cl.Offset(O, 1) >= 13 Then
         MsgBox cl.Address
         Range("$D$2") = cl.Address
         Exit Sub
         End If
    End If
    Next cl
End Sub

lenze

 

[thisisthebear]

Thank you, two working solutions in 20 mins that I've spent all day trying to solve.

 

[Beate Schmitz]

Hello,

I'm late, as I see.
My solution needs helpcolumn C.
The formula of C2 can be copied down.

<table border="1" cellspacing="0" cellpadding="0" style="font-family:Arial,Arial; font-size:10pt; background-color:#ffffff; padding-left:2pt; padding-right:2pt; "> <colgroup><col style="font-weight:bold; width:30px; " /><col style="width:80px;" /><col style="width:80px;" /><col style="width:80px;" /><col style="width:80px;" /><col style="width:80px;" /><col style="width:80px;" /><col style="width:80px;" /></colgroup><tr style="background-color:#cacaca; text-align:center; font-weight:bold; font-size:8pt; "><td > </td><td >A</td><td >B</td><td >C</td><td >D</td><td >E</td><td >F</td><td >G</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >1</td><td style="font-weight:bold; "> </td><td style="font-weight:bold; "> </td><td style="font-weight:bold; ">Helpcolumn</td><td style="font-weight:bold; "> </td><td style="background-color:#ff9900; font-weight:bold; text-align:center; ">A=</td><td style="background-color:#ff9900; font-weight:bold; text-align:center; ">B>=</td><td style="background-color:#ff9900; font-weight:bold; text-align:center; ">Cell</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >2</td><td style="text-align:right; ">101</td><td style="text-align:right; ">10</td><td > </td><td > </td><td style="text-align:center; ">100</td><td style="text-align:center; ">13</td><td style="text-align:center; ">B11</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >3</td><td style="text-align:right; ">102</td><td style="text-align:right; ">10</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >4</td><td style="text-align:right; ">103</td><td style="text-align:right; ">11</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >5</td><td style="text-align:right; ">104</td><td style="text-align:right; ">13</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >6</td><td style="text-align:right; ">100</td><td style="text-align:right; ">10</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >7</td><td style="text-align:right; ">101</td><td style="text-align:right; ">10</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >8</td><td style="text-align:right; ">102</td><td style="text-align:right; ">11</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >9</td><td style="text-align:right; ">103</td><td style="text-align:right; ">11</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >10</td><td style="text-align:right; ">104</td><td style="text-align:right; ">11</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >11</td><td style="text-align:right; ">100</td><td style="text-align:right; ">13</td><td style="text-align:right; ">11</td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >12</td><td style="text-align:right; ">101</td><td style="text-align:right; ">11</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >13</td><td style="text-align:right; ">102</td><td style="text-align:right; ">11</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >14</td><td style="text-align:right; ">103</td><td style="text-align:right; ">10</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >15</td><td style="text-align:right; ">104</td><td style="text-align:right; ">12</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >16</td><td style="text-align:right; ">100</td><td style="text-align:right; ">14</td><td style="text-align:right; ">16</td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >17</td><td style="text-align:right; ">101</td><td style="text-align:right; ">11</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >18</td><td style="text-align:right; ">102</td><td style="text-align:right; ">11</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >19</td><td style="text-align:right; ">103</td><td style="text-align:right; ">10</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >20</td><td style="text-align:right; ">104</td><td style="text-align:right; ">12</td><td > </td><td > </td><td > </td><td > </td><td > </td></tr></table>
<table style="font-family:Arial; font-size:10pt; border-style: groove ;border-color:#00ff00;background-color:#fffcf9; color:#000000; "><tr><td >Spreadsheet Formulas</td></tr><tr><td ><table border = "1" cellspacing="0" cellpadding="2" style="font-family:Arial; font-size:9pt;"><tr style="background-color:#cacaca; font-size:10pt;"><td >Cell</td><td >Formula</td></tr><tr><td >C2</td><td >=IF(AND<span style=' color:008000; '>(A2=E$2,B2>=F$2)</span>,ROW<span style=' color:008000; '>()</span>,"")</td></tr><tr><td >G2</td><td >="B"&MIN(C:C)</td></tr></table></td></tr></table>

 

[Scott Huish]

Here's another possibility:
=CELL("address",INDEX(B1:B19,MATCH(1,(A1:A19=100)*(B1:B19>=13),0)))

Confirm with CTRL-SHIFT-ENTER rather than just Enter.

 

[dave3009]

Thank you, two working solutions in 20 mins that I've spent all day trying to solve.

You'll find that you can sometimes get it quicker too.

Welcome to the Board

Dave

 

[thisisthebear]

Hi,

Thanks for the code supplied previously, I have modified it slightly as the a new requirement has come along (See Below). However can anyone advise how this could be tweaked again to repeat this same code but for a range of cells.

For Example I start by looing for a value in H59 and returing the cell address to AN59, I then want to check the value in H60 and return the address to AN60 etc until cells H100 and AN100. I can do this with formulas but due to the number of rows it takes a long time. I am hoping that VB code wll be quicker.

Cheers.

Sub FindMe()
    Dim cl As Range
    For Each cl In Range("$G$60:$G" & Range("$G$65536").End(xlUp).Row)
    If cl = Range("H59") Then
         Range("$AN$59") = cl.Address
         Exit Sub
        End If
    Next cl
End Sub