Taller Práctico 6: Bucles For...Next y Do While...Loop

Evaluaciones Desempeño Anual y Control Presupuestal de Obras (10 Ejercicios)

1. Tablas de Datos para la Práctica

TABLA 1: Evaluaciones Desempeño Anual (Rango A1:D21) — Para Ejercicios 51 a 55 (For Next)
Fila A (Empleado) B (Puntaje Técnico) C (Puntaje Blando) D (Puntaje Final / Estado)
1EmpleadoPuntaje TécnicoPuntaje BlandoResultado
2Alfonso Rivera8590
3Beatriz Soler6055
4Camilo Trujillo9592
5Diana Uribe4550
6Eduardo Vega7080
7Flor Zapatero8885
8Gonzalo Arce5260
9Irene Bernal9896
10Jaime Cabrera6872
11Karla Domínguez4045
12Lorenzo Enriquez8278
13Mónica Fuentes9189
14Néstor Gaitán5862
15Olga Hernández7785
16Pablo Izquierdo3540
17Quintín Jurado8994
18Rocío Loyola6368
19Sergio Montenegro9698
20Tania Narváez5055
21Ulises Ochoa7479
22--- ESPACIO EN BLANCO (FILA VACÍA 22) ---
23--- ESPACIO EN BLANCO (FILA VACÍA 23) ---
TABLA 2: Control de Presupuestos de Obras (Rango A24:D44) — Para Ejercicios 56 a 60 (Do While)
Fila A (Proyecto ID) B (Presupuesto Base $) C (Gasto Real $) D (Estado Auditoría)
24Proyecto IDPresupuesto Base ($)Gasto Real ($)Estado Auditoría
25OBRA-101150000142000
26OBRA-102280000310000
27OBRA-1039500088000
28OBRA-104450000490000
29OBRA-105120000118000
30OBRA-106310000345000
31OBRA-1078000075000
32OBRA-108520000560000
33OBRA-109200000195000
34OBRA-110175000190000
35OBRA-111300000285000
36OBRA-112610000670000
37OBRA-113110000105000
38OBRA-114240000255000
39OBRA-115380000370000
40OBRA-116490000530000
41OBRA-117130000125000
42OBRA-118270000260000
43OBRA-119185000198000
44OBRA-120420000410000

2. Taller de Ejercicios

Sección A: Ejercicios con For...Next (Tabla 1 - Filas 2 a 21)

Ejercicio 51 Promedio Global de Desempeño

Escribe un bucle For...Next (filas 2 a 21). Promedia el Puntaje Técnico (columna B) y el Puntaje Blando (columna C), escribiendo la nota final en la columna D.

Ejercicio 52 Clasificación de Talento Destacado

Mediante For...Next (filas 2 a 21), si ambos puntajes (columnas B y C) son mayores o iguales a 85, asigna el texto "Candidato a Ascenso" en la columna D.

Ejercicio 53 Resaltado de Personal en Riesgo

Recorre la Tabla 1 con For...Next. Si el Puntaje Técnico (columna B) es inferior a 50, aplica un relleno rojo claro a la celda del Empleado (columna A).

Ejercicio 54 Contador de Desempeños Sobresalientes

Usa For...Next (filas 2 a 21) para contar cuántos empleados obtuvieron un Puntaje Blando (columna C) superior a 90 puntos. Notifica el resultado final en un MsgBox.

Ejercicio 55 Plan de Capacitación Obligatoria

Con For...Next, evalúa el Puntaje Blando (columna C). Si es menor a 60, escribe "Capacitación Requerida" en la columna D y aplica texto en negrita.

Sección B: Ejercicios con Do While...Loop (Tabla 2 - Inicia Fila 25)

Ejercicio 56 Detección de Sobrecostos en Obras

Crea un bucle Do While...Loop a partir de la fila 25. Si el Gasto Real (columna C) es mayor que el Presupuesto Base (columna B), escribe "Sobrecosto" en la columna D.

Ejercicio 57 Marcado de Proyectos Eficientes

Utiliza Do While desde la fila 25. Si el Gasto Real es menor al Presupuesto Base, aplica un relleno verde claro a la celda del Proyecto ID (columna A).

Ejercicio 58 Acumulador Total de Desviación Presupuestaria

Recorre la Tabla 2 con Do While...Loop y suma en una variable el valor total del exceso (Gasto Real - Presupuesto Base) de aquellos proyectos con sobrecosto. Muestra la cifra en un MsgBox.

Ejercicio 59 Auditoría Prioritaria por Gran Desviación

Mediante Do While...Loop, si el sobrecosto de una obra supera los $30,000, asigna el texto "AUDITORÍA URGENTE" en la columna D.

Ejercicio 60 Formato Especial para Obras de Gran Envergadura

Escribe una macro Do While...Loop iniciando en la fila 25. Si el Presupuesto Base (columna B) supera los $400,000, aplica un formato de texto en color azul oscuro y negrita a la fila completa (columnas A a D).