Buscar celdas especificas en excel y copiar columna
Hola que tal, les comento mi caso, en un libro de Excel Comprometido.xlsx en la "Hoja1" tengo como 50 columnas con datos específicos, los títulos empiezan de A1 .....hasta AY1, requiero ir a un nombre de titulo especifico y copiar toda la columna a otro Libro llamado Base.xlsx
Gracias por su apoyo
1 Respuesta
Respuesta de Luis Mondelo
1
Te mando mi solución con este ejemplo:
El archivo base.xlsx deberá estar abierto para hacer el proceso
La macro está confeccionada para copiar la columna a la hoja1 del archivo base.xlsx a partir del rango a1
Sub ejemplo()
'por luismondelo
nombre = InputBox("que título buscamos???")
If nombre = "" Then Exit Sub
Set busca = ActiveSheet.Range("a1:ay1").Find(nombre, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
Range(ubica).EntireColumn.Copy
Workbooks("base.xlsx").Sheets(1).Range("a1").PasteSpecial Paste:=xlValues
End If
End Subrecuerda finalizar la consulta
Buen día Luis Mondelo, agradezco tu respuesta tan ágil y acertada, ya me haz respondido varias preguntas y no cabe duda que en este foro hay muchísima gente talentosa.
