Copiar a otro libro 2

Dado que son casi pocos registros y va a ser hecho en un entorno local me
decidi ir copiando una fila a la vez.
En el archivo de prueba las columnas son A B C D, cada fila va desde 2
hasta 32, la hoja destino creada por un template tiene el nombre de
"2005", j contiene elnumero de la linea que se esta copiando de los datos,
k la linea de destino, wrkb

Set wrkb = Application.Workbooks.Add("Base.xls")
.
EsteLibro.Sheets("Hoja de Análisis").Range("A" & Trim(Str(j)), "D" &
Trim(Str(j))).Select
Selection.Copy
wrkb.Worksheets("2005").Range("A" & Trim(Str(k))).Select
'wrkb.Paste Range("A" & Trim(Str(k)))
k = k + 1



Me indica error en fallo en el metodo select de la clase range en
EsteLibro.Sheets("Hoja de Análisis").Range("A" & Trim(Str(j)), "D" &
Trim(Str(j))).Select

Se requiere un objeto
wrkb.Worksheets("2005").Range("A" & Trim(Str(k))).Select

Serviria si necesito copiar todos los datos
lo que necesito es copiar todos los datos cuya columna nombre x sea igual a y

"gatolandia.chile" escribió

Dado que son casi pocos registros y va a ser hecho en un entorno local
me decidi ir copiando una fila a la vez.
En el archivo de prueba las columnas son A B C D, cada fila va desde 2
hasta 32, la hoja destino creada por un template tiene el nombre de
"2005", j contiene elnumero de la linea que se esta copiando de los
datos, k la linea de destino, wrkb

Set wrkb = Application.Workbooks.Add("Base.xls")
.
EsteLibro.Sheets("Hoja de Análisis").Range("A" & Trim(Str(j)), "D" &
Trim(Str(j))).Select
Selection.Copy
wrkb.Worksheets("2005").Range("A" & Trim(Str(k))).Select
'wrkb.Paste Range("A" & Trim(Str(k)))
k = k + 1



Me indica error en fallo en el metodo select de la clase range en
EsteLibro.Sheets("Hoja de Análisis").Range("A" & Trim(Str(j)), "D" &
Trim(Str(j))).Select

Se requiere un objeto
wrkb.Worksheets("2005").Range("A" & Trim(Str(k))).Select

Hola,

Prueba lo siguiente: (es una única linea)

Set wrkb = Application.Workbooks.Add("Base.xls")

EsteLibro.Sheets("Hoja de Análisis").Range("A" & Trim(Str(j)), _
"D" & Trim(Str(j))).copy _
destination:= wrkb.Worksheets("2005").Range("A" & Trim(Str(k)))


Un saludo,
Juan