Como no reemplazar los datos de la hoja destino?

[Nisadega]

Hola a todos, nuevamente necesito de su ayuda. Tengo la siguiente macro:

<i>
</i>Sub CopiarCeldas()

'Definir objetos a utilizar
Dim wbDestino As Workbook, _
    wsOrigen As Excel.Worksheet...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jeovany159]

Hola,

Intenta con esto,

<i>
</i>'Pegar datos en celda destino
rngDestino.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Nisadega]

Exactamente, mi intención es que se copie en la última celda vacia de la columna "B"

En tu primer ejemplo me muestra el mensaje: Error en el metodo select de la clase range

En el segundo ejemplo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jeovany159]

Hola,

Se supone que solo pegas los valores no?
bueno intenta con esto,

<i>
</i>'Pegar datos en celda destino
Range("B2").Select
Selection.End(xlDown).Offset(1, 0).Activate...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Nisadega]

No se cual es el error porque sigues reemplazando los valores de la hoja destino.
Estoy tratando de modificar esto porque talvez el detalle esta en estas lineas

Const celdaDestino = "B2"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jeovany159]

Hola,

Copie todo tu codigo y lo probe y ya funciona,
pega esto en tu codigo,

<i>
</i>
'Pegar datos en celda destino
Application.Workbooks("Archivo.xlsx").Activate
Range("B2").Select
If...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Nisadega]

Otra vez te agradezco mucho jeovany159. Funciono muy bien.