¿Cómo se trabaja con rutinas en Excel?

Carlos,

esto hay que hacerlo usando los eventos de Excel y poniendo el código
que haga lo que tu quieras.

En tu caso creo que debes usar el evento Change de la Hoja. Vete a
Herramientas/Macro/Editor de Visual Basic. A la izquierda de la
pantalla te aparecerá la ventana del Explorador de proyectos, haz
doble click en la hoja en la que quieres hacer lo que nos cuentas.

Si después quieres seguir adelante dínoslo y lo intentaremos.

Saludos,

Valentín Playá
Sonotronic S.A.
Madrid, España

y ahora que debo de hacer?

"Valentín Playá" escribió:

Carlos,

esto hay que hacerlo usando los eventos de Excel y poniendo el código
que haga lo que tu quieras.

En tu caso creo que debes usar el evento Change de la Hoja. Vete a
Herramientas/Macro/Editor de Visual Basic. A la izquierda de la
pantalla te aparecerá la ventana del Explorador de proyectos, haz
doble click en la hoja en la que quieres hacer lo que nos cuentas.

Si después quieres seguir adelante dínoslo y lo intentaremos.

Saludos,

Valentín Playá
Sonotronic S.A.
Madrid, España

Hola Carlos,

Si donde te he dicho antes pegas este codigo veras que cuando pones un
5 en cualquier celda del libro te selecciona la celda I9 (fila 9,
columna 9) y le pone un valor de 1111.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 5 Then
Cells(9, 9).Select
Cells(9, 9) = 1111

End If
End Sub

Ahora hay que adaptar este codigo a lo que quieras hacer.

Ya me dirás.

Saludos,

Valentín

Hola carlos !
Trate de hacer algo que quizas pueda ayudarte.
Para esto define el nombre INICIO a la celda a partir de la cual
empezaras a ingresar los datos.
El codigo deberás copiarlo dentro del evento "CHANGE" de la hoja en la
cual vas a ingresar los datos.

Private Sub Worksheet_Change(ByVal Target As Range)
flag = (Target.Row - Range("INICIO").Cells(1, 1).Row) / 2
flag = Range("INICIO").Cells(1, 3).Column - flag - 1
If Target.Column < flag Then
Set rng = Target.Offset(0, 2)
rng.Select
Else
If Target.Column > 3 Then
Set rng = Target.Offset(2, -3)
rng.Select
End If
End If
End Sub

Se que se puede mejorar muchísimo más, pero espero te brinde y
amplie las ideas para lo q deseas lograr. Este codigo esta en función
a las reglas que tu mencionastes en el mensaje original.
Saludos
Julio Herrera