3. Condicionales: If y Select Case

En esta lección aprenderás a:

Tomar decisiones con If … Then … Else … End If.
Encadenar condiciones con ElseIf.
Simplificar comparaciones múltiples con Select Case.
Leer el valor de una celda y ejecutar código según su contenido.

If … Then … Else

ClasificarNota.bas

VBA

Sub ClasificarNota()
    Dim nota As Integer
    nota = Range("B2").Value
 
    If nota >= 60 Then
        MsgBox "Aprobado"
    Else
        MsgBox "Reprobado"
    End If
End Sub

ElseIf — múltiples condiciones

CalificarNota.bas

VBA

Sub CalificarNota()
    Dim nota As Integer
    nota = Range("B2").Value
 
    If nota >= 90 Then
        Range("C2").Value = "Sobresaliente"
    ElseIf nota >= 75 Then
        Range("C2").Value = "Bueno"
    ElseIf nota >= 60 Then
        Range("C2").Value = "Aprobado"
    Else
        Range("C2").Value = "Reprobado"
    End If
End Sub

Select Case — comparar contra varios valores

MostrarDepartamento.bas

VBA

Sub MostrarDepartamento()
    Dim codigo As String
    codigo = Range("A2").Value
 
    Select Case codigo
        Case "VEN"
            MsgBox "Ventas"
        Case "ADM"
            MsgBox "Administración"
        Case "TEC"
            MsgBox "Tecnología"
        Case Else
            MsgBox "Departamento desconocido"
    End Select
End Sub

Operadores lógicos: And, Or, Not

Vista tipo Excel: la primera fila muestra las letras de columna; la primera columna muestra los números de fila. En las celdas con fórmula (=...), cada referencia lleva un color distinto. Clic en la referencia: resalta solo esa celda. Clic en el resto de la celda (por ejemplo el = o los operadores): resalta todas las celdas citadas. Repetir el mismo gesto sobre lo ya resaltado lo oculta.

Combinar condiciones en VBAResumen

Los paréntesis ayudan a agrupar condiciones complejas: If (a > 0 And b > 0) Or c = True Then

	A	B	C
1	Operador	Significado	Ejemplo
2	And	Ambas condiciones deben ser True	If edad >= 18 And pais = "MX" Then
3	Or	Al menos una condición debe ser True	If rol = "Admin" Or rol = "Super" Then
4	Not	Invierte el resultado	If Not activo Then
5	<>	Distinto de	If nombre <> "" Then

Practica en Excel

Abre Excel (o copia los datos con el botón de la tabla), sigue los pasos y comprueba el resultado en tu hoja.

Escribe un valor numérico en B2 y ejecuta CalificarNota() con distintos valores.
Agrega un código de departamento en A2 ("VEN", "ADM", "TEC") y ejecuta MostrarDepartamento().
Añade un Case "MKT" para Marketing en el Select Case.
Crea una Sub que use And para verificar que dos celdas tengan valores mayores que 0.
Prueba IsNumeric() en una condición If para validar que A1 tenga un número antes de procesar.

Ejercicios de práctica

Ejercicio 1 — Par o Impar

Escribe un número en A1. Crea una Sub que lo lea y escriba en B1 "Par" si es divisible por 2 (Mod 2 = 0), o "Impar" en caso contrario.

Ver solución sugerida

ParImpar.bas

VBA

Sub ParImpar()
    Dim n As Long
    n = Range("A1").Value
    If n Mod 2 = 0 Then
        Range("B1").Value = "Par"
    Else
        Range("B1").Value = "Impar"
    End If
End Sub

Ejercicio 2 — Temperatura

Lee una temperatura de B1. Escribe en C1: "Calor" si supera 30°C, "Frío" si es menor de 10°C, y "Templado" en cualquier otro caso.

Ver solución sugerida

ClasificarTemp.bas

VBA

Sub ClasificarTemp()
    Dim temp As Double
    temp = Range("B1").Value
 
    If temp > 30 Then
        Range("C1").Value = "Calor"
    ElseIf temp < 10 Then
        Range("C1").Value = "Frío"
    Else
        Range("C1").Value = "Templado"
    End If
End Sub

Ejercicio 3 — Celda vacía

Crea una Sub que verifique si A1 está vacía (Range("A1").Value = "") y muestre un aviso con MsgBox pidiendo que se complete ese campo.

Ver solución sugerida

ValidarCelda.bas

VBA

Sub ValidarCelda()
    If Range("A1").Value = "" Then
        MsgBox "La celda A1 no puede estar vacía. Por favor complétala."
    Else
        MsgBox "A1 tiene valor: " & Range("A1").Value
    End If
End Sub

Ejercicio 4 — Signo del número

Escribe un número en A1. Crea una Sub que verifique si es positivo, negativo o cero, y escriba el resultado en B1.

Ver solución sugerida

SignoNumero.bas

VBA

Sub SignoNumero()
    Dim n As Double
    n = Range("A1").Value
    If n > 0 Then
        Range("B1").Value = "Positivo"
    ElseIf n < 0 Then
        Range("B1").Value = "Negativo"
    Else
        Range("B1").Value = "Cero"
    End If
End Sub

Ejercicio 5 — Clasificador por código

Escribe un código de producto en A1. Usa Select Case: "P" → "Perecedero", "D" → "Duradero", "E" → "Electrónico". Cualquier otro → "Sin clasificar". Escribe el resultado en B1.

Ver solución sugerida

ClasificarProducto.bas

VBA

Sub ClasificarProducto()
    Select Case Range("A1").Value
        Case "P"
            Range("B1").Value = "Perecedero"
        Case "D"
            Range("B1").Value = "Duradero"
        Case "E"
            Range("B1").Value = "Electrónico"
        Case Else
            Range("B1").Value = "Sin clasificar"
    End Select
End Sub

Ejercicio 6 — Rango de notas con letras ⭐⭐

Escribe una nota (0–100) en A1. Clasifícala con ElseIf: A (90–100), B (80–89), C (70–79), D (60–69), F (menor de 60). Escribe la letra en B1.

Ver solución sugerida

NotaLetra.bas

VBA

Sub NotaLetra()
    Dim nota As Integer
    nota = CInt(Range("A1").Value)
 
    If nota >= 90 Then
        Range("B1").Value = "A"
    ElseIf nota >= 80 Then
        Range("B1").Value = "B"
    ElseIf nota >= 70 Then
        Range("B1").Value = "C"
    ElseIf nota >= 60 Then
        Range("B1").Value = "D"
    Else
        Range("B1").Value = "F"
    End If
End Sub

Ejercicio 7 — Comparar A1 y B1 ⭐⭐

Lee los valores de A1 y B1. Escribe en C1: "A1 mayor", "B1 mayor" o "Iguales" según corresponda.

Ver solución sugerida

CompararCeldas.bas

VBA

Sub CompararCeldas()
    Dim a As Double
    Dim b As Double
    a = Range("A1").Value
    b = Range("B1").Value
 
    If a > b Then
        Range("C1").Value = "A1 mayor"
    ElseIf b > a Then
        Range("C1").Value = "B1 mayor"
    Else
        Range("C1").Value = "Iguales"
    End If
End Sub

Ejercicio 8 — Validar con And ⭐⭐

Escribe dos valores en A1 y B1. Crea una Sub que use And para verificar que ambos sean mayores que 0. Si lo son, escribe el producto en C1; si no, muestra un error con MsgBox.

Ver solución sugerida

ValidarYCalcular.bas

VBA

Sub ValidarYCalcular()
    Dim a As Double
    Dim b As Double
    a = Range("A1").Value
    b = Range("B1").Value
 
    If a > 0 And b > 0 Then
        Range("C1").Value = a * b
    Else
        MsgBox "Ambos valores deben ser mayores que 0."
    End If
End Sub

Ejercicio 9 — Clasificador de edades ⭐⭐

Escribe una edad en A1. Clasifícala: menor de 18 → "Menor de edad", 18–25 → "Joven", 26–60 → "Adulto", mayor de 60 → "Senior". Escribe el resultado en B1.

Ver solución sugerida

ClasificarEdad.bas

VBA

Sub ClasificarEdad()
    Dim edad As Integer
    edad = CInt(Range("A1").Value)
 
    If edad < 18 Then
        Range("B1").Value = "Menor de edad"
    ElseIf edad <= 25 Then
        Range("B1").Value = "Joven"
    ElseIf edad <= 60 Then
        Range("B1").Value = "Adulto"
    Else
        Range("B1").Value = "Senior"
    End If
End Sub

Ejercicio 10 — Select Case con rangos ⭐⭐

Escribe un mes (1–12) en A1. Usa Select Case con rangos (Case 12, 1, 2) para clasificarlo como: "Invierno" (12,1,2), "Primavera" (3,4,5), "Verano" (6,7,8) u "Otoño" (9,10,11).

Ver solución sugerida

Estacion.bas

VBA

Sub Estacion()
    Select Case CInt(Range("A1").Value)
        Case 12, 1, 2
            Range("B1").Value = "Invierno"
        Case 3, 4, 5
            Range("B1").Value = "Primavera"
        Case 6, 7, 8
            Range("B1").Value = "Verano"
        Case 9, 10, 11
            Range("B1").Value = "Otoño"
        Case Else
            Range("B1").Value = "Mes inválido"
    End Select
End Sub

Ejercicio 11 — IsNumeric como validación ⭐⭐⭐

Escribe texto o número en A1. Crea una Sub que use IsNumeric() para verificar si el contenido es numérico. Si lo es, calcula su raíz cuadrada (Sqr()); si no, muestra un error amigable.

Ver solución sugerida

RaizCuadrada.bas

VBA

Sub RaizCuadrada()
    If IsNumeric(Range("A1").Value) Then
        Range("B1").Value = Sqr(CDbl(Range("A1").Value))
    Else
        MsgBox "A1 no contiene un número válido."
    End If
End Sub

Ejercicio 12 — Clasificar ventas ⭐⭐⭐

Escribe un monto en A1. Crea un clasificador: menor de 1 000 → "Venta baja", 1 000–9 999 → "Venta media", 10 000 o más → "Venta alta". Muéstralo en B1 y además cambia el fondo de B1 al color correspondiente (rojo/amarillo/verde).

Ver solución sugerida

ClasificarVenta.bas

VBA

Sub ClasificarVenta()
    Dim monto As Double
    monto = Range("A1").Value
 
    If monto < 1000 Then
        Range("B1").Value = "Venta baja"
        Range("B1").Interior.Color = RGB(255, 180, 180)
    ElseIf monto < 10000 Then
        Range("B1").Value = "Venta media"
        Range("B1").Interior.Color = RGB(255, 255, 150)
    Else
        Range("B1").Value = "Venta alta"
        Range("B1").Interior.Color = RGB(180, 255, 180)
    End If
End Sub

Ejercicio 13 — Día de la semana ⭐⭐⭐

Usa Weekday(Now()) para obtener el número del día actual (1=Dom … 7=Sáb). Con Select Case, muestra el nombre del día en español y si es día laboral o fin de semana.

Ver solución sugerida

DiaSemana.bas

VBA

Sub DiaSemana()
    Dim dia As Integer
    Dim nombre As String
    Dim tipo As String
    dia = Weekday(Now())
 
    Select Case dia
        Case 1: nombre = "Domingo":  tipo = "Fin de semana"
        Case 2: nombre = "Lunes":    tipo = "Día laboral"
        Case 3: nombre = "Martes":   tipo = "Día laboral"
        Case 4: nombre = "Miércoles": tipo = "Día laboral"
        Case 5: nombre = "Jueves":   tipo = "Día laboral"
        Case 6: nombre = "Viernes":  tipo = "Día laboral"
        Case 7: nombre = "Sábado":   tipo = "Fin de semana"
    End Select
 
    MsgBox "Hoy es " & nombre & " — " & tipo
End Sub

Ejercicio 14 — Validar rango con And ⭐⭐⭐

Escribe un número en A1. Crea una Sub que verifique que está entre 1 y 100 inclusive usando And. Si está en rango, calcula su porcentaje sobre 100 y escríbelo en B1. Si no, muestra un error.

Ver solución sugerida

ValidarRango.bas

VBA

Sub ValidarRango()
    Dim n As Integer
    n = CInt(Range("A1").Value)
 
    If n >= 1 And n <= 100 Then
        Range("B1").Value = n & "% de 100"
    Else
        MsgBox "El valor debe estar entre 1 y 100."
    End If
End Sub

Ejercicio 15 — Semáforo de indicador ⭐⭐⭐

Escribe un porcentaje en A1. Colorea la celda B1: rojo si el porcentaje es menor de 40, amarillo si está entre 40 y 74, verde si es 75 o más. Además escribe el texto "Crítico", "En proceso" o "Logrado" en B1.

Ver solución sugerida

Semaforo.bas

VBA

Sub Semaforo()
    Dim pct As Double
    pct = Range("A1").Value
 
    If pct < 40 Then
        Range("B1").Value = "Crítico"
        Range("B1").Interior.Color = RGB(255, 100, 100)
    ElseIf pct < 75 Then
        Range("B1").Value = "En proceso"
        Range("B1").Interior.Color = RGB(255, 220, 80)
    Else
        Range("B1").Value = "Logrado"
        Range("B1").Interior.Color = RGB(100, 200, 100)
    End If
End Sub

Contenido

📚 Cursos de Café y Código

3. Condicionales: If y Select Case

If … Then … Else

ElseIf — múltiples condiciones

Select Case — comparar contra varios valores

Operadores lógicos: And, Or, Not

Combinar condiciones en VBAResumen

Practica en Excel

Ejercicios de práctica

Ejercicio 1 — Par o Impar

Ejercicio 2 — Temperatura

Ejercicio 3 — Celda vacía

Ejercicio 4 — Signo del número

Ejercicio 5 — Clasificador por código

Ejercicio 6 — Rango de notas con letras ⭐⭐

Ejercicio 7 — Comparar A1 y B1 ⭐⭐

Ejercicio 8 — Validar con And ⭐⭐

Ejercicio 9 — Clasificador de edades ⭐⭐

Ejercicio 10 — Select Case con rangos ⭐⭐

Ejercicio 11 — IsNumeric como validación ⭐⭐⭐

Ejercicio 12 — Clasificar ventas ⭐⭐⭐

Ejercicio 13 — Día de la semana ⭐⭐⭐

Ejercicio 14 — Validar rango con And ⭐⭐⭐

Ejercicio 15 — Semáforo de indicador ⭐⭐⭐

Pon a prueba tus conocimientos

¡Hecho con mucho cariño! ☕