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.
1. Compartir información en Word 2003. Macros y entorno personalizado En este último curso de Word 2003 , vamos a ver la forma que tiene Word de... [23/11/10] |
860 | ||||
2. Presentaciones con Power Point El programa más empleado en el mundo para realizar presentaciones comerciales, el... [19/11/01] |
229.017 | ||||
3. Introducción al Access Hoy en día cualquier empresa, organización u asociación se enfrenta al manejo de... [03/12/01] |
232.435 |