Anónimo
Buscar, y visualizar datos en la primera fial
Hola... Necesito hacer una búsqueda con macros en una hoja de excel, esta contiene aproximadamente 1200 registros cada uno con 20 columnas, lo que necesito es buscar un registron y mostrar toda la fila en la primera parte de la tabla para que se tenga una mejor visión del dato y no se pierda la visualidad tan fácil... Gracias si me pueden ayudar
1 Respuesta
Respuesta de Elsa Matilde
1
Esta rutina, extraída de mi manual 400Macros, es la típica búsqueda. El resultado puedes copiarlo en otro destino (sabrás dónde queda ...'la primera parte de la tabla'...) o solo posicionarte en el registro encontrado.
Sub Buscador()
'macro desarrollada por Elsamatilde
Dim mihoja As String, Donde As String
Dim Quebusco As String
Dim resulta As Object
'la variable mihoja guarda la hoja donde se hará la búsqueda
mihoja = "Hoja2"
'la variable Donde guarda el rango donde debe efectuarse la búsqueda
Donde = "A3:Z2000"
'la variable Quebusco guarda el dato a buscar que se encuentra en la celda B2
Quebusco = Range("B2").Value
'se crea un objeto con el resultado de la función Find
Set resulta = Sheets(mihoja).Range(Donde).Find(Quebusco, LookIn:=xlValues, LookAt:=xlWhole)
If resulta Is Nothing Then
'si no se encuentra el dato puede mostrar un mensaje de error como el siguiente
MsgBox "No se encontró el dato", vbCritical, "NO ENCONTRADO"
Else
'si encontró el dato seleccionará la fila del registro encontrado
resulta.EntireRow.Select
'o copiarlo en otro destino
resulta.entirerow.copy destination:=activesheet.range("A2")
End If
'se limpia la variable
Set resulta = Nothing
End Sub
Saludos y no olvides presionar el botón FINALIZAR si el tema quedó concluido.
Sub Buscador()
'macro desarrollada por Elsamatilde
Dim mihoja As String, Donde As String
Dim Quebusco As String
Dim resulta As Object
'la variable mihoja guarda la hoja donde se hará la búsqueda
mihoja = "Hoja2"
'la variable Donde guarda el rango donde debe efectuarse la búsqueda
Donde = "A3:Z2000"
'la variable Quebusco guarda el dato a buscar que se encuentra en la celda B2
Quebusco = Range("B2").Value
'se crea un objeto con el resultado de la función Find
Set resulta = Sheets(mihoja).Range(Donde).Find(Quebusco, LookIn:=xlValues, LookAt:=xlWhole)
If resulta Is Nothing Then
'si no se encuentra el dato puede mostrar un mensaje de error como el siguiente
MsgBox "No se encontró el dato", vbCritical, "NO ENCONTRADO"
Else
'si encontró el dato seleccionará la fila del registro encontrado
resulta.EntireRow.Select
'o copiarlo en otro destino
resulta.entirerow.copy destination:=activesheet.range("A2")
End If
'se limpia la variable
Set resulta = Nothing
End Sub
Saludos y no olvides presionar el botón FINALIZAR si el tema quedó concluido.