BOTON DE CONSULTA

Private Sub CommandButton1_Click()

On Error Goto noencontro

Rem esta línea genera una trampa de error si Excel encuentra un error se le dice que se vaya a la etiqueta noencontro que esta definida mas adelante en el código. No use la trampa de error si no tiene problemas a la hora de que no encuentra a la persona. Recuerde si usted comete cualquier error Excel se dirigirá a la etiqueta noencontro.y esquivara cualquier error, hasta uno que usted cometa en la programación.

Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

        False).Activate

ActiveCell.Offset(0, 1).Select

TextBox2 = ActiveCell

ActiveCell.Offset(0, 1).Select

TextBox3 = ActiveCell

Rem También se puede utilizar este código para leer la información de las celdas lo que esta en azul. La diferencia es que se asignan los valores a variables y después se descargan a los TextBoxs.

ActiveCell.Offset(0, 1).Select

Direccion = Activecell

ActiveCell.Offset(0, 1).Select

Telefono = Activecell

TextBox2 = Direccion

TextBox3 = Telefono

noencontro:

Rem Aquí se esquiva el error

End Sub

Que te parece es increíble como una Macro combinada con Visual Basic puede hacer hasta lo imposible

Bueno ya tenemos elaborado un ejercicio de consultas de datos, ahora accesaremos al formulario desde Excel sin necesidad de entrar al Editor de Visual Basic.

Para realizar este ejercicio debemos permanecer dentro del Editor de Visual Basic para poder introducir el código en un Modulo, por lo tanto deberás seguir los siguientes pasos:

-      De clic en el Menú Insertar y elija la opción Modulo

-      Escriba dentro del Modulo el nombre del modulo en este caso Sub Entrada

Cuando usted escriba Sub Entrada aparecerá de la siguiente manera:

Sub Entrada()

Load UserForm1

UserForm1.Show

End Sub

Usted deberá escribir las dos líneas que están en medio que son:

Load UserForm1

UserForm1.Show

La primer línea significa que cargue a la memoria el formulario que se llama UserForm1, la segunda línea significa que lo muestre, esto quiere decir que en el modulo estamos escribiendo el código de una macro que permitirá cargar el formulario desde Excel sin necesidad de entrar al Editor de Visual Basic.

Si te fija en el explorador de proyecto aparece el Modulo que creamos.

si queremos volver al formulario solo da doble clic en UserForm1

Bueno ya esta listo ahora salgamos del Editor de Visual Basic  y volvamos a Excel.

-      De clic en el Menú Archivo del Editor de Visual Basic

-      Elija la opción Cerrar y volver a Microsoft Excel

Ya que estamos en Excel, podemos insertar una imagen o un botón o cualquier grafico, por ejemplo:

-      De clic en el Menú Insertar

-      Elija la opción Imagen, seguido por Imagen Prediseñada

-      inserte cualquier imagen y dele el tamaño que usted desea.

-      De clic derecho sobre la Imagen

-      Elija la opción Asignar Macro

-      De clic en la Macro que se llama Entrada, es obvio la única que hicimos

-      De Clic en Aceptar

-      De clic fuera de la imagen en cualquier celda y listo si presionas la imagen cargara el formulario.