Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help - Worksheet Function to Code
Hi all, I don't think I should be using a Worksheet function but didn't kno how to code it. I want to check to see if a range has a entry and if it does it clear A1 to I5. It works if I put the formula into a cell but not as it. Thanks for any Help Sub Macro4() myVal = ActiveSheet.Evaluate(sFormula) sFormula = Selection.FormulaArray "=IF(OR(RC[-8]:R[4]C[-2]<""""),TRUE,FALSE)" If sFormula = True Then Range("A1:I5").ClearContents End If End Sub VBA Noo -- VBA Noo ----------------------------------------------------------------------- VBA Noob's Profile: http://www.excelforum.com/member.php...fo&userid=3383 View this thread: http://www.excelforum.com/showthread.php?threadid=56357 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help - Worksheet Function to Code
If you're checking to see if a range is non-empty, then you clear it, you could
just clear it without checking. somerange.clearcontents if you're looking a one range and if it's got something in it, then you clear a different range: dim rng1 as range dim rng2 as range if application.counta(rng1) 0 then rng2.clearcontents end if === If rng1 was a single cell: if isempty(rng1.value) then 'it's empty else rng2.clearcontents end if VBA Noob wrote: Hi all, I don't think I should be using a Worksheet function but didn't know how to code it. I want to check to see if a range has a entry and if it does it clears A1 to I5. It works if I put the formula into a cell but not as it. Thanks for any Help Sub Macro4() myVal = ActiveSheet.Evaluate(sFormula) sFormula = Selection.FormulaArray = "=IF(OR(RC[-8]:R[4]C[-2]<""""),TRUE,FALSE)" If sFormula = True Then Range("A1:I5").ClearContents End If End Sub VBA Noob -- VBA Noob ------------------------------------------------------------------------ VBA Noob's Profile: http://www.excelforum.com/member.php...o&userid=33833 View this thread: http://www.excelforum.com/showthread...hreadid=563576 -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help - Worksheet Function to Code
Thanks Dav -- VBA Noo ----------------------------------------------------------------------- VBA Noob's Profile: http://www.excelforum.com/member.php...fo&userid=3383 View this thread: http://www.excelforum.com/showthread.php?threadid=56357 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code Conflicts With Worksheet Change Code | Excel Programming | |||
Create a newworksheet with VBA code and put VBA code in the new worksheet module | Excel Programming | |||
Worksheet Function using VB code | Excel Programming | |||
Worksheet Function VB code error | Excel Programming | |||
vba code for lookup worksheet function | Excel Programming |