al llegar a una fila subir a la primera..

17/08/2005 - 03:19 por Daniel G. Samborski | Informe spam
Hola, me gustaria saber como puedo lograr lo sieguiente...

Comienzo ingresando datos en la celda A1 y continuo hasta la A10 la dar
enter deberia saltar a la B1 y seguir hasta la B10,
Luego saltar a la C1 y de nuevo hasta la C10 y haci hasta D10 en donde
deberia regresar a A1.

Espero haber sido claro...si alguine me puede decir como lograr esto se lo
agradeceria.

Daniel...
 

Leer las respuestas

#1 Héctor Miguel
17/08/2005 - 06:39 | Informe spam
hola, Daniel !

... como puedo lograr... ingresando datos en la celda A1... hasta la A10
... saltar a la B1 y seguir hasta la B10
... saltar a la C1 y de nuevo hasta la C10
... hasta D10 en donde deberia regresar a A1.



op1: [la mas 'barata']...
-> selecciona el rango 'A1:D10' y ve editando cada celda [formulas/datos/...]
[excel 'se encarga' de ir 'avanzando' primero hacia abajo y luego a la derecha ->dentro de la seleccion<-] ;)

op2: usando macros ->suponiendo que quieres 'prohibir' al usuario moverse por un rango distinto de 'A1:D10'<-
-> haz un click-derecho sobre el icono de excel [a la izquierda del menu archivo] y selecciona 'ver codigo'
-> complementa el evento por omision [Private Workbook_Open()] para que 'queda' +/- como sigue...
Private Sub Workbook_Open()
With Application
.MoveAfterReturn = True
.MoveAfterReturnDirection = xlDown
End With
Worksheets("Hoja1").ScrollArea = "$A$1:$D$10"
End Sub

op3: tambien usando macros de manera mas 'amigable' para el usuario...
-> haz un click-derecho sobre el nombre de 'esa' hoja y selecciona 'ver codigo'
-> sustituye el evento por omision -> Private Worksheet_SelectionChange(... <-
POR las siguientes lineas...
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:d10")) Is Nothing Then Exit Sub
With Target
Cells(.Row + IIf(.Row = 10, -9, 1), _
.Column + IIf(.Row = 10, _
IIf(.Column = 4, -3, 1), 0)).Select
End With
End Sub

saludos,
hector.

Preguntas similares