Видео

Excelente!!! muy bien indicado. Muchas gracias

Messirve me has salvado

Muchas gracias me gustaría para saber calcular años sumar 25 años homenaje por ejemplo hoy viernes 29 de noviembre de 2024 hasta años = 2049 me entiendes?

Muchas Gracias!

Muy muy útil , muchas gracias !!

Excelente video!

crack tenes IG?

Eficaz, efervecente

el cuadro de dialogo nunca se vio

Saludos. Te sugiero que revices los videos antes de publicarlos. NO SE VE LO QUE HACES.

cómo hago esto en celular?

Muchas gracias , muy bien explicado . me resultó muy útil.

no se ve llo ue haces, comprueba antes de subir algo

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