Excel - buscar
Hola amigos, tengo una duda y dice relación con lo siguiente:
neecsito buscar en la hoja1 cierto dato (en una columna de matriz) y quiero que me devuelva la ubicación de ese dato (la celda respectiva) en una celda de la hoja2. Eso básicamente.
Gracias.
neecsito buscar en la hoja1 cierto dato (en una columna de matriz) y quiero que me devuelva la ubicación de ese dato (la celda respectiva) en una celda de la hoja2. Eso básicamente.
Gracias.
1 respuesta
Respuesta de paramisolo
1
La macro es esta:
rivate Sub CommandButton1_Click()
Dim n As Range
palabra_a_buscar = InputBox("Introduce la palabra a buscar", "BUSCADOR")
Set n = Cells.Find(What:=palabra_a_buscar)
If n Is Nothing Then
MsgBox "No he encontrado nada. Lo siento."
Else
Range(n.Address).Select
MsgBox "Aquí tienes la palabra " & UCase(palabra_a_buscar) & "."
End If
Set n = Nothing
'Nos situamos en la fila activa
x = ActiveCell.Row
'Nos situamos en la columna activa
y = ActiveCell.Column
'Marcamos en la celda y cuantas columas queremos copiar
z = Cells(x, y ).Address & ":" & Cells(x, y).Address
Range(z).Copy
'Seleccionamos toda la columna A
Range("A1").Select
'Buscamos la primera fila vacia en esa columna
Do While Not IsEmpty(ActiveCell)
'Nos situamos en ella
ActiveCell.Offset(1, 0).Select
'Esto repite la busqueda hasta que encuentra la fcelda vacía
Loop
'Pegamos la fila copiada anteriormente
ActiveCell.PasteSpecial
End Sub
Espero que te sirva
>Un saludo
>Julio
rivate Sub CommandButton1_Click()
Dim n As Range
palabra_a_buscar = InputBox("Introduce la palabra a buscar", "BUSCADOR")
Set n = Cells.Find(What:=palabra_a_buscar)
If n Is Nothing Then
MsgBox "No he encontrado nada. Lo siento."
Else
Range(n.Address).Select
MsgBox "Aquí tienes la palabra " & UCase(palabra_a_buscar) & "."
End If
Set n = Nothing
'Nos situamos en la fila activa
x = ActiveCell.Row
'Nos situamos en la columna activa
y = ActiveCell.Column
'Marcamos en la celda y cuantas columas queremos copiar
z = Cells(x, y ).Address & ":" & Cells(x, y).Address
Range(z).Copy
'Seleccionamos toda la columna A
Range("A1").Select
'Buscamos la primera fila vacia en esa columna
Do While Not IsEmpty(ActiveCell)
'Nos situamos en ella
ActiveCell.Offset(1, 0).Select
'Esto repite la busqueda hasta que encuentra la fcelda vacía
Loop
'Pegamos la fila copiada anteriormente
ActiveCell.PasteSpecial
End Sub
Espero que te sirva
>Un saludo
>Julio
Agradezco tu disposición para responder, pero no me manejo todavía mucho con macro, trataré de ver como lo puedo hacer.
Gracias.
Gracias.
Vale de acuerdo es fácil crear el botón y asignarle la macro si necesitas alguna aclaración me lo dices.
>Un saludo
>Julio
>Un saludo
>Julio
Muy buena disposición para responder, pero mis conocimientos no son tan avanzados todavía, pero gracias de todas maneras. Como solución no pude experimentarla, así que puntiaré al disposición.
Saludos
Saludos
