Jump to content


  • Posts

    • si @Mauricio_ODN el archivo que me envio sirve solo q cuando hay uno 30 archivo no copiar de manera descendente  por ejemplo cuando esta copiando el archivo 1 en la hoja1 esta bien y luego se salta al archivo 10 que se copia em la  hoja2  asi sucecivamente  respecto al otro archivo es uno q pille pero q mas o menos copia de forma correcta los archivo solo q lo copia en una sola hoja  
    • Hola de nueva cuenta @miguelangel No te entiendo, disculpame de verdad. ¿El archivo que te envié no funciona de la manera en que lo solicitaste? Ahora con respecto a: Ya tienes el código, ¿que necesitas que se haga?  ¿El código que me enviaste no funciona? ¿Los libros que necesitas consolidar tienen la misma estructura? A mi manera de ver esta última parte ya pertenece a otra consulta. Sigo atento.  
    • disculpe @Mauricio_ODN pero al  momento de copiar  no copiar de forma escalonada  se salta adjunto uno que es similar  pero me gustaria que pudiera copiar en la hojas1, hoja2, hoja,  del libro de destino saludos  Importar Datos desde Varios Libros.rar
    • Estimado JSDJSD Saludos He estado tratando de verificar si se puede usar esta parte del codigo que tienes pero con este cambio para vitar la Hoja2 a ver si se pueda ejecutar directamente desde la Hoja1, pero encuentro dificultad,...Seria que eso no se debe hacer??? Algunas veces más consigo realizar estas aplicaciones de modo intuitivo o por deducción antes que por conocimiento cabal.. Te pongo el codigo y una imágen Del botón importar ufila1 = wbLibroOrigen.Sheets("Hoja1").Cells(Rows.Count, 1).End(xlUp).Row For cont = 2 To ufila1 ufila = wbLibroDestino.Sheets("H_importacion").Cells(Rows.Count, 2).End(xlUp).Row With wbLibroDestino.Sheets("H_importacion") 'ORIGEN DESTINO wbLibroOrigen.Sheets("Hoja1").Cells(cont, 1).SpecialCells(12).Copy .Cells(ufila + 1, 1) wbLibroOrigen.Sheets("Hoja1").Cells(cont, 2).SpecialCells(12).Copy .Cells(ufila + 1, 2) wbLibroOrigen.Sheets("Hoja1").Cells(cont, 3).SpecialCells(12).Copy .Cells(ufila + 1, 3) wbLibroOrigen.Sheets("Hoja1").Cells(cont, 5).SpecialCells(12).Copy .Cells(ufila + 1, 4) wbLibroOrigen.Sheets("Hoja1").Cells(cont, 7).SpecialCells(12).Copy .Cells(ufila + 1, 5) End With Next Al ejecutar me resulta error, aunque si obtengo la importación de lo seleccionado pero no de las columna selectas como se esperaría según el código Por su puesto que si no se pude hacer me quedo con lo ya conseguido hasta ahora   Mil disculpas por esta adición de consulta
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy