VAlidacion

Si siempre incrementas 5 al valor introducido manualmente (salvo que los maestros digan lo contrario), podrias probar con algo como:

(en el módulo de la hoja)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Application.EnableEvents = False
Target = Target + 5
Application.EnableEvents = True
End If
End Sub

Saludos desde Tenerife: Antonio.
*******************************************************
"yedeon" escribió en el mensaje news:
hi, saludos

alguna idea de como resolverlo con "la validacion de datos".

...AB...C...D
1.5...10...X
2.6...11
3.7...12

al escoger D1, me aparesca la lista de opciones de validacion ,
me de a elegir 5,6o7
dependiendo el elegido me de su derecho, 5 aparece en D1 10
6aparece en D1 11, 7 aparece 12 en d1