Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to set a range equal to cells greater than 0 (Column "A" only)
Thank you!
Aex -- Alex St-Pierre |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to set a range equal to cells greater than 0 (Column "A" only)
If row 65536 is free (Excel <=2003) -
Columns(1).Insert Set myrange = Columns("B").SpecialCells(xlCellTypeConstants, xlNumbers) myrange.Offset(0, -1).FormulaR1C1 = "=IF(RC20,1,"""")" With myrange.Offset(0, -1) .Value = .Value End With 'Watch for the word wrap on next line- Set myrange = myrange.Offset(0, -1).SpecialCells(xlCellTypeConstants, xlNumbers).Offset(0, 1) Columns(1).Delete Debug.Print myrange.Address -- --- HTH Roger Shaftesbury (UK) (Excel 2003, Win XP/SP2) "Alex St-Pierre" wrote in message ... Thank you! Aex -- Alex St-Pierre |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to set a range equal to cells greater than 0 (Column "A" only)
Sorry, that should have been 'Column IV', not 'Row 65536'....
"Roger Whitehead" wrote in message ... If row 65536 is free (Excel <=2003) - Columns(1).Insert Set myrange = Columns("B").SpecialCells(xlCellTypeConstants, xlNumbers) myrange.Offset(0, -1).FormulaR1C1 = "=IF(RC20,1,"""")" With myrange.Offset(0, -1) .Value = .Value End With 'Watch for the word wrap on next line- Set myrange = myrange.Offset(0, -1).SpecialCells(xlCellTypeConstants, xlNumbers).Offset(0, 1) Columns(1).Delete Debug.Print myrange.Address -- --- HTH Roger Shaftesbury (UK) (Excel 2003, Win XP/SP2) "Alex St-Pierre" wrote in message ... Thank you! Aex -- Alex St-Pierre |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
"Count non blanks" if cells don't equal certain values | Excel Worksheet Functions | |||
sort data rows "greater than or equal" criteria in another cell | Excel Worksheet Functions | |||
Lookup "greater than or equal to" in lookup array | New Users to Excel | |||
Unableto access "greater than or equal to" Where is it? | Excel Discussion (Misc queries) | |||
Using "Cells" to write "Range("A:A,H:H").Select" | Excel Programming |