VBA Runtime Error 1004 "Error definido por la aplicación o definido por el objeto" al seleccionar el rango
Tengo un problema con un error 1004 "Error definido por la aplicación o definido por el objeto" al seleccionar un rango.
Todavía soy capaz de seleccionar filas (es decir,Rows("21:21").select
) y para seleccionar rangos en otras hojas del mismo libro. No creo que el error esté en el código. Tal vez es algo que no conozco?
He usado el mismo código muchas veces antes, pero por alguna razón no puedo hacer que funcione en este sub (he comentado donde ocurre el error) ...
Sub CopySheet1_to_PasteSheet2()
Dim CLastFundRow As Integer
Dim CFirstBlankRow As Integer
'Finds last row of content
Windows("Excel.xlsm").Activate
Sheets("Sheet1").Activate
Range("C21").Select
'>>>Error 1004 "Application-defined or Object-defined error" Occurs
Selection.End(xlDown).Select
CLastFundRow = ActiveCell.Row
'Finds first row without content
CFirstBlankRow = CLastFundRow + 1
'Copy Data
Range("A21:C" & CLastFundRow).Select
Selection.Copy
'Paste Data Values
Sheets("PalTrakExport PortfolioAIdName").Select
Range("A21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Bring back to top of sheet for consistancy
Range("A21").Select
Range("A1").Select
End Sub
Necesito obtener todo lo que necesito para copiar, ya que la cantidad de filas cambiará con frecuencia. Nuevamente, el código siguiente se ha usado antes sin error ... pero no en esta instancia.
Dim CLastFundRow As Integer
Dim CFirstBlankRow As Integer
'Finds last row of content
Windows("Excel.xlsm").Activate
Sheets("Sheet1").Activate
Range("C21").Select
'>>>Error 1004 "Application-defined or Object-defined error" Occurs
Selection.End(xlDown).Select
CLastFundRow = ActiveCell.Row
'Finds first row without content
CFirstBlankRow = CLastFundRow + 1