Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Trucos de Excel Avanzado

Muchas veces cuando estamos resolviendo un problema en el cual empleamos VBA o macros es necesario contar con algunos ejemplos que nos puedan ser de utilidad para resolver los casos que tengamos que resolver.

En la siguiente lista de trucos de Excel Avanzado se encuentra una relación de temas relevantes, para la compresión de los mismos se requiere tener algún conocimiento de VBA o Macros a fin de poder sacarle el máximo provecho a alguno de estos, esperamos su consultas o sugerencias sobre los mismos.

Encuentra en esta lista más de 150 trucos para usar en Excel, todos los ejemplos corresponden a macros útiles en Excel, y pueden funcionar en Excel 2013, Excel 2016 y Excel 2019. 

  1. El objeto hyperlink
  2. Tipos de errores en Excel
  3. ¿Cómo sacar un porcentaje en Excel?
  4. VBA IDE
  5. Concatenar en Excel
  6. Eliminar espacios sobrantes en Excel
  7. Mid en VBA
  8. Tabla de datos en Excel
  9. Ejecutar aplicaciones de Windows desde VBA
  10. Completar celdas en blanco con el primer dato
  11. Validar DNI en Excel
  12. Cambiar puntos por comas en Excel
  13. Date Picker
  14. Convertir temperatura en Excel
  15. Sorteo en Excel con Macros
  16. RemoveDuplicates VBA Excel
  17. Dim en VBA
  18. Habilitar Macros en Excel para Mac
  19. VBA Ancho de columna
  20. Evitar parpadeo en Excel (VBA)
  21. Guardar como PDF en VBA
  22. Exportar varias hojas de Excel a PDF VBA
  23. Doble condicional en VBA
  24. Crear hipervínculos con VBA
  25. Pasar datos de tabla a Listbox en Excel
  26. Mostrar u ocultar filas con Macros
  27. Macro para insertar imagen en correo
  28. ¿Cómo enviar correos masivos?
  29. Eliminar Filas Según Criterio
  30. Enviar correo con html
  31. Manipular Formatos en VBA
  32. Uso Goto
  33. Proceso Masivo de Datos
  34. HIPERVINCULOS DENTRO DEL COMBOBOX
  35. OPTIONBUTTONS EN UN FORMULARIO
  36. Fechas en Formulario con VBA
  37. Saltos de Página con Macros
  38. Mensaje de Bienvenida con VBA
  39. Llenar Listbox con VBA
  40. Simular usuario y Password en VBA
  41. Quitar Filtros con VBA
  42. ¿Qué es un Palíndromo?
  43. ¿Qué es un inputbox?
  44. Guardar y cerrar libro con macros
  45. Funciones de Fecha
  46. For Each en VBA
  47. ¿Cómo determinar el mayor de 4 números con VBA?
  48. Copiar Hojas con Macros
  49. Controlar el Zoom en VBA
  50. BeforeSave en VBA
  51. Keypress en VBA
  52. Seleccionar carpeta en VBA
  53. CheckBox en VBA
  54. El Modelo de Objetos de Excel
  55. VBA Guardar Como
  56. Quitar los filtros en VBA
  57. Debug.Print en VBA
  58. Quitar duplicados en VBA
  59. On Error en VBA
  60. Wait en VBA
  61. Macro para abrir y cerrar archivos en Excel
  62. Error 7 en VBA
  63. Control LABEL en VBA
  64. Guardar libro en VBA
  65. GetOpenFilename en VBA
  66. Función String en VBA
  67. Vectores en VBA
  68. Salto de línea en VBA
  69. Generar números primos en Excel
  70. Pantalla completa en Excel (VBA)
  71. Símbolos Patrios de Portugal
  72. Símbolos patrios de Ecuador
  73. Personajes principales de Los Simpson
  74. Símbolos Patrios de Chile
  75. Símbolos Patrios de EL SALVADOR
  76. Símbolos Patrios de Bolivia
  77. Personajes Principales de SAILOR MOON
  78. Identificar color de celda en Excel
  79. Catalogo de imágenes (automóviles)
  80. Lista Pokemon Excel
  81. Seleccionar rango en VBA
  82. ¿Qué es ScreenUpdating?
  83. ¿Qué significa application.displayalerts?
  84. RefEdit
  85. Busqueda de datos con listbox - Aplicado al top 100 de las marcas mas recordadas por los peruanos
  86. Proteger y Desproteger todas las hojas
  87. Función para Sumar Datos por Color
  88. Sumar solo celdas en Negritas
  89. Mostrar filtros en la barra de estado
  90. Alinear un gráfico a un determinado rango
  91. Ocultar algunas flechas de selección en un Filtro
  92. Marcar las Celdas Duplicadas
  93. Reemplazar celdas en blanco con algun valor
  94. Coincidir los colores de una serie con los de las celdas de datos
  95. 5 Trucos de VBA necesarios
  96. Crear y seleccionar rangos con nombres
  97. Alternar bandas de colores con Macros
  98. Seleccionar la primera fila o columna en blanco
  99. Determinar con VBA si un archivo se encuentra abierto
  100. Seleccionar y dar formato a todos los rangos con nombres
  101. Resaltar la fila y columna activas
  102. Desproteger una hoja al abrir un libro con Macros
  103. Guardar rango de celdas como PDF
  104. Ejemplo de Números Aleatorios Únicos
  105. Ordenar datos con macros - VBA EXCEL
  106. Manejo de colores con macros en excel
  107. Enviar archivo adjunto en Email con VBA
  108. Cambiar de categoría de una UDF
  109. ¿Cómo buscar un valor en un rango de celdas en VBA?
  110. Extraer primera letra de la palabra (Acrónimos)
  111. ¿Cómo ejecutar macros al abrir un archivo en Excel?
  112. Combinar dos columnas
  113. Ordenar Hojas en excel con macros
  114. Crear un Archivo por cada hoja de Excel
  115. Uso de colores para autofiltro en VBA
  116. Crear hojas de una lista (VBA)
  117. Ideas para concatenar celdas con VBA o Macros
  118. Contar palabras en Excel aplicando VBA Macros
  119. Verificar un formato de fecha con Macros
  120. La Desviación Estándar en VBA
  121. Concatenar el contenido de un rango de celdas (mail recordatorio)
  122. ¿Qué es el OptionButton en VBA y cómo se usa?
  123. Listar nombres de archivos en excel con macros
  124. Unir contenido de Celdas
  125. ¿Cómo se usan los botones de opción en VBA?
  126. Arreglos Multidimensionales en VBA
  127. Manejo de Hojas de Excel con macros
  128. ¿Cómo se usan las casillas de verificación en VBA?
  129. Catálogos de imágenes con Macros
  130. Excel Avanzado: Manejo de Libros de Excel con Macros
  131. Eliminar Validación de datos con macros
  132. Eliminar tíldes con Macros
  133. Cambiar un color de letra en función de la fecha
  134. Convertir números en letras con Macros en Excel
  135. ¿Cómo encontrar celdas combinadas?
  136. VBA - Objeto WORKBOOKS
  137. Intercalar filas en blanco con Macros o VBA
  138. Algunos trucos para optimizar macros en Excel
  139. Uso de WorksheetFunction.RandBetween
  140. Eliminación de comentarios en Hojas Excel
  141. Listar los links existentes con VBA
  142. Ejemplo Application.DisplayAlerts
  143. Eliminar los hipervínculos de la hoja activa
  144. Operaciones básicas con archivo y carpetas
  145. Uso de WorksheetFunction.Vlookup
  146. Formulario de Excel Avanzado para el ingreso de documentos de Salida de un Almacén
  147. Encontrar información eliminando filas
  148. Tabla dinámica para análisis de Quejas y Reclamos - VBA
  149. Principales propiedades de un checkbox en un userform
  150. Generador de Horarios en Excel
  151. Calculo de posiciones de partidos de la eliminatoria Brasil 2014
  152. Combobox Dependientes
  153. Validar el ingreso de un email en un textbox
  154. Validar que solo existan letras y números en un textbox
  155. Activar o Desactivar el recalculo automático (F9) en una función
  156. Identificar la última fila en uso con VBA
  157. Ejemplo de uso de Solver con Macros
  158. Cambiar los colores de fondo con VBA
  159. Uso de Resize en Offset
  160. Mostrar cuadro de dialogo "Abrir" donde se elige un archivo
  161. ¿Cómo mostrar todas las hojas ocultas?
  162. Uso de la función PROPER
  163. Creación de un listado de Archivos
  164. Buscar Objetivo (con macros)
  165. Buscar y reemplazar masivo VBA

31 comentarios

  1. Interesante Blog, es gusto lo q uno quiere encontrar ... mas adelante are mis contribuciones ..

  2. Un proyecto de VBA lo puedes proteger al colocar una clave. De tal forma que no puedan cambiar o copiar la programación.
    Para esto ingresa en el ambiente de VBA y realiza lo siguiente:
    • Selecciona el proyecto.
    • Da un clic derecho sobre el proyecto
    • Elige la opción Propiedades de VBAProject…

    • Por favor, para desproteger un proyecto...como haría?...

  3. Sino tengo cargado el complemento de Power Pivot ¿puedo visualizar y operar un archivo que tenga esta aplicación?de no ser asi, ¿se puede crear un "ejecutable" para que otros usuarios si lo puedan ver?

  4. Como se puede obtener de una lista de excel de una viñeta un elemento de otra viñeta sin el uso de macros

    • Eso de logra con validación de datos, dale una mirada a:

      www.excelintermedio.com/lista-desplegable-de-datos-en-excel/

  5. Cuando se trabaja con base de datos en hojas de excel, se necesita tener en las columnas de tus tablas elementos que ya se han definido anteriormente. Esto se necesita hacer debido a que cuando se llena las hojas se puede colocar el mismo elemento pero con mayúscula, en plural, etc. Cuando se filtra se contabiliza estos elementos de manera separada y causa errores. Es por ello que se recomienda utilizar la herramienta VALIDACIÓN DE DATOS, en criterio de validación se utiliza la lista, se ubica los elementos a elegir, se arrastra y se tiene una lista. Con este sencillo ejemplo se tiene una lista de elementos que uno mismo ha señalado y no habrá confusiones a la hora de filtrar estos elementos.

  6. Hola mira tengo un excel con macros, que tiene fecha creacion del 2013 y yo lo modifique pero cambio solo la fecha modificación, que puedo hacer para cambiar la fecha de creacion?, es para un trabajo para que no detecten que lo edite en vez de crear. gracias

  7. Hola ... tengo el siguiente caso :

    En una hoja de la planilla Excel coloco una matriz (3x3) partiendo desde la celda A7 hasta la celda C9, ahora bien me doy un amplio rango para ordenar los números de esta matriz, entre la celda A1 hasta celda C15 (en las restantes celdas no hay datos) y requiero que se ordene de mayor a menor pero en la misma ubicación.

    Al hacer una macro utilizando todo el rango (desde A1 hasta C15) las coloca siempre ordenadas a partir de la celda A1 y obviamente si lo efectúo manualmente y reduzco el rango a las que las contiene datos me las deja como quiero.

    Alguna macro o instrucción me permite realizar este procedimiento.

    De ante mano gracias y saludos

  8. Hola que tal.

    quisiera hacer una consulta. Tengo un problema al ejecutar:

    Private Sub Worksheet_Activate()
    Sheets("GUIAS").Cells(4, 2) = Format(Now, "MM/DD/YYYY")
    End Sub

    Me sale error de compilación, no se puede encontrar en proyecto o biblioteca.

    La cree en excel 2003 pero trato de ejecutarla en 2010 y 2013 y sale ese error. Podrían ayudarme? Gracias 😉

    • Ojo con las comillas dobles, ya que las copié tal cual las tienes y me sacó error.

      Ensaya esto:

      Sub Worksheet_Activate()
      Cells(4, 2).FormulaR1C1 = Format(Now, "MM / DD / YYYY")
      End Sub

      Si te sirve, es con mucho gusto...

  9. como puedo leer un dato en negrita de una tabla dinamica?

  10. Buenos días,

    tengo varias filas combinadas ya que cada fila tiene el mismo dato, pero al filtrar solo me filtra una de las filas por lo que no puedo ver realmente todos los datos asociados a esa información.

    NÚMERO DESCRIPCIÓN CAPACIDAD MEDIO
    CUARTO

    CARROS
    MOTOS
    1 TIPO A 90 CAMIONES
    BICICLETAS
    CAMIONETAS

    y al filtrarlo solo me aparece la primera fila! como puedo solucionar esto?

    agradezco su ayuda.

  11. Buenas! Quisiera saber si hay alguna manera de hacer una lista desplegable en una celda la cual, al abrir la lista, cada dato tenga una casilla de verificación para poder marcar sólo las que queremos.
    Me explico. Necesito crear una relación de pisos que están alquilados por meses sueltos, entonces quisiera tener una lista en la que poder marcar que en el piso X la persona Y lo tuvo alquilado enero, marzo y julio....no sé si se puede hacer, la idea es que haya una lista con los meses y al desplegarla, pueda ver los meses marcados..
    Gracias!

  12. Hola...!
    Estoy creando mi primera macro... pero al ejecutarlo para probarlo en otra hoja del mismo libro me sale la siguiente ventana:
    ¡se ha producido el error 1004 en tiempo de ejecución!
    una tabla no puede superponer sobre otra tabla.

    Al dar clic en el botón depurar:

    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$3:$P$33"), , xlYes).Name = _
    "Tabla3"

    Espero sus comentarios
    Gracias

    • Prueba añadir una macro que elimine la tabla creada previamente antes de crear la nueva tabla.

      Saludos

  13. Hola a todos, me gustaría que me puedan ayudar con el siguiente problema que a la vez es un reto que les puede servir a cualquiera algún día.

    Tengo 12 meses de venta, del cual quiero sacar el promedio de ventas de los 06 últimos meses, pero, sin considerar 4 meses cualquieras (pueden estar dentro de los 6 ultimos meses) esos meses yo lo tengo concatenado en una sóla celda.

    Gracias de antemano!

  14. Tengo un problema, creo sencillo, pero no lo puedo resolver. Tengo en una celda una lista desplegable que arme con la opcion "validacion de datos", pero cuando comparto el archivo no se porque motivo pierde la referencia. En fin, lo que quiero hacer es, y aprovechando que tengo algunas macros en la hoja, armar el listado en la celda pero con macro, pero sin utilizar una lista desplegable, quiero que se arme la lista desplegable en la celda tal como la funcion validacion de datos pero con una macro. Se puede?

  15. Hola amigos estoy en la búsqueda de alguna macro excel para comprimir (winrar ó WinZip) carpeta completa, e realizado varios intentos con algunos ejemplos vistos en Internet pero no logro hacer lo que quiero.

    ejemplo

    Sub ComprimirArchivos()
    Dim ShellApp As Object
    Dim FileNameZip As Variant
    Dim FileNames As Variant
    Dim i As Long, FileCount As Long

    ' Obtener los nombres de los archivo
    FileNames = Application.GetOpenFilename _
    (FileFilter:="Todos los archivos. (*.*),*.*", _
    FilterIndex:=1, _
    Title:=" Seleccione los archivos para comprimir. ", _
    MultiSelect:=True)

    ' Salir si se cancela el cuadro de diálogo
    If Not IsArray(FileNames) Then Exit Sub

    FileCount = UBound(FileNames)
    FileNameZip = Application.DefaultFilePath & "\PruebaComprimir.zip"

    ' Crear archivo Zip vacío...
    Open FileNameZip For Output As #1
    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1

    Set ShellApp = CreateObject("Shell.Application")

    ' Copia los archivos a la carpeta comprimida
    For i = LBound(FileNames) To UBound(FileNames)
    ShellApp.Namespace(FileNameZip).CopyHere FileNames(i)
    Next i

    On Error Resume Next
    Do Until ShellApp.Namespace(FileNameZip).items.Count = FileCount
    Application.Wait (Now + TimeValue("0:00:01"))
    Loop

    If MsgBox(FileCount & " Los archivos se han comprimido en:" & _
    vbNewLine & FileNameZip & vbNewLine & vbNewLine & _
    " Quieres ver el archivo zip?", vbQuestion + vbYesNo) = vbYes Then _
    Shell "Explorer.exe /e," & FileNameZip, vbNormalFocus
    End Sub

    En este ejemplo me hace algo de lo que quiero pero no escoge la carpeta completa que quiero comprimir, sino que abre y hay que escoger todos los archivo, al hacerlo con un solo archivo lo encripta pero al escoger varios me da un error.

    Me ayudan por favor

  16. Hola tengo una base de datos con la cual quiero llenar una tabla pero sin tener que poner todos y solo se pongan los que elija de una lista despegable, y asi al elegir una opcion de dicha lista se rellene la tabla automaticamente.

  17. habria la posibilidad de crear una macro que concatene celdas conservando su formato (por ejemplo color, tamaño de letra, tipo, etc)

    • Las macros extienden la funcionalidad de Excel, consrvando las restricciones correspondientes a Excel, por ejemplo, si una celda contiene un color A y otra el color B, solo se podría hacer algún artificio con el format condicional para lograr que aparezcan dos colores, en cambio, si se tratan de dos tamaños de letra ese efecto si se podría realizar sin artificios de por medio.

  18. buenas noches, tengo una consulta.

    Tengo un macro para duplicar hojas a partir de una hoja "apu", y con respecto a un listado que tengo en una hoja "presupuesto", todo bien hasta ahí, lo que quiero es que al momento de insertar nuevos registros en el listado y ejecute el macro se cree la hoja nueva.

    Sub apus()
    Dim HojaOrigen As Worksheet, HojaNueva As Worksheet
    Set HojaOrigen = Sheets("Presupuesto")
    Dim ultfila As Long
    ultfila = Range("A" & Rows.Count).End(xlUp).Row
    'para recorrer los 11 registros del listado
    For i = 1 To ultfila - 1
    'desactivamos la actualización/refresco de pantalla
    Application.ScreenUpdating = False
    'duplicamos la Hoja 'modelo'
    Sheets("APU").Copy after:=Worksheets(Worksheets.Count)
    Set HojaNueva = Sheets(Worksheets.Count)
    NombreHoja = Worksheets("Presupuesto").Cells(6 + i, 1).Value
    'damos nombre a la hoja con el valor de la celda D7+i
    On Error GoTo ErrorHandler
    HojaNueva.Name = NombreHoja
    'activamos la actualización/refresco de pantalla
    Application.ScreenUpdating = True
    'trasladamos el valor de la celda item
    HojaOrigen.Cells(6 + i, 1).Copy
    HojaNueva.Cells(6, 2).PasteSpecial Paste:=xlValues
    'Seleccionas el rango q quieres combinar
    HojaNueva.Range("B6:E6").Merge
    'trasladamos el valor de la celda descripcion
    HojaOrigen.Cells(6 + i, 2).Copy
    HojaNueva.Cells(7, 2).PasteSpecial Paste:=xlValues
    'Seleccionas el rango q quieres combinar
    HojaNueva.Range("B7:E7").Merge
    'trasladamos el valor de la celda unidad
    HojaOrigen.Cells(6 + i, 3).Copy
    HojaNueva.Cells(8, 2).PasteSpecial Paste:=xlValues
    'Seleccionas el rango q quieres combinar
    HojaNueva.Range("B8:E8").Merge
    ''trasladamos el valor de la celda Cantidad
    HojaOrigen.Cells(6 + i, 4).Copy
    HojaNueva.Cells(9, 2).PasteSpecial Paste:=xlValues
    'Seleccionas el rango q quieres combinar
    HojaNueva.Range("B9:E9").Merge
    'limpiamos el portapapeles
    Application.CutCopyMode = False
    Next i
    ErrorHandler:
    HojaNueva.Name = NombreHoja & i
    'activamos la actualización/refresco de pantalla
    Application.ScreenUpdating = True
    'limpiamos el portapapeles
    Application.CutCopyMode = False
    End Sub

  19. Hola

    Necesito realizar una validación de datos para que se pueda ingresar los siguientes numeros, dónde los primeros tres no cambian, cómo podría hacerlo. Gracias

  20. Hola
    Necesito de vuestra ayuda para poder solucionar un problema que surgió en mi proyecto.
    "Convertir el contenido de una celda en fórmula."
    Os pongo en situación: Supongamos que tenemos por un lado celdas con valores y por otro una tabla que debe actualizarse según el valor de dichas celdas.
    A1: 4 >>> [valor_1]
    A2: 2 >>> [valor_2]
    A3: ([valor_1]*[valor_2])+Tabla_1[@[importe]] >>> [valor_calculado]
    Si llevara el signo = delante devuelve un error, por ello ha de dejarse como texto
    nota: @ es [#Esta fila]

    Tabla_1.- campos:
    [secuencia] >>> (1) será un secuencial
    [importe] >>> (10) importe x
    [total] >>> [valor_calculado] resultado ha de ser 18

    Como veréis la celda A3 es una cadena de texto y lo que se quiere es que se pueda convertir dicha cadena a fórmula.

    La pregunta es, hay función o manera alguna de convertir una cadena de texto en fórmula?

    Gracias de antemano vuestra colaboración

Página de comentarios 1 de 2
1 2

Deja una respuesta

Los campos requeridos estan marcados con *.