Buenas tardes
Con esta macro
Sub BSP()
Dim vuf&, R As Range
vuf = Range("p" & Rows.Count).End(xlUp).Row
Set R = Union(Range("p3:s" & vuf), Range("f3:i" & vuf), Range("d3:d" & vuf), Range("v3:w" & vuf))
R.Select
Selection.Copy
End Sub
Selecciono columnas fijas a copiar, pero lo que necesito es seleccionar dos columnas con datos visibles, por defecto a la columna E que de encabezado tengo BOLETO N° desde E3, y que asimismo poder tener la opcion de elegir una otra columna más, seleccionando a partir de la fila 3 , de cualquiera de los encabezados BOLIVIANOS, DOLARES , NETO BS, NETO USD, TAX BOB, TAX USD .
Mucha gracias por su atención,
Jesús
| Adjunto | Tamaño |
|---|---|
 elegir.xlsx | 467.08 KB |
Pues cambia los parámetros de Range en tu macro para copiar lo que necesites en cada momento.
Si no es eso, no he entendido la pregunta.
Un saludo
Estimado Cron, lo que necesito es que por favor con un boton llamar a un userform que tiene un combobox en el combobox quisiera que esten cargados los encabezados de las columnas , y de ahi yo poder seleccionar cualquier encabezado, una vez seleccionado el encabezado bueno que selecciones esa columna.
Jesús
Jesus Martinez Plantarosa
Lo que pasa es que no sé cuál es el problema.
Imagino que sabes poner un botón que llame a un formulario. Imagino que sabes poner un combo en el formulario.
Tienes que saber cómo cargar el combo con los datos, porque te lo respondí aquí.
Y seleccionar la columna elegida es simplemente hacer un range.select. Claro, tienes que averiguar cuál es la columna elegida, por lo que puedes hacer un BUSCARH (o su equivalente en vba, que es en inglés -> worksheetfunction.hlookup() ) o simplemente programarte a mano una rutina que compare la selección con los encabezados, y se quede con la columna, por ejemplo con un bucle for.
En serio, inténtalo y pregunta concretamente por lo que te falla. Intentaremos darte la mejor solución posible.
Un saludo
Estimado Cron gracias por las ayudas y las opciones, y sobre todo por hacerme pensar, jejeje
Ya encontre la solución.
Saludos
Jesús
Jesus Martinez Plantarosa