Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Visual Script to find smallest number greater than 0
I am looking for a script to find the smallest number greater than 0 in a
column and select it. Thank you |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Visual Script to find smallest number greater than 0
Hi,
Here's a brute force way Sub ChangelinkT() Dim MyMin As Long, LastRow As Long Dim MyRange As Range LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row Set MyRange = Range("A1:A" & LastRow) MyMin = WorksheetFunction.Max(MyRange) For Each c In MyRange If c.Value 0 And c.Value < MyMin Then TheMin = c.Address MyMin = c.Value End If Next Range(TheMin).Select End Sub Mike "Jeremy" wrote: I am looking for a script to find the smallest number greater than 0 in a column and select it. Thank you |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Visual Script to find smallest number greater than 0
Does this go under a Sub Macro?
Thanks "Mike H" wrote: Hi, Here's a brute force way Sub ChangelinkT() Dim MyMin As Long, LastRow As Long Dim MyRange As Range LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row Set MyRange = Range("A1:A" & LastRow) MyMin = WorksheetFunction.Max(MyRange) For Each c In MyRange If c.Value 0 And c.Value < MyMin Then TheMin = c.Address MyMin = c.Value End If Next Range(TheMin).Select End Sub Mike "Jeremy" wrote: I am looking for a script to find the smallest number greater than 0 in a column and select it. Thank you |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Visual Script to find smallest number greater than 0
Hi,
You can right click your sheet tab, view code and put it in there. or better You can open VB editor, right click 'ThisWorkbook' and insert module and put it there and it will work on the active sheet i.e. the sheet that is visible. Mike "Jeremy" wrote: Does this go under a Sub Macro? Thanks "Mike H" wrote: Hi, Here's a brute force way Sub ChangelinkT() Dim MyMin As Long, LastRow As Long Dim MyRange As Range LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row Set MyRange = Range("A1:A" & LastRow) MyMin = WorksheetFunction.Max(MyRange) For Each c In MyRange If c.Value 0 And c.Value < MyMin Then TheMin = c.Address MyMin = c.Value End If Next Range(TheMin).Select End Sub Mike "Jeremy" wrote: I am looking for a script to find the smallest number greater than 0 in a column and select it. Thank you |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find X number of smallest values in a range | Excel Worksheet Functions | |||
countif formula to find the occurances of a number that is greater than one number but less than another | Excel Discussion (Misc queries) | |||
How can I get Excel to find the first number in a list greater tha | Excel Worksheet Functions | |||
find smallest number not equal to 0 | Excel Worksheet Functions | |||
The formula to find the smallest number in a row not equal to zero | Excel Worksheet Functions |