Agregar una columna a la selección
Tal vez sea algo muy sencillo pero mis limitados conocimientos no ayudan y ya me desesperé. La cuestión es la siguiente:
Voy a pegar en una hoja de excel unos datos, por lo que queda un rango seleccionado, la longitud será variable, pongo un ejemplo pequeño:
A continuación necesito que se seleccione y copie la columna "A", para llevarla a otra hoja:
¿Alguna idea?
1 Respuesta
Te anexo la macro
Sub Copiar_Rango_Seleccionado()
'Por.Dante Amor
'
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
Set r1 = h1.Range(Selection.Address)
If r1.Cells(1, 1).Column = 1 Then
MsgBox "No se puede seleccionar una columna a la izquierda"
Exit Sub
End If
'
'unir el rango actual seleccionado y la columna de la izquierda
Set r2 = Union(r1, r1.Offset(, -1))
'
'Para copiar a la hoja 2 en la celda A1
r2.Copy h2.Range("A1")
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Dante disculpa por tardar tanto pero no quería darte más molestias. No me sirve, podrías corroborar que no haya ningún error?
No hace lo que debería el código.
Muchísimas gracias. Saludos.
¿Y qué estás haciendo exactamente?
¿Te envía algún error? ¿Qué mensaje te dice? ¿En qué línea de la macro se detiene?
Según tu ejemplo, tienes seleccionado de B3 a D8
Selecciona ese rango y ejecuta la macro. Al final de la macro te copiará el rango A3 a D8 en la hoja2 en la celda A1
Prueba con tu ejemplo.
sal u dos
¡Gracias!
Dante como lo ejecuté paso a paso y no veía que pasara nada pensé que no funcionaba pero al revisar la hoja2 ya estaba todo como se había descrito. Te agradezco muchísimo por tu ayuda y por tu paciencia. Eres un sabio.
Saludos.
