Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
To my left...
How might I refer to and return a value of a cell just one over left
from my current cell range? For Each Cell In rngRange Cell.Select If Selection.Value < "" Then On Error Resume Next Sh.Pictures.Insert(Selection.Value).Select Selection.ShapeRange.ScaleWidth 0.47, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 0.47, msoFalse, msoScaleFromTopLeft Else Exit Function End If Next Cell Unfortunately this code continues down the spreasheet indefinately. I need to Exit the For if the value of one cell left of Selection is = "" Any help would be greatly appreciated. Thanks. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
To my left...
For Each cell In rngRange
If cell.Offset(0, -1).Value < "" Then On Error Resume Next With Sh.Pictures.Insert(cell.Value) .ShapeRange.ScaleWidth 0.47, msoFalse, msoScaleFromTopLeft .ShapeRange.ScaleHeight 0.47, msoFalse, msoScaleFromTopLeft End With Else Exit Function End If Next cell -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Zamdrist" wrote in message ups.com... How might I refer to and return a value of a cell just one over left from my current cell range? For Each Cell In rngRange Cell.Select If Selection.Value < "" Then On Error Resume Next Sh.Pictures.Insert(Selection.Value).Select Selection.ShapeRange.ScaleWidth 0.47, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 0.47, msoFalse, msoScaleFromTopLeft Else Exit Function End If Next Cell Unfortunately this code continues down the spreasheet indefinately. I need to Exit the For if the value of one cell left of Selection is = "" Any help would be greatly appreciated. Thanks. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
To my left...
Thank you Bob
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel should calculate exponentials properly (right to left) | Excel Worksheet Functions | |||
How do I sum numbers in rolling format? (4 qtrs=4 cells to left) | Excel Discussion (Misc queries) | |||
Find text within cell then display text to left | Excel Discussion (Misc queries) | |||
Scrollbar on Chart Jumps to Left when Chart is Clicked | Charts and Charting in Excel | |||
The left function does not work when displaying times, how is thi. | Excel Worksheet Functions |