Desplazar la celda activa N cantidad de veces

4 envíos / 0 nuevos
Último envío
ALE RUBIN
Imagen de ALE RUBIN
Offline
última acción: Hace 2 semanas 6 días
alta: 28/01/2019 - 18:21
Puntos: 35
Desplazar la celda activa N cantidad de veces

Por ejemplo debo situar la celda activa en D3 pegar unos datos, luego desplazar 12 espacios a la derecha, seleccionar la celda y pegar los datos siguientes, y asi sucesivamente, lo que sucede es que selecciono D3 y solamente a partir de esa celda se cuentan los 12 espacios, es decir no avanza nada, la celda D3 esta como fija y no quiero eso, como lo hice:

Sheets("Hoja2").Select
Range("B1:B5").Select
Selection.Copy
Sheets("Hoja1").Select
Range("D3").Select
ActiveSheet.Paste
Posiciones = Range("E1").Value
ActiveCell.Offset(0, Posiciones).Select

En E1 se puso el 12, por el numero de espacios a recorrer.

No se como poner en una macro el hecho de seleccionar D3 pegar datos y que avance a P3, luego en P3 pegar otros datos y que se desplace hasta AB3, y asi sucesivamente. Es decir que de la ultima celda seleccionada se desplace 12 espacios a la derecha despues de pegar los datos que quiero. 

Gracias!

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 7 horas 41 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 9820
Offset y Activate

Si quieres activar la celda que está 12 celdas a la derecha de la activa se puede hacer así:

ActiveCell.Offset(0,12).Activate

 

 

Data Tools Suite
datos y tablas con Excel

ALE RUBIN
Imagen de ALE RUBIN
Offline
última acción: Hace 2 semanas 6 días
alta: 28/01/2019 - 18:21
Puntos: 35
Logro que se mueva los 12

Logro que se mueva los 12 espacios, mil gracias, ahora la cosa es que debe partir en una celda especifica, desplazarse y volver a contar, pero cuando pongo la celda especifica el desplazamiento de 12 no se realiza, si me dejo entender.

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 7 horas 41 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 9820
Copia tu código para poder

Copia tu código para poder ver lo que está haciendo, así a ciegas es difícil adivinar qué es lo que hace y por qué no es el resultado que esperas.

Si todo tu código es lo que hay arriba, tienes una instrucción Range("D3").Select que selecciona esa celda y desde ahí cuenta las 12 columnas

¿pero cuál es el código para el siguiente paso?

 

 

Data Tools Suite
datos y tablas con Excel