Foro Excel

Buenas a todos.
Estoy trabajando en una tabla y me ha surgido la necesidad de hacer cierta cosa, pero no tengo ni idea de como hacerlo. Os cuento mi necesidad.

Necesito crear una celda A que se pueda rellenar del 1 al 5. Crear otra celda B que tambien se pueda rellenar del 1 al 5, pero con una curiosidad, esta celda B no podra rellenarse si en la celda A no hay un numero igual o mayor que 3. Si es posible, que al yo seleccionar en la celda B cualquier numero, al necesitar en la celda A un valor minimo de 3, se ponga automaticamente el valor minimo de 3 al yo insertar cualquier valor en la celda B.
Asi mismo, crear una celda C que necesite que A y B contengan el valor minimo de 5 para poder empezar a rellenarla (tambien con numeros del 1 al 5).

Si alguien es capaz de ayudarme con esto, mis demonios dejaran de atormentarme.

Un saludo y muchas gracias por vuestra atencion.

Hola Viejo Elvensen,

Inicialmente se me ocurre algo de éste estilo. Se puede mejorar... espero te sirva.

Saludos desde Medellín, Colombia

Hola, creo que es un caso de validaciones dependientes y macros, hice (creo la primera parte), obviando lo automatico porque es macro.

Un saludo... desde Peru...
Tus demonios me persiguieron... dos horas !!!
ahora estamos libres... aun te sirven ?
aproveche... para poner mi banderita... alli esta !!!
Saludos...
.... no veo adjuntar...
... el codigo:
Option Explicit
Dim booSigue As Boolean
Dim strCeldAnt As String
Dim intColAnt As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
booSigue = True: Call subLogica: booSigue = False
intColAnt = ActiveCell.Column
End Sub
Sub subLogica()
Select Case intColAnt
Case 1
If Cells(3, 1) < 1 Or Cells(3, 1) > 5 Then
Cells(3, 1) = "": Cells(3, 2) = "": Cells(3, 2) = ""
ElseIf Cells(3, 1) < 3 Then
Cells(3, 2) = "": Cells(3, 3) = ""
End If
If (Cells(3, 1) + Cells(3, 2)) < 5 Then Cells(3, 2) = ""
Case 2
If Cells(3, 2) < 0 And Cells(3, 2) > 6 Then
Cells(3, 2) = "": Cells(3, 3) = ""
Else
If Cells(3, 1) < 3 Then
Cells(3, 1) = 3: Cells(3, 3) = ""
ElseIf Cells(3, 1) + Cells(3, 2) < 5 Then
Cells(3, 3) = ""
End If
End If
Case 3
If Cells(3, 3) < 1 Or Cells(3, 3) > 5 Then
Cells(3, 3) = ""
ElseIf (Cells(3, 1) + Cells(3, 2)) < 5 Then
Cells(3, 3) = ""
End If
End Select
End Sub
.... avisas