Seleccionar columnas discontinuas en hoja de calculo

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 la columna desde d3 hasta el ultimo dato de la columna G?

1 Respuesta

Respuesta
1

Te anexo la macro

Sub bsp3()
    vuf = Range("G" & Rows.Count).End(xlUp).Row
    Range("D3:G" & vuf).Select
    Selection.Copy
End Sub

S a l u d o s . D a n t e   A m o r

Si es lo que necesitas.

Gracias por la macro pero mil disculpas por no ser más claro, lo que quiero es unir mi macro con tu macro o sea seleccionar columnas discontinuas por un lado este rango Range("n3:Q" & vuf).Select y por otro range("d3:G" & vuf).select y recien seleccionar para copiarlos.

Gracias

Jesús


                    

Macro actualizada

Sub bsp3()
    u = Range("G" & Rows.Count).End(xlUp).Row
    Range("D3:G" & u & ",N3:Q" & u).Select
    Selection.Copy
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas