Buscar celda de una cadena
Hola expertos.Necesito una macro donde se busca una cabecera de una lista de datos (A1:M1), tras el cual, se seleccione la información que posee en las filas de debajo y se copien en otro libro de excel.
Por ejemplo, las cabeceras son nombre, apellidos, domicilio y fecha. Necesito buscar el titulo apellidos para copiar todos los datos de esta columna.
Gracias por vuestra atencion
1 respuesta
Te dejo una rutina para esto:
Sub BuscaColumna()
'x Elsamatilde
'el dato puede tomarse de una celda o de 1 variable
dato = "apellidos"
Set busco = Range("A1:M1").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
'si encontró el dato copia toda la col a otra hoja (*)
If Not busco Is Nothing Then
col = busco.Column
Range(Cells(1, col), Cells(65536, col)).Copy Destination:=Sheets("Hoja2").Range("A1")
Else
MsgBox "No se encontró el texto en fila 1"
End If
End Sub
(*) Hay muchas maneras de seleccionar y copiar un rango (con o sin formatos, solo valores, etc, etc). Este es solo un ejemplo. En la sección Macros de mi sitio podés encontrar otros ejemplos.
