Seleccionar columna discontinua

5 envíos / 0 nuevos
Último envío
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Seleccionar columna discontinua

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

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 20 horas 8 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
para seleccionar varios

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.

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Buenos dias :Gracias por

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

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 20 horas 8 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
quita paréntesis innecesarios

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.

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Siii

Muchas gracias por iluminarme, un abrazo

Jesús

Pd. Tema Solucionado

Jesus Martinez Plantarosa