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

📚 Elige un curso

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! ☕