Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
how error-trap "no cells were found error"
Thanks for any help.
I have some code in my macro: dSum = Application.Sum(Selection.SpecialCells(xlVisible)) but if there is nothing selected (at least visibly selected), I get an error "Run-time error '1004': No cells selected." Is there some kind of IF, like IF (Application.Sum...)=NULL or something so my program doesn't terminate? Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
how error-trap "no cells were found error"
Try this..
Dim rngToSum As Range Dim dSum As Double Set rngToSum = Selection.SpecialCells(xlVisible) If rngToSum Is Nothing Then dSum = 0 Else dSum = Application.Sum(rngToSum) End If -- HTH... Jim Thomlinson "Ian Elliott" wrote: Thanks for any help. I have some code in my macro: dSum = Application.Sum(Selection.SpecialCells(xlVisible)) but if there is nothing selected (at least visibly selected), I get an error "Run-time error '1004': No cells selected." Is there some kind of IF, like IF (Application.Sum...)=NULL or something so my program doesn't terminate? Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
how error-trap "no cells were found error"
One way is to test the Selection.
If TypeName(Application.Selection) = "Nothing" Then 'No selection was made Else 'Perform work on selection End If "Ian Elliott" wrote: Thanks for any help. I have some code in my macro: dSum = Application.Sum(Selection.SpecialCells(xlVisible)) but if there is nothing selected (at least visibly selected), I get an error "Run-time error '1004': No cells selected." Is there some kind of IF, like IF (Application.Sum...)=NULL or something so my program doesn't terminate? Thanks |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
how error-trap "no cells were found error"
I think you'll have to watch out for the error:
Option Explicit Sub testm() Dim rngToSum As Range Dim dSum As Double Set rngToSum = Nothing On Error Resume Next Set rngToSum = Selection.SpecialCells(xlVisible) On Error GoTo 0 If rngToSum Is Nothing Then dSum = 0 Else dSum = Application.Sum(rngToSum) End If End Sub ====== Another option (I like Jim's better): dSum = 0 on error resume next dSum = Application.Sum(Selection.SpecialCells(xlVisible)) on error goto 0 Jim Thomlinson wrote: Try this.. Dim rngToSum As Range Dim dSum As Double Set rngToSum = Selection.SpecialCells(xlVisible) If rngToSum Is Nothing Then dSum = 0 Else dSum = Application.Sum(rngToSum) End If -- HTH... Jim Thomlinson "Ian Elliott" wrote: Thanks for any help. I have some code in my macro: dSum = Application.Sum(Selection.SpecialCells(xlVisible)) but if there is nothing selected (at least visibly selected), I get an error "Run-time error '1004': No cells selected." Is there some kind of IF, like IF (Application.Sum...)=NULL or something so my program doesn't terminate? Thanks -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to error trap "... cannot find the data..." message? | Excel Discussion (Misc queries) | |||
Best way to trap error to MsgBox "Too many cell formats" | Excel Discussion (Misc queries) | |||
"trap" a compile time error | Excel Programming | |||
Getting "compile error" "method or data member not found" on reinstall | Excel Programming | |||
How to trap the error message "Remote Data not accessible"? | Excel Programming |