Escribiendo Tu Primer Procedimiento VBA

• Dim ws As Worksheet / Dim i As Long — estas líneas declaran dos variables: ws contendrá una referencia a la hoja Employees, e i servirá para contar las filas;
• Set ws = ThisWorkbook.Worksheets("Employees") — este es el hábito del modelo de objetos: nombra la hoja explícitamente en lugar de depender de la que esté activa en ese momento;
• ws.Cells(ws.Rows.Count, 1).End(xlUp).Row — un recurso estándar que encuentra la última fila utilizada en la columna A, sin importar cuántos empleados haya en la tabla;
• For i = 2 To lastRow ... Next i — un bucle que repite el código una vez por cada fila de datos, comenzando en la fila 2 para omitir el encabezado;
• If ws.Cells(i, 6).Value > 55000 Then — una decisión: solo las filas donde la columna Salary (columna 6) supera 55000 se formatean;
• MsgBox — una ventana emergente simple que confirma que la macro ha finalizado.

1. Selecciona todo el procedimiento HighlightTopEarners (desde Sub hasta End Sub), cópialo y pégalo justo debajo de sí mismo en modIntro.
2. Cambia el nombre de la segunda copia en la línea Sub a Sub HighlightITDepartment() — cada procedimiento en un módulo necesita un nombre único, o VBA no sabrá a cuál te refieres cuando intentes ejecutarlo.
3. La condición que debes cambiar es la línea If. Actualmente verifica un número:

If ws.Cells(i, 6).Value > 55000 Then

Ahora debe verificar texto — columna 3 (Departamento) igual a "IT". Recuerda del Capítulo 2 que las comparaciones de texto necesitan comillas alrededor del valor a comparar, y se usa = en lugar de >. 4. Todo lo demás dentro del bucle (la línea Interior.Color, la estructura del bucle) puede permanecer igual — solo cambia la condición que se evalúa.

Agregar comentarios

1. Una línea de comentario comienza con una apóstrofe (') y va en su propia línea directamente encima de la línea Sub — no dentro del procedimiento.
2. Escríbelo como si explicaras la macro a un compañero que nunca la ha visto, no como un recordatorio para ti mismo. Compara:
   • Poco útil: ' recorre las filas (describe cómo, lo cual ya muestra el código)
   • Más útil: ' Resalta empleados que ganan más de $55,000 (describe qué logra, lo cual no es obvio a simple vista)
3. Haz lo mismo para el segundo procedimiento — una frase que describa qué resalta y por qué, en términos del propósito empresarial (personal del departamento de IT), no la mecánica del bucle.

' Highlights employees earning over $55,000, to flag top earners at a glance.
Sub HighlightTopEarners()
    Dim ws As Worksheet
    Dim i As Long
    Dim lastRow As Long

    Set ws = ThisWorkbook.Worksheets("Employees")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastRow
        If ws.Cells(i, 6).Value > 55000 Then
            ws.Cells(i, 6).Interior.Color = RGB(198, 239, 206)
        End If
    Next i

    MsgBox "Done — high earners are highlighted."
End Sub

' Highlights every employee who works in the IT department.
Sub HighlightITDepartment()
    Dim ws As Worksheet
    Dim i As Long
    Dim lastRow As Long

    Set ws = ThisWorkbook.Worksheets("Employees")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastRow
        If ws.Cells(i, 3).Value = "IT" Then
            ws.Cells(i, 3).Interior.Color = RGB(198, 239, 206)
        End If
    Next i

    MsgBox "Done — IT department is highlighted."
End Sub

Escribe ambos en modIntro, ejecuta primero HighlightTopEarners y confirma que exactamente dos filas se vuelven verdes (Emma Davis con $62,000 y Sophia Miller con $59,000 — las otras tres están en o por debajo de $55,000), luego ejecuta HighlightITDepartment y confirma que la fila de Sophia Miller se resalta en su lugar. Guarda con Ctrl+S una vez que ambos funcionen.