Ejemplos de Código VBA

Busque en la siguiente lista ejemplos gratuitos de código VBA de Excel completos con explicaciones.
Algunos incluyen también archivos descargables. Estas macros y scripts VBA de Excel están desarrollados profesionalmente y listos para usar.

Esperamos que esta lista le resulte útil

Visite nuestra página de Ejemplos de Código VBA en inglés para encontrar más de 500 artículos

Ejemplos de Macros de Excel

A continuación encontrará una lista de ejemplos básicos de macros para tareas comunes de automatización de Excel.

Copiar y Pegar una Fila de una Hoja a Otra

Esta macro super simple copiará una fila de una hoja a otra.

Sub Copiar_y_Pegar_Una_Fila()
'Copiar y Pegar Fila
Sheets("Hoja1").Range("1:1").Copy Sheets("Hoja2").Range("1:1")

Application.CutCopyMode = False

End Sub

Enviar Email

Esta útil macro iniciará Outlook, redactará un correo electrónico y adjuntará el ActiveWorkbook.

Sub Enviar_eMail()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = "test@test.com"
        .Subject = "Correo de PruebaEmail"
        .Body = "Cuerpo del Mensaje"
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Listar Todas las Hojas del Libro de Trabajo

Esta macro listará todas las hojas de un libro de trabajo.

Sub Listar_Hojas()
    
    Dim ws As Worksheet
    Dim x As Integer
    
    x = 1
    
    ActiveSheet.Range("A:A").Clear
    
    For Each ws In Worksheets
        ActiveSheet.Cells(x, 1) = ws.Name
        x = x + 1
    Next ws
    
End Sub

Mostrar Todas las Hojas de Trabajo

Esta macro mostrará todas las hojas de trabajo.

' Mostrar todas las hojas de trabajo
Sub Mostrar_Todas_Las_Hojas()
    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
    
End Sub

Ocultar Todas las Hojas de Trabajo Excepto la Activa

Esta macro ocultará todas las hojas de trabajo excepto la hoja de trabajo activa.

' Ocultar Todas las Hojas Excepto la Hoja Activa
Sub Ocultar_Todas_las_Hojas_Excepto_la_Hoja_Activa()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
    Next ws
    
End Sub

Desproteger Todas las Hojas de Trabajo

Este ejemplo de macro desprotegerá todas las hojas de trabajo de un libro.

' Desproteger todas las Hojas de Trabajo
Sub Desproteger_Todas_las_Hojas_de_Trabajo()
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.Unprotect "password"
    Next ws
    
End Sub

Proteger Todas las Hojas de Trabajo

Esta macro protegerá todas las hojas de trabajo de un libro.

' Proteger todas las Hojas de Trabajo
Sub Proteger_Todas_las_Hojas_de_Trabajo()
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.protect "password"
    Next ws
    
End Sub

Borrar Todas las Formas

Esta macro borrará todas las formas en una hoja de trabajo.

Sub Borrar_Todas_las_Formas()

Dim forma As Shape

For Each forma In ActiveSheet.Shapes
  forma.Delete
Next

End Sub

Borrar Todas las Filas en Blanco de una Hoja de Trabajo

Esta macro de ejemplo eliminará todas las filas en blanco de una hoja de trabajo.

Sub Eliminar_Filas_en_Blanco()
Dim x As Long

With ActiveSheet
    For x = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
        If WorksheetFunction.CountA(.Rows(x)) = 0 Then
            ActiveSheet.Rows(x).Delete
        End If
    Next
End With

End Sub

Resaltar Valores Duplicados en la Selección

Utilice esta sencilla macro para resaltar todos los valores duplicados en una selección.

' Resaltar Valores Duplicados en la Selección
Sub Resaltar_Valores_Duplicados_en_la_Seleccion()
    Dim myRange As Range
    Dim cell As Range
    
    Set myRange = Selection
    
    For Each cell In myRange
        If WorksheetFunction.CountIf(myRange, cell.Value) > 1 Then
            cell.Interior.ColorIndex = 36
        End If
    Next cell
End Sub

Resaltar Números Negativos

Esta macro automatiza la tarea de resaltar números negativos.

' Resaltar Números Negativos
Sub Resaltar_Numeros_Negativos()
    Dim myRange As Range
    Dim cell As Range
    
    Set myRange = Selection
    
    For Each cell In myRange
        If cell.Value < 0 Then
            cell.Interior.ColorIndex = 36
        End If
    Next cell
End Sub

Resaltar Filas Alternativas

Esta macro es útil para resaltar filas alternas.

' Resaltar Filas Alternativas
Sub Resaltar_Filas_Alternativas()
    Dim cell As Range
    Dim myRange As Range
    
    myRange = Selection
    
    For Each cell In myRange.Rows
        If cell.Row Mod 2 = 1 Then
            cell.Interior.ColorIndex = 36
        End If
    Next cell
End Sub

Resaltar Celdas en Blanco en la Selección

Esta macro básica resalta celdas en blanco en una selección.

' Resaltar Celdas en Blanco en la Selección
Sub Resaltar_Celdas_en_Blanco()
    Dim rng As Range
    
    Set rng = Selection
    rng.SpecialCells(xlCellTypeBlanks).Interior.Color = vbCyan
    
End Sub

Ejemplos de Macros VBA de Excel – Descarga Gratuita

Hemos creado un complemento gratuito de Ejemplos de Código VBA (Macros). El complemento contiene más de 100 ejemplos de macros listos para usar, incluidos los ejemplos de macros anteriores

Preguntas frecuentes sobre macros Excel / VBA

¿Cómo escribir código VBA (Macros) en Excel?

Para escribir código VBA en Excel, abra el Editor VBA (ALT + F11). Escriba «Sub HolaMundo», Presione Enter, ¡y habrá creado una Macro! O Copie y pegue uno de los procedimientos listados en esta página en la ventana de código.

¿Qué es Excel VBA?

VBA es el lenguaje de programación utilizado para automatizar Excel.

¿Cómo utilizar VBA para automatizar Excel?

Usted utiliza VBA para automatizar Excel creando Macros. Las macros son bloques de código que completan ciertas tareas.

Practicar VBA

Puede practicar VBA con nuestro tutorial interactivo de VBA.