Finding a value in a list

[Josue Barocio]

I need to find the first zero value in a sorted (descending) list.
The FIND function fails because it finds the first zero character, as in 20, 30, etc.
Thanks in advance for your help.

[smozgur]

Can you explain first zero value by sample data column please?

And are you looking for a function? So you would get the cell address etc?

regards

[Josue Barocio]

I need to position cursor on the first zero value in a list such as the following:
98
40
20
0
0

I would then insert a row at the first zero value and perform other sorts on the records above the zeroes.

[smozgur]

Call the sub like below:

Call FindValue(Range("A20:A40"),0)

Sub FindValue(rng As Range, lookupval)
For i = 1 To rng.Rows.Count
If rng(i, rng.Column) = lookupval Then
rng(i, rng.Column).Activate
MsgBox "Perform Whatever You Want"
Exit For
End If
Next i
End Sub

It will find the first cell includes lookup value (0 for you) and activate the cell.

regards

_________________
Oz ~ TheWordExpert

[ This Message was edited by: smozgur on 2002-04-06 19:19 ]

[smozgur]

hmm, to insert a row above this row:

Sub FindValue(rng As Range, lookupval)
For i = 1 To rng.Rows.Count
If rng(i) = lookupval Then
Rows(rng(i).Row).Insert
MsgBox "Perform Whatever You Want"
Exit For
End If
Next i
End Sub

to just insert a new cell (not whole row)

Sub FindValue(rng As Range, lookupval)
For i = 1 To rng.Rows.Count
If rng(i) = lookupval Then
rng(i).Select
ActiveCell.Insert Shift:=xlShiftDown
MsgBox "Perform Whatever You Want"
Exit For
End If
Next i
End Sub

[Josue Barocio]

Thanks smozgur, your routine works just fine.

[smozgur]

you're welcome.

[Mark W.]

On 2002-04-06 18:19, Josue Barocio wrote:
I need to find the first zero value in a sorted (descending) list.
The FIND function fails because it finds the first zero character, as in 20, 30, etc.
Thanks in advance for your help.

The FIND [command] doesn't "fail" if you check the "Find entire cells only" box.