| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ShowMe function works fine except I need the offset to adjustdepending on column
Can someone point me in the right direction for this?
Function Showme(rngSrc As Range) As String Dim rng As Range, rngMin As Range, dbl As Double, rngLeft As Range Dim intOffset As Integer Set rngMin = rngSrc.Cells(1, 1) dbl = rngMin.Value For Each rng In rngSrc If rng.Value < dbl Then Set rngMin = rng dbl = rngMin.Value End If Next 'Showme = rngMin.Address Set rngLeft = rngMin.Offset(, -3).Cells(1, 1) 'MsgBox rngMin.Address 'MsgBox rngLeft.Address 'MsgBox rngLeft.Value Showme = rngLeft.Value End Function |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ShowMe function works fine except I need the offset to adjustdepending on column
Hi
I could not find a question.... regards Paul On Nov 25, 6:07*pm, " wrote: Can someone point me in the right direction for this? Function Showme(rngSrc As Range) As String * *Dim rng As Range, rngMin As Range, dbl As Double, rngLeft As Range * *Dim intOffset As Integer * *Set rngMin = rngSrc.Cells(1, 1) * *dbl = rngMin.Value * *For Each rng In rngSrc * *If rng.Value < dbl Then * * * Set rngMin = rng * * * dbl = rngMin.Value * *End If * *Next * *'Showme = rngMin.Address * *Set rngLeft = rngMin.Offset(, -3).Cells(1, 1) * *'MsgBox rngMin.Address * *'MsgBox rngLeft.Address * *'MsgBox rngLeft.Value * *Showme = rngLeft.Value End Function |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ShowMe function works fine except I need the offset to adjustdepending on column
On Nov 25, 10:07*am, "
wrote: Can someone point me in the right direction for this? Function Showme(rngSrc As Range) As String * *Dim rng As Range, rngMin As Range, dbl As Double, rngLeft As Range * *Dim intOffset As Integer * *Set rngMin = rngSrc.Cells(1, 1) * *dbl = rngMin.Value * *For Each rng In rngSrc * *If rng.Value < dbl Then * * * Set rngMin = rng * * * dbl = rngMin.Value * *End If * *Next * *'Showme = rngMin.Address * *Set rngLeft = rngMin.Offset(, -3).Cells(1, 1) * *'MsgBox rngMin.Address * *'MsgBox rngLeft.Address * *'MsgBox rngLeft.Value * *Showme = rngLeft.Value End Function I solved the problem with the following intOffset = rngMin.Column intOffset = "-" & (intOffset - 1) 'Showme = rngMin.Address Set rngLeft = rngMin.Offset(, intOffset).Cells(1, 1) |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Visual Basic Function works fine in Excell 2003 but not in Excel 2 | Excel Discussion (Misc queries) | |||
| Macro hangs up often but sometimes works fine | Excel Worksheet Functions | |||
| Macro works fine on PC; fails on Mac | Excel Programming | |||
| Works fine in debug, but... | Excel Programming | |||
| Offset Function works in cell, not in named range | Excel Worksheet Functions | |||
Linear Mode
