Buenos días:
Utilizo el siguiente código para seleccionar la columna que necesito copiar:
Sub bsp2()
vuf = Range("n" & Rows.Count).End(xlUp).Row
Range("n3:Q" & vuf).Select
Selection.Copy
End Sub
mi consulta es de como hacer en un solo código para que me seleccione a parte de lo ya seleccionado, haga lo mismo desde la columna desde d3 hasta el ultimo dato de la columna G ?
Gracias
Jesús
para seleccionar varios rangos no consecutivos se haría de esta manera:
Range("N3:Q11,D3:G8").Select
Es decir, los rangos separados por comas.
También tienes la función UNION que permite unir rangos (cualquier cosa que sea un rango), por ejemplo
Union(Range("N3:Q11"), Range("D3:G8")).Select
------
Ya sé Excel, pero necesito más.
Buenos dias :
Gracias por responder hice lo siguiente:
Sub bsp2()
vuf = Range("n" & Rows.Count).End(xlUp).Row
vuf2 = Range("d" & Rows.Count).End(xlUp).Row
Union(Range("n3:Q" & vuf), (Range("d3:g" & vuf2))).Select
Selection.Copy
Pero no me funcionaaa, ayuda por favor
Saludos
Jesús
End Sub
Jesus Martinez Plantarosa
quita paréntesis innecesarios. Al poner un rango entre paréntesis lo sustituye por su valor, y deja de ser un rango.
Union(Range("n3:Q" & vuf), Range("d3:g" & vuf2)).Select
------
Ya sé Excel, pero necesito más.
Muchas gracias por iluminarme, un abrazo
Jesús
Pd. Tema Solucionado
Jesus Martinez Plantarosa