Відео

MUCHAS GRACIAS POR LA AYUDA!!

Gracias, 2 años después me sirvió

Muy agradecido por el aporte y el dominio de la explicación. Saludos y éxitos

Alguna forma de guardarlos 1 a 1 por ejemplo en ves de que queden en una sola hoja que puedan quedar en archivo

Hago todo lo que ud me dice en una base de datos txt pero no me funciona. No tiene un separador logico (comas, tabuladores ; etc) me sale todo en desorden. Por favor si me puedes orientar.

super crack, eres el mejor. Gracias!

Gracias por la información bro.

Hermano, te mereces muchas más vistas y likes de los que tienes

Muchas gracias estimado, me ayudo mucho. Y como se realizaria si quisiera dividir en hojas por cierta cantidad de filas? Por ejemplo, dividir 50000 registros de 10 000 en 5 hoja.

Super util, muchas gracias

Excelente tutorial, me resulto de mucha utilidad!!!!!!

Eres un Crack!, habia probado varios y este es el que mejor me funciona

Les dejo el cod. Sub separar() Dim ancho As Integer Dim nfilas As Integer Dim nintervalos As Integer Dim inicio As Integer Dim ncolumnas As Integer Dim columna_inicio As Integer Dim columna_fin As Integer ancho = 100 nfilas = Range("tabla1").Rows.Count nintervalos = Application.WorksheetFunction.RoundDown(nfilas / ancho, 0) inicio = Range("Tabla1[#Headers]").Row ncolumnas = Application.WorksheetFunction.CountA(Range("Tabla1[#Headers]")) columna_inicio = Range("Tabla1[[#Headers],[id]]").Column columna_fin = Range("Tabla1[[#Headers],[palabra]]").Column For i = 1 To nintervalos Worksheets.Add.Name = "Lista" & i Range("Tabla1[#Headers]").Copy Destination:=Sheets("Lista" & i).Range("A1") Sheets("hoja1").Select Range(Cells(ancho * (i - 1) + (inicio + 1), columna_inicio), Cells(ancho * i + inicio, columna_fin)).Copy Destination:=Sheets("Lista" & i).Range("A2") Next i Worksheets.Add.Name = "Lista" & i Range("Tabla1[#Headers]").Copy Destination:=Sheets("Lista" & i).Range("A1") Sheets("hoja1").Select Range(Cells(ancho * (i - 1) + (inicio + 1), columna_inicio), Cells(nfilas + inicio, columna_fin)).Copy Destination:=Sheets("Lista" & i).Range("A2") End Sub

En caso que la informacion estuviese en fila, como remplazo el codigo?

MI EXCEL NO TIENE LA VENTANA PROGRAMADOR :( COMO PUEDO HACER

TAS BIEN GUEY, NOMÁS TE EXPLICAS PARA TI MISMO Y DE SEGURO NO TE ENTIENDES

No se ve lo que haces en la pantalla emergente, pero si entendí y me funcionó

Se queda intentando por horas sin resultado alguno 😢.

Muchas gracias. era justo lo que estaba buscando

Muy útil y sencillo. Mil gracias

Hola. No veo el codigo pegado en la descripcion del video. Lo podran compartir?

Amigo buenas tardes me podrias apoyar con la macro para poder abrir mas de 1.048.576 filas por hoja en excel O saber como abirla porfa el enlace ya no se encuentra

lo realice paso a paso y no funciona, tengo libro guardado para macro y habilitada la opcion y no funciona

Muchas gracias!! una duda, ¿hay forma de poner el índice en cierto orden, diferente a como están las hojas?

Muchas gracias, muy fácil de entender y ejecutar.

como se hace con un exel version anterior_

Me resultó muy útil. Muchas gracias.

Ahora cómo hago que este código se ejecute para una carpeta con 12 archivos de este mismo tipo?

Buen video corto y bien explicado gracias

me servio , gracias

Usen en vez de integer, long para tablas grandes. Gracias por el aporte!

podría crearse una macro así para el basic de libreoffice calc??

No funciono. No se puede descargar la macro del link. Figura error

Gracias y cómo se puede hacer para que me deje un espacio y que se ejecute desde a2

hay alguna forma de que abra el archivo como utf-8?

NO funciono, la formula me dio error, quiza porque tengo MAC

Muchas gracias, funciona perfecto

No permite abrir elnarchivo adjunto

Gracias por la macro, :-). La intenté utilizar pero al ejecutarla recibo este mensaje "Run-time error '1004': Copy method of Worksheet class failed" y el código se detiene en esta línea Sheet.Copy After:=ThisWorkbook.Sheets(1), ¿a alguién más le mostró este error, y cómo lo solucionaron?

No sabes explicar, hablas mucho

no viene el codigo del indice, me lo podrias proporcionar por favor

🎉 este tutorial es maravilloso!! Busqué muchos y no encontraba uno que me explicara como unir varios libros en hojas independientes, no en una sola tabla como otros tutoriales. Muchas gracias, de verdad fue de inmensa ayuda😊📊

Si en la macro solo copia 5 libros de 17 a que se debe??

Excelente, me ayudo bastante. Muchas gracias por el aporte.

Mil gracias amigo, me ha sido de muchisima ayuda. 👍🏼

La macro funcionó muy bien al hacer la comparación horizontal. Pero al intentar hacer lo mismo verticalmente, opera mal. Las celdas coloreadas en una columna, son 8 y el resultado me da 3. Si edito la formula para ver que pasa, internamente me muestra que el resultado sería cuatro, pero sigue mostrando 3.

Buenas, podrías compartirme la macro? ya no está disponible en el link. Gracias!

Gracias por compartir sus conocimientos excelente

👍👍👌👌👌👌✔✔🦾🦾👀👀🤗🤗😎😎😎😎🍺🍺🍺🍺🍺🍺🍺🍺🍺🍺🍺🍺

Hola, Se puede aplicar en dos columnas ? Si modifico la columna NOMBRE que me ponga su fecha de modificacion. Y si modifico la columna APELLIDO me ponga su fecha de modificacion en una segunda columna ?