Error Control - null rnage

T

Tim Childs

Hi

What test can be used to stop the following code

Range(.Cells(iFirstDataRow, iTestCol), .Cells(lFinalRow,
iTestCol)).SpecialCells(xlCellTypeFormulas, 7)
erroring when there are no cells identified by the Goto-Special command?

i.e. I sometimes get error 1004 - "no cells were found"

thanks

Tim
 
J

James Ravenswood

Hi

What test can be used to stop the following code

Range(.Cells(iFirstDataRow, iTestCol), .Cells(lFinalRow,
iTestCol)).SpecialCells(xlCellTypeFormulas, 7)
erroring when there are no cells identified by the Goto-Special command?

i.e. I sometimes get error 1004 - "no cells were found"

thanks

Tim
Click to expand...

Hi Tim:

You need to trap the error:

Sub marine()
Dim r As Range
On Error Resume Next
Set r = Cells.SpecialCells(xlCellTypeFormulas)
If r Is Nothing Then
MsgBox "r is nothing"
End If
End Sub
 
T

Tim Childs

Hi

What test can be used to stop the following code

Range(.Cells(iFirstDataRow, iTestCol), .Cells(lFinalRow,
iTestCol)).SpecialCells(xlCellTypeFormulas, 7)
erroring when there are no cells identified by the Goto-Special command?

i.e. I sometimes get error 1004 - "no cells were found"

thanks

Tim
Click to expand...

Hi Tim:

You need to trap the error:

Sub marine()
Dim r As Range
On Error Resume Next
Set r = Cells.SpecialCells(xlCellTypeFormulas)
If r Is Nothing Then
MsgBox "r is nothing"
End If
End Sub
 
T

Tim Childs

Hi James

Many thanks for that solution

bw

Tim

Hi

What test can be used to stop the following code

Range(.Cells(iFirstDataRow, iTestCol), .Cells(lFinalRow,
iTestCol)).SpecialCells(xlCellTypeFormulas, 7)
erroring when there are no cells identified by the Goto-Special command?

i.e. I sometimes get error 1004 - "no cells were found"

thanks

Tim
Click to expand...

Hi Tim:

You need to trap the error:

Sub marine()
Dim r As Range
On Error Resume Next
Set r = Cells.SpecialCells(xlCellTypeFormulas)
If r Is Nothing Then
MsgBox "r is nothing"
End If
End Sub
 
Top