Специальные ячейки в Excel для копирования с листа1 на лист2 с обработкой ошибок

Question

Я пытаюсь скопировать данные Sheet1 в sheet2.Я справился с ошибкой 1004.Если есть ошибка, я хочу открыть Лист3, иначе скопировать данные из листа1 в лист2.Пожалуйста, смотрите мой код.Заранее признателен за любую помощь.

Sub cmdButtonData_Click()

Dim SellStartDate As Date  
Dim SellEndDate As Date   

SellStartDate = Sheets("Launch").Range("H10").Value   
SellEndDate = Sheets("Launch").Range("H11").Value  
Sheets("Sheet2").Cells.Clear

On Error Resume Next  
'I have the connection string here.
If Err.Number <> 0 Then
    Sheets("Sheet3").Activate
Else
    'Copy the data
    Sheets("Sheet1").Range("A1:K2").Copy Sheets("Sheet2").Range("A1")
    Sheets("Sheet1").Range("A3:K16000").SpecialCells(xlCellTypeConstants).Copy 
    Sheets("Sheet2").Range("A3")
    Sheets("Sheet1").Activate
    Sheets("Sheet2").Range("A3:T3").Delete
End If

End Sub

Answer 1

Если вы сначала проверите ошибку, чтобы увидеть, есть ли у вас какие-либо результаты, вы можете двигаться вперед.например.

Sub Button1_Click()
    Dim c As Long
    On Error Resume Next
    c = Sheets("Sheet1").Range("A3:K16000").SpecialCells(xlCellTypeConstants).Count
    If c = 0 Then
        MsgBox "No Cells found -do something!"
    Else
        MsgBox c & " Blank Cells found- do something else!!"
    End If

End Sub