No puedo pegar información en otro Libro

Saludos Expertos
Soy un novato que comenzó un proyecto en VBA, pero en la etapa final se me ha complicado, porque no se como llevar la información desde rango de la hoja1(Re_agregar_BD) en el libro 1, a la ultima celda libre del libro 2 denominado "Base de Datos.xls.
De antemano, mi agradecimiento a quien me pueda ayudar...
Les envío el código para ver si les sirve de algo...
"Private Sub CommandButton2_Click()
        'Workbooks("libro1.xls").Sheets("reporte").Activate
        'Range("Re_agregar_BD").Copy
        'Dim lFila As Long
        'Workbooks("base de datos.xls").Sheets("hoja1").Activate
        'lFila = ActiveSheet.Range("A65500").End(xlUp).Row + 1
        'ActiveCell.PasteSpecial xlPasteValues
         '  MsgBox "El cliente fue agregado Sastifactoriamente a su Base de Datos"
        'CommandButton1.SetFocus

1 Respuesta

Respuesta
1
A simple viste te está faltando seleccionar la celda de destino, con una instrucción así:
ActiveSheet. Cells(lFila, 1).select        'está pensada a partir de col A

Activecell. Paste...
Sdos. No dejes la consulta sin finalizar.
Elsa
* Mi mejor recomendación para vos:
http://aplicaexcel.galeon.com/manual_VBA.htm

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas