Tecnologia

MACROS EN EXCEL
Parte III

ELABORANDO UNA CONSULTA

Todo Registro de información debe tener su propia Consulta, Baja y Modificación, es por eso que ahora en el siguiente ejemplo, se explicacómo poder consultar la información que ya se escribió en la Hoja de Excel, obviamente desde una Macro combinada con Visual Basic, observemos el siguiente ejercicio:

Fase I

1. Presione La TeclasAlt + F11, para entrar al editor de Visual Basic.
2. Activa las siguientes opciones:
De clic en el Menú Ver y elija la opción Explorador de Proyectos
De clic en el Menú ver y elija la opciónVentana Propiedades
3. Del Menú Insertar elija la Opción UserForm. Esto inserta el Formulario que programaremos con controles. En el Explorador de Proyecto se observará que se insertó el UserForm.Ahora crear un formulario con el siguiente aspecto:



el formulario tendrá:

Tres etiquetas
Tres Textbox
Tres Botones de Comando


Programación de los Controles:BOTON DE CONSULTA

Private Sub CommandButton1_Click()

Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,MatchCase:=False).Activate
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell

Rem la línea que contiene el ActiveCell.Offset(0, 1).Select permite moverse una columna a la derecha, por lo tantodespués de la búsqueda de las primeras líneas con Cell.Find si encuentra el Nombre de la persona se mueve a la siguiente columna y la línea TextBox2 = ActiveCell Permite capturar el valor de la celda alTextbox2 y así mostrar el dato de la celda en el TextBox2.

ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell

Rem Cada vez que se escriba la línea ActiveCell.Offset(0, 1).Select significa quese tiene que moverse una columna a la derecha.

End Sub

BOTON BAJA
Private Sub CommandButton2_Click()
Selection.EntireRow.Delete
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty...