UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

alonet


Actualmente estoy realizando un proyecto de pasantia donde debo analizar mucha informacion. Para facilitar mi analisis, mi responsable me pidio que hiciera un Macro que sea capaz de hacer lo siguiente:
Tengo dos archivos (libros) excel: En el libro1 tengo la hoja1 con toda la informacion que necesito, mientras que en el libro2 tengo una hoja con un boton. Al pulsar el boton, la macro debe importar toda la informacion que esta en la hoja1 del libro1 (con formato) y pegarla en la hoja donde se encuentra el boton.
Yo modifique un codigo que encontre en la internet (ya que no soy nada experto en macros) y lo adapte a mis necesidades, sin embargo siempre obtengo un error en la ultima parte del codigo. Aqui les muestro el codigo:
Código:
Sub importar()
Dim WbSource As Workbook 'Déclare le claseur source
Dim WbCible As Workbook 'Déclare le claseur Cible classeur actif
Dim Origem As Worksheet
Dim Destino As Worksheet
'Affecte les Objets Excel
Set WbCible = ActiveWorkbook
Set WbSource = Workbooks.Open(Filename:="C:\Users\MarqueFe\Desktop\PGT.xlsx")
Set Origem = WbSource.Worksheets("Feuil2")
Set Destino = WbCible.Worksheets("Feuil1")
datos = Application.CountA(Destino.Range("A1", Destino.Range("A1").End(xlDown)))
If datos > 0 Then Destino.ClearArrows

'Origem.Range(Origem.Range("A1:HM31"), Origem.Range("A" & Origem.UsedRange.Rows.Count)).Copy
'Destino.Range("A1").PasteSpecial xlPasteValues

WbSource.Sheets(5).Copy After:=WbCible.Sheets(1)

WbCible.Save
WbSource.Close False
 
'Libère les Objets
Set WbSource = Nothing
Set WbCible = Nothing
Set Origem = Nothing
Set Destino = Nothing
MsgBox "Importation de données Ok!"
End Sub

El codigo mostrado aqui arriba NO copia el formato, cosa que es necesaria en mi proyecto. Ademas de eso, cada vez que pulso el boton copiar datos, los datos nuevos son colocados sobre los antiguos. Debo aclararles que la tabla que esta en la hoja1(libro1) cambia de tamano,es decir no es fija, por ello yo debo borrar primero todo lo que esta en la hoja1 para recopiar los datos y pegarlos.
Es que qlguien podria darme alguna ayuda al respecto? Muchas gracias

Igtelo


Hola alonet.

Te dejo un ejemplo, en el módulo1 del libro2 encuentras explicación del código.
Te copia "TODA" la hoja1 del libro1 como pides y previamente te borra lo de la hoja1 del libro2.

Ambos archivos deben estar en la misma carpeta.

Saludos.
 Ignacio Téllez
Archivos
alonet-Copiar.zip
No tienes los permisos para descargar los archivos.
(31 KB)

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.