Selección de rangos a partir de una fila variable

Hola.

Tengo un código para seleccionar varias columnas:

Sub seleccionarcol()
Set a = Range("A1", Range("A65536").End(xlUp))
Set b = Range("U1", Range("U65536").End(xlUp))
Set c = Range("Y1", Range("Y65536").End(xlUp))
Union(a, b, c).Select

End Sub

El problema es que necesito que la selección de las columnas no empiece siempre forzosamente en la fila 1. Es decir, a veces tendrá que empezar en la línea 248, o en la 1.543 o en la 15.659. El número de fila viene determinado por una acción anterior que busca un determinado valor en la columna A, y que queda guardado en la variable "fila":

Sub numerofila()
Dim fila As Long
Columns("A:A").Select
Selection.Find(What:="1116311", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
fila = ActiveCell.Row
End Sub

Mi pregunta es, ¿cómo puedo pasar el valor de la fila para que en la macro "seleccionarcol" el rango de cada una de las columnas comience en el número de fila que obtengo de la macro "numerofila"?

No me resulta indispensable que las dos macros vayan separadas (de hecho posiblemente vayan juntas).

Muchas gracias de antemanos y saludos!

0

Añade tu respuesta

Haz clic para o