Hola grupo, como veréis sigo con preguntas sobre código, en esta ocasión
estoy tratando de hacer una macro que al ejecutarse nos diga en función de
los valores que he introducido las notas.
Es decir en A1, A2, ...etc.. pongo el número ejemplo 4, 6, 9, 2, etc (sería
la nota que ha sacado) y en B1, B2, etc... tendría que devolverme
"Aprobado", "Bien", "Notable", "Sobresaliente" o "Matricula", según sea la
nota de 5, 6, 7, etc...o suspenso cuando es menor de 5.
He conseguido esto que veréis, y funciona, pero soy incapaz de hacer más.
Tambien quería que las celdas de la columna B se pusieran en color, pero se
ponen todas las de A y las de B.
¿Podéis ayudarme con esto por favor?
Un saludo
Josema
Sub Notas()
For I = 1 To 11
If Cells(I, 1).Value >= 5 Then
Cells(I, 2).Value = "Aprobado"
Cells(I, 1).Resize(1, 2).Font.ColorIndex = 5
End If
Next I
End Sub
Últimos mensajes - Powered by IBM
Palabras claves
Hacer una pregunta
Siga el debate
Tengo una respuesta
Busqueda sugerida
Martes 26 de agosto - 08:25
Registrar
Leer las respuestas