Título del mensaje: Realizar una busqueda desde un boton a una tabla

Hola a todos

hace muchos años en la universidad tome clases de Visual Basic, pero hace tiempo yaaa...
Resulta que quiero hacer lo siguiente:

- Tengo un Libro en Excel el caul tiene 16 hojas.
- Cada una de las hojas contiene informacion conscerniente a unas antenas.
- Cada antenna tiene los cada Rom (linea) contiene informacion de una antena especifica:
Los titulos de las columnas son: Site | #Cells | RBS1 |RBS2 |RBS3 |RBS4 |FREG | TG1 |TG2 |TG3 |TG4 |DIP1 |DIP2 |DIP3 |DIP4
- He puesto un Boton en la primera sheet (hoja) que llama al formulario consulta.
- Lo que deseo hacer en este formulario es que introduciendo en un texbox un texto que este en la columna Site, me imprima todo la informacion restante en esa linea o Row.

A penas hecho esto:

Private Sub CommandButton2_Click()
Dim strBuscando As String
Dim Encontrar As Range


strBuscando = Trim(text_site.Text)
If strBuscando <> "" Then
Set Encontrar = Sheets("BSC9").Range("C2:Q94").Find(strBuscando)
If Not encontrado Is Nothing Then
text_site.Text = encontrado.Offset(0, -1).Value
info_busqueda.Frame = encontrado.Offset(0, -2).Value
Else
MsgBox "Site no encontrado"
End If
Set encontrado = Nothing
Else
MsgBox "No ha introducido el numero del Site"
End If

Si alguien me podria por favor ayudar, o dar algunos ejemplo parecidos se lo agradecere enormemente...

Título del mensaje: Re: Realizar una busqueda desde un boton a una tabla

debe tener telarañas este post y nadie sin contestar... bueno lo que queria este tipo por lo que entendi tenia un form y con un boton realizar una busqueda, en fin dejare este codigo para que lo adapten

codigo del boton

Código:

Private Sub btnbuscar_Click()     Dim rut As String     rut = Me.tbxNombre.Text     Call buscar(rut)     End Sub

codigo del procedimiento

Código:

Sub buscar(rut As String)     Dim nombre As String     Dim Apellidos As String     Dim fila As String         fila = Worksheets("BD").Range("A1:A30").Find(rut, LookAt:=xlWhole).Address     nombre = Worksheets("bd").Range(fila).Offset(columnOffset:=1).Value     Apellidos = Worksheets("bd").Range(fila).Offset(columnOffset:=2).Value     FormCrea.tbxMat.Value = nombre     FormCrea.tbxPat.Value = Apellidos         End Sub

El rango A1:A30 llega hasta la fila o registro 30, el que quiera poner codigo para calcular la ultima fila queda criterio de cada uno, con un for se puede hacer en fin esta es la base saludos para los que a futuro quiera ver esto xD