Macro en excel para buscar

Con esta macro hacemos la búsqueda de datos en Excel con una macro.

Primero creamos una tabla de la siguiente manera.

Ahora creamos un rango dentro de la tabla y le ponemos el siguiente nombre “codigo”.

Ahora cambia el nombre de la hoja e insertamos un botón de comando en nuestra hoja “ALUMNOS”.

Al boton de comando le ponemos el Name = cmdbuscador como se ve en la siguiente imagen.

Ahora desde visual basic crearemos un formulario como se muestra en la siguiente imagen, este formulario tiene:

Una etiqueta    

Un cuadro combinado 
 

Un botón de comando 
 

Ahora seleccionamos el cuadro combinado (combo box) y en sus propiedades cambiamos el nombre del (Name) y ponemos lo siguiente:

(Name) = cmbalumno

Ahora seleccionamos el botón de comando y en sus propiedades cambiamos el nombre del (Name) y ponemos lo siguiente:

(Name) = CMDBUSCAR

Ahora damos doble clic en el botón de comando y escribimos el siguiente código:

Private Sub CMDBUSCAR_Click()

Sheets("ALUMNOS").Select

nr = Application.WorksheetFunction.CountA(Range("A:A"))

For x = 2 To nr

    codigo = Cells(x, 1)  

    If codigo = cmbalumno Then

        p = Cells(x, 2)

        MsgBox "EL ALUMNO ES : " & p      

    End If   

Next

cmbalumno = ""

cmbalumno.SetFocus

End Sub

Private Sub UserForm_Activate()

cmbalumno.RowSource = "codigo"

End Sub

Ahora seleccionamos la Hoja1 (ALUMNOS) y escribimos el siguiente código.

Private Sub cmdbuscador_Click()

FRMBUSCAR.Show

End Sub