![Jesús Hernández](/img/default-banner.jpg)
- 80
- 1 058 662
Jesús Hernández
เข้าร่วมเมื่อ 15 ธ.ค. 2016
Funciones en excel, Macros en excel, word y autocad, herrramienta para base de datos, trucos y tips para desarrollar mas rápido tu trabajo.
"CON MACROS LAS COSAS SE HACEN MEJOR Y MAS RÁPIDO"
"CON MACROS LAS COSAS SE HACEN MEJOR Y MAS RÁPIDO"
Macro para replicar una hoja o formato a partir de un listado de excel
Macro para replicar una hoja que contiene un formato predeterminado y coloca el nombre de las hojas a partir de un listado.
00:00 Introducción
00:25 Organización inicial de la hoja
01:30 Seleccionar pestaña o Ribbon de Desarrollador o programador
2:06 Abrir el editor de visual basic
2:19 Macro
Sub Generar_Hojas()
'SE DEBE TENER EN LA COLUMNA A DESDE LA CELDA A1 EL NOMBRE DE LAS HOJAS A CREAR
Dim c1 As Integer
Dim d As Integer
c1 = 1
Sheets("LISTA").Activate 'Si cambia el nombre de la hoja donde están los nombres, colocarla aquí.
ActiveSheet.Range("A1").Activate
Do While Not IsEmpty(ActiveCell)
c1 = c1 + 1
ActiveCell.Offset(1, 0).Activate
Loop
For i = 1 To c1 - 1 Step 1
Sheets("FORMATO").Select
Sheets("FORMATO").Copy Before:=Sheets(2)
Sheets("LISTA").Select
Sheets("LISTA").Activate
Sheets(2).Name = Cells(i, 1)
Next i
d = c1 - 1
MsgBox Prompt:="USTED HA CREADO " & d & " HOJAS", Title:="¡FELICITACIONES!"
End Sub
00:00 Introducción
00:25 Organización inicial de la hoja
01:30 Seleccionar pestaña o Ribbon de Desarrollador o programador
2:06 Abrir el editor de visual basic
2:19 Macro
Sub Generar_Hojas()
'SE DEBE TENER EN LA COLUMNA A DESDE LA CELDA A1 EL NOMBRE DE LAS HOJAS A CREAR
Dim c1 As Integer
Dim d As Integer
c1 = 1
Sheets("LISTA").Activate 'Si cambia el nombre de la hoja donde están los nombres, colocarla aquí.
ActiveSheet.Range("A1").Activate
Do While Not IsEmpty(ActiveCell)
c1 = c1 + 1
ActiveCell.Offset(1, 0).Activate
Loop
For i = 1 To c1 - 1 Step 1
Sheets("FORMATO").Select
Sheets("FORMATO").Copy Before:=Sheets(2)
Sheets("LISTA").Select
Sheets("LISTA").Activate
Sheets(2).Name = Cells(i, 1)
Next i
d = c1 - 1
MsgBox Prompt:="USTED HA CREADO " & d & " HOJAS", Title:="¡FELICITACIONES!"
End Sub
มุมมอง: 2 710
วีดีโอ
Macro para generar hojas a partir de un listado de excel
มุมมอง 13K2 ปีที่แล้ว
Herramienta útil para crear o generar hojas a partir de un listado de excel: Aquí va la macro: Sub Generar_Hojas() 'SE DEBE TENER EN LA COLUMNA A DESDE LA CELDA A1 EL NOMBRE DE LAS HOJAS A CREAR Dim c1 As Integer Dim d As Integer c1 = 1 Sheets("Hoja1").Activate 'Si cambia el nombre de la hoja donde están los nombres, colocarla aquí. ActiveSheet.Range("A1").Activate Do While Not IsEmpty(ActiveCe...
RELLENO RÁPIDO EN EXCEL EXCELENTE HERRAMIENTA
มุมมอง 2392 ปีที่แล้ว
Herramienta útil para extraer o unir información de forma rápida en excel #trucoExcel, #herramientaExcel, #Relleno Rápido Excel
Insertar filas de acuerdo con los valores de un rango de celdas
มุมมอง 21K2 ปีที่แล้ว
Herramienta útil para insertar filas de acuerdo con el valor de un rango de celdas que decido seleccionar Aquí va la macro: Sub Insertar_filas_con_valor_de_Celdas() Dim Rango As Range Dim vector() As Variant Dim x As Integer Set Rango = Application.InputBox(Prompt:="Elige un rango", Type:=8) x = Rango.Rows.Count ReDim vector(x) fila_inicial = Rango.Row columna_inicial = Rango.Column For j = 0 T...
EXTRAER CARACTERES DESDE LA DERECHA O DESDE LA IZQUIERDA EN EXCEL
มุมมอง 10K2 ปีที่แล้ว
Se explican y se combinan funciones para extraer caracteres desde la derecha, izquierda o cualquier posición en una cadena de texto de excel 00:00 Introducción 00:22 Se explica el uso de la función DERECHA 01:02 Se explica el uso de la función IZQUIERDA 01:33 Se explica el uso de la función EXTRAE 02:12 Bonus: combinación de la función EXTRAE con ENCONTRAR Espero les se útil esta explicación
Macro para crear subcarpetas anidadas
มุมมอง 2.1K2 ปีที่แล้ว
Herramienta útil para crear subcarpetas de forma anidada o subcarpetas dentro de otras subcarpetas (en forma de cascada).
Macro para depurar (eliminar) formas y gráficas de un archivo de excel
มุมมอง 2K3 ปีที่แล้ว
Herramienta útil para depurar un archivo de excel, eliminando líneas, áreas, gráficas y dejar mi archivo con sólo bases de datos, tablas y textos. Aquí va la macro: Sub depurarFormas() 'Macro para eliminar formas y gráficas de una hoja de excel 'Mas videos en th-cam.com/channels/sPy5tzwQ-b-uLKDT8pbaKA.htmlvideos Dim forma As Shape Dim hoja As Object 'Con el For externo recorremos las hojas y co...
Macro para crear multiples rutas en google earth desde excel
มุมมอง 4.9K3 ปีที่แล้ว
Macro para subir rutas a google Earth desde excel sin utilizar ningún otro programa. Es muy util cuando quiero automatizar mi tarea y generar múltiples rutas sin tener que dibujarlas individualmente, En el siguiente link pueden descargar el código de la macro: jalfredo06.wixsite.com/macroexcelaton/herramientas-libres
Funcion para pasar grados minutos y segundos a grados decimales
มุมมอง 19K3 ปีที่แล้ว
Función programada en excel VBA para transformar grados minutos y segundos a grados decimales.
Formulas en word
มุมมอง 2823 ปีที่แล้ว
Video que muestra cómo se utilizan fórmulas en word sin necesidad de utilizar una hoja de cálculo externa.
Unir comentarios en pdf
มุมมอง 5723 ปีที่แล้ว
Cómo unir comentarios de varios autores en pdf? Aquí te lo contamos.
Manual basico de Google Meet
มุมมอง 1134 ปีที่แล้ว
Cómo crear una reunión sin calendario y algunos tips se Google Meet
Pasar un rango a solo valores en todo un libro de excel
มุมมอง 3694 ปีที่แล้ว
En este video encuentras cómo pasar de manera masiva un rango a sólo valores en varias hojas de excel.
Transformar kml a coordenadas planas con Expert GPS
มุมมอง 1.8K4 ปีที่แล้ว
En este video se explica como obtener coordenadas planas a partir de un archivo kml o kmz y pasarlo a un listado de excel para poder generar un informe que me permita utilizar los datos de ubicación de puntos en cualquier sistema de coordenadas. Todo lo anterior, con la ayuda del programa Expert GPS.
Importar puntos desde txt a Google Earth
มุมมอง 20K4 ปีที่แล้ว
Herramienta útil para importar puntos desde txt o excel a Google Earth con coordenadas geográficas.
MACRO EXCEL PARA MOVER ARCHIVOS DE FORMA AUTOMATICA
มุมมอง 28K5 ปีที่แล้ว
MACRO EXCEL PARA MOVER ARCHIVOS DE FORMA AUTOMATICA
Filtro avanzado con copia de información en un rango diferente
มุมมอง 4225 ปีที่แล้ว
Filtro avanzado con copia de información en un rango diferente
Extraer imagenes de excel automaticamente
มุมมอง 46K6 ปีที่แล้ว
Extraer imagenes de excel automaticamente
Función transformar a grados minutos y segundos
มุมมอง 76K6 ปีที่แล้ว
Función transformar a grados minutos y segundos
Macro en excel vba para cambiar nombres de carpetas de forma masiva - automática
มุมมอง 13K6 ปีที่แล้ว
Macro en excel vba para cambiar nombres de carpetas de forma masiva - automática
Macro para georeferenciar fotos en google earth desde excel solo excel
มุมมอง 4K6 ปีที่แล้ว
Macro para georeferenciar fotos en google earth desde excel solo excel
Macro para crear carpetas y archivos de excel automaticamente
มุมมอง 19K6 ปีที่แล้ว
Macro para crear carpetas y archivos de excel automaticamente
Hola, excelente video. Me sirvio mucho de ayuda pero no se si es posible que se pueda adicionar al Excel que se crea, 3 hojas con nombres específicos desde la macro?
En dnd esta la macro ? Digo los comandos ??
Me salvaste la vida, muchas gracias <3
😊 muchas gracias
Me sirvió muchísimo!!! Gracias
Genial el tutorial, ahora como hago para que el formato que se generó en pestañas se llene con los valores de la lista, como por ejemplo una tabla.
muchas gracias por el video, me parece de gran ayuda, sin embargo, hay carpetas y subcarpetas pero estemos claros que a veces se necesita crear más subcarpetas dentro de la carpeta.- en este caso se hace en loop de subcarpetas y surbcarpetas dentro de las subcarpetas.- :( yo necesito por favor ayuda con esto, necesito crear carpetas y dentro de las carpetas pueden haber subcarpetas y dentro de las subcarpetas mas subcarpetas.- es posible ?
Muchas gracias. Me fue de mucha utilidad la macro y el video. Saludos
Hola Mil gracias me fue de mucha utilidad, y tambien gracias para solo copiar y pegar el código, muy bien explicado para hacerlo funcionar
esa mierda no se ve...
Buenas noches, donde está la macro?
Hola, tengo una duda, si tengo una data, una hoja con datos y quiero crear una hoja con un formato x por cada fila de la data?
Muchas gracias, me ahorre horas de trabajo.
Donde puedo obtener la Macro? Me puedes ayudar?
Muchas gracias hombre, buenísimo. El mejor de todos los que he visto.
muchasgracias!!!!
alguien puede poner el codigo que utiliza
Gracias maestro
Gracias x el video, si pudieras dejar tu comentario fijado con el codigo para no tener q buscar comentarios a los q les hayas respondido, gracias xd
Hola, buen video. ¿me ayudarías a crear la macro para subcarpetas dentro de las subcarpetas?
muy bueno el video, como poner en zona 20S, me sale en otro lado
Quiero obtener la plantilla. A mi me da error 76
Gracias, se podrá cambiar la macro para que al hacer clic tome directamente una columna entera con datos? así uno no tiene que elegir el rango
Muchas gracias por el aporte me sirvio bastante
donde se copia la macro? no sale en el link,ayuda
gracis
Buenas tardes, no me sale la macro, donde la puedo conseguir. Gracias
Sencillamente un genio... me ha quitado días de trabajo. Felicitaciones
Hola, no veo donde descargar la macro.
A mi me da error
Gracias me haz ahorrado mucho trabajo
Hola, excelente video, pero tengo un problema, tengo configurado el Excel para separador por punto(.), pero cuando le doy Run a la macro, me da los resultados con coma (,), a pesar que las coordenadas están con puntos. Alguno le dio este problema y pudo solucionar? gracias de antemano.
Sub RENOMBRAR_ARCHIVOS() Dim Objeto_Archivos As Object Dim Lista_Archivos As Object Dim Archivos As Object Dim Archivo As Object '----------------------------------------------------------------------- Set Objeto_Archivos = CreateObject("Scripting.FileSystemObject") Set Lista_Archivos = Objeto_Archivos.GetFolder(thisWorkbook.Path & "\") Set Archivos = Lista_Archivos.Files '----------------------------------------------------------------------- j = 1 While ActiveSheet.Cells(j, 1) <> "" If ActiveSheet.Cells(j, 3) <> "OK" Then For Each Archivo In Archivos If Ucase(Archivo) = UCase(ThisWorkbook.Path & "\" & ActiveSheet.Cells(j, 1)) Then Archivo.Copy ThisWorkbook.Path & "\" & ActiveSheet.Cells(j, 2), True Archivo.Delete ActiveSheet.Cells(j, 3) = "OK" Exit For End If Next End If j = j + 1 Wend End Sub
Muchas gracias!!!
No me sale la macro
funciono genial..gracias y suscrito
hello , si el file que se requiere es un CSV, donde se le cambia la extension en la macro?
Graciaaaassss
Buenas tardes, como podria hacer para insertar filas en un rango de fechas que estan interrumpidas, y lo que se quiere es completar esas fechas que faltan con celdas vacias, es que manual no lo podria hacer ya que son mas de 20 mil datos. Son datos de clima que hay dias que no hay datos, y se saltan las fechas. Gracias
Hola, podrías hacer restas de fechas en una nueva columna para encontrar el número de filas a insertar y correr la macro. Luego con buscado especial (Ctlr+i) ir a vacíos y colocar =0.
Grande!
Te has ganado el cielo amigo !!!
hola
Hola
Excelente aporte, muchas gracias.
Muchas gracias, me sirvió mucho el video
excelente la aportación gracias Jesús¡¡
+ Jesús, muchísimas gracias por compartir la macro y por el tutorial tan didáctico que has publicado. Me ha funcionado a la primera. Saludos cordiales.
esta bien la macro para crear carpetas en distintas rutas automáticamente, pero como podría crear una macro donde me cree las carpetas y subcarpetas anidadas en distintas rutas de mi explorador.
donde encuentro el codigo?
de donde saco el código? el que indicas que copiemos y peguemos por favor
¿Y el enlace para descargar el código?
Excelente herramienta Jesús, mil gracias.