Elegir dos columnas para copiar

Ejecuta la siguiente macro, te va a pedir que selecciones una celda, por defecto, selecciona la celda E2, si quieres la columna E, simplemente presiona enter; si quieres otra columnas, entonces selecciona una celda de la columna que deseas y presiona enter.

Después te pide que selecciones la segunda celda, por defecto, selecciona la celda L2, si quieres la columna L, presiono enter o selecciona una celda de la columna que quieras y presiona enter.

La macro se ejecuta.

Sub BSP()
    Dim vuf&, R As Range, r1, r2, c1, c2
    '
    vuf = Range("p" & Rows.Count).End(xlUp).Row
    On Error Resume Next
    With Application
        Set r1 = .InputBox("Selecciona encabezado 1", Default:=Range("E3").Address, Type:=8)
        If r1 Is Nothing Then c1 = "P" Else c1 = r1.Column
        Set r2 = .InputBox("Selecciona encabezado 2", Default:=Range("L3").Address, Type:=8)
        If r2 Is Nothing Then c2 = "P" Else c2 = r2.Column
    End With
    On Error GoTo 0
    '
    Set R = Union(Range("p3:s" & vuf), Range("f3:i" & vuf), _
                  Range("d3:d" & vuf), Range("v3:w" & vuf), _
                  Range(Cells(3, c1), Cells(vuf, c1)), _
                  Range(Cells(3, c2), Cells(vuf, c2)))
    R.Select
    Selection.Copy
End Sub

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Te cuento que elige todas las columnas, por más que elija la que quiero

Saludos

Jesús

Entonces no entendí qué es lo que quieres seleccionar.

Tu macro selecciona las columnas de la P:S, F:I, D:D y V:W

¿Adicional a esas columnas quieres agregar 2 columnas?

O quieres quitar de la selección todas las columnas y solamente dejar 2 columnas.

¿Puedes explicar con más claridad qué columnas quieres?

Estimado Dante lo que quiero es que me pregunte que columna seleccionar la o el encabezado mediante un combobox donde estén los títulos de las columnas BOLIVIANOS, DOLARES, NETO BS, NETO USD, TAX BOB, TAX USD, FEE BOB Y FEE USD, y a la columna que elijo por defecto seleccione solo la columna E que tiene como titulo BOLETO N° y seleccione la columna elegida, digamos que elijo TAX BOB solo seleccione la columna E y la columna P, aclaro que estos datos los filtro por fecha o por código, y lo que quiero es que seleccione la columna BOLETO sus datos y la columna seleccionada.

Gracias

No me queda claro.

Entonces esto que pusiste en tu macro:

Set R = Union(Range("p3:s" & vuf), Range("f3:i" & vuf), Range("d3:d" & vuf), Range("v3:w" & vuf))

Ya no lo quieres?

¿Ahora lo que quieres es que seleccione siempre la columna E y una columna 2 que vas a seleccionar en un combobox?

Y en dónde tienes el combobox, ¿en la hoja o en un userform?

¿El combo es un controlActiveX o un control de formulario?

Así como aparece ese cuadro de dialogo, así quisiera que me pregunte que columna elegir

Y ese código que puse es para indicar que solo elijo lo que esta visible porque utilizo filtros en mi hoja .

Es un ejemplo mio 

y la verdad no seria mala idea mediante un useform que tenga un combobox con los encabezados de las columnas y al dato elegido seleccionar los datos filtrados de la columna E que es la columna por defecto a copiar y asi mismo seleccionar lo elegido mediante el combobox, que te parece?

Pero el cuadro de dialogo que te puse es solamente una caja de texto, no es un combobox.

En ese tipo de dialogo no se puede poner un combobox.

Tienes que crear un combobox en un userform o un combobox de controlactiveX en la hoja, pero me tienes que decir cómo lo vas a crear.

Sigo sin entender qué columnas quieres.

Tampoco entiendo a qué te refieres con " solo elijo lo que esta visible". Si tienes filtros o no tienes filtros, excel en automático te copia lo visible.

O sea digamos por ejemplo filtro de la columna D los OB y así solo estará visible los datos con esa selección, y se me ocurre que mediante un botón de controles de formulario llame a un cuadro combinado de controlactiveX que tenga ya cargados los nombres de los encabezados de la fila 2 a partir de la columna L hasta la S y al elegir de este cuadro combinado por ejemplo NETO BS seleccione para copiar los datos de la columna E que si o si tiene que elegirse y a la vez lo seleccione los datos de la columna N y se cierre el cuadro combinado y la selección este lista para pegar donde sea necesario.

Gracias y disculpa por no ser más explicito.

Jesús

 H o  l  a:

No te preocupes, le sigo hasta que quede resuelto.

No entiendo a qué te refieres con esto: "un botón de controles de formulario llame a un cuadro combinado de controlactiveX "

Con el botón llamas a una macro, no entiendo cómo llamar a un "cuadro combinando de controlactiveX".

Lo que quieres es un botón que llame un Userform, y dentro del userform tengas un combobox con las columnas precargadas.

O directamente en la hoja pones un CotrolActiveX. En este caso no necesitas un botón.

Gracias por la paciencia de verdad, y si tienes razón eso es lo que quiero  "Lo que quieres es un botón que llame un Userform, y dentro del userform tengas un combobox con las columnas precargadas."

y con eso poder seleccionar la columna a elegir

Gracias

Jesús

Disculpas en el combobox quiero los encabezados de las columnas y una vez elegido el encabezado, recién seleccionar esa columna.