Obtendo o erro "Definido pelo aplicativo ou objeto definido" '1004 "

Question

Então, eu estava tentando copiar dados de uma planilha diferente e colar na corrente e estou recebendo este erro:

"Application Defined or Object Defined" error '1004"

Alguém pode me ajudar com isso?

Option Explicit
Sub finddata()

Dim fname As String
Dim FinalRow As Long
Dim i As Integer


Sheets("Report").Range("A10:N200").ClearContents
fname = Sheets("Report").Range("A4").Value
FinalRow = Sheets("Database").Range("A1000").End(xlUp).Row

For i = 3 To FinalRow
    If Sheets("Database").Cells(i, 1) = fname Then
    Sheets("Database").Range(Cells(i, 11), Cells(i, 24)).Copy  ----> Getting "Application Defined or Object Defined" error '1004" on this line
    Sheets("Report").Range("A1000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
End If
Next i

End Sub

    

Answer 1

A referência a Cells não está na mesma planilha que a chamada para Range . Isso é mencionado nos documentos para Range.Item . Ele funcionará se Database for a planilha ativa, mas não de outra forma.

Tente substituir a linha de erro por

With Sheets("Database")
    .Range(.Cells(i, 11), .Cells(i, 24)).Copy 
End With

Observe os períodos antes de Cells .