Error Control - null rnage

  • Thread starter Thread starter Tim Childs
  • Start date Start date
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
 
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
 
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
 
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
 
Back
Top