Macro excel seleccionar rangos

[alizee_zgz]

Buenas, tengo una columna y lo que quiero es seleccionar dos rangos de celdas.
Mi codigo es este, pero no me lo hace

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy


Porque puede ser????

[ideasking]

No se si te entendi bien, estas uvbicado por ejemplo en A1 y lo que quieres es seleccionar tanto la celda A1 como la celda A2? si es asi prueba esto:
Range("A1:A2").Select

Pero si lo que quieres es seleccionar A1 HASTA A2 y luego bajar a B1 hasta B2, es decir cuatro celdas seleccionadas prueba esto:
Range("A1:B2").Select

Me cuentas si es asi o explicame mejor tu caso. SUERTE

[alizee_zgz]

Gracias por contestar!
Y lo siento, porque me he dado cuenta de que no me he explicado nada
bien :(

Yo lo que tengo en una hoja excel es una columna con datos, de la fila 1 a la 6 estan en blanco y a partir de la 7 hay datos.
Lo que intento con este codigo es, me pongo en la casilla A1 y luego pulsando las teclas ctrl+shift+ flecha hacia abajo me seleccionara de la A1 a la A7 y luego volviendo a pulsar ctrl+shift+ flecha hacia abajo, me selecciona
tambien de la A7 hasta la ultima fila donde haya datos. Y asi me selecciona todo, para luego copiarlo

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Igual asi me he explicado mejor

[ideasking]

Ahhhhhh ya le entendi, mira tienes un pequeño error en el codigo, por eso solo le selecciona la primera parte, si lo que quieres es que despues de seleccionar las celdas que estan en blanco continue con las que estan llenas, debes representar en la misma linea dos veces lo que seria el ctrl+shif+flecha abjo, aqui esta el codigo.


Range("A1").Select
Range(Selection, Selection.End(xlDown).End(xlDown)).Select
Selection.Copy

lo que te resalte en azul era lo que te faltaba y no necesitas otra linea mas de codigo. prueba y me cuentas.

SUERTE AMIGO

[Crashman]

Porque no seleccionas la ultima fila y de ahi hacia arriba

Código:

'aqui asigno una variable a la fila para saber cual es la ultima 
finalRow = ("A65536").end(xlup).row
'aqui selecciono el rango 
Range("A1:A" & FinalRow).copy destination:= 'destino

[alizee_zgz]

Ya esta funciona perfectamente con

Range(Selection, Selection.End(xlDown).End(xlDown)).Select


Gracias a todos!

[vicpal]

una cosa a colación de este código, podría guardar la variable del select para usarla posteriormente?, es que no entiendo el modo de hacerlo...

grácias

[JoaoM]

4 años despues, talves este muerto ya para que te responda