Lolollol

MACROS EN EXCEL
Parte III

Hola amigos, estamos de nuevo aquí para mostrar la tercera parte de Guía de Macros en Excel que te será de gran utilidad, ya que se manejaran Consultas en los Formularios, accesos a las Macros desde Excel sin necesidad de entrar a Visual Basic y algunos métodos de trabajar mas fácil. De antemano muchas gracias por apoyar este curso de Excel creo que les ha servido,no había tenido mucho tiempo para escribir esta tercera parte pero creo que ya esta……. !!!Mucho Animo!!!.

ELABORANDO UNA CONSULTA

Todo Registro de información debe de tener su propia Consulta, Baja y Modificación, es por eso que en este nuevo capitulo nos concentramos en ello, primeramente en poder consultar la información que ya se escribió en la Hoja de Excel, obviamente desde una Macrocombinada con Visual Basic, observemos el siguiente ejemplo:

Fase I

1. Presione La Teclas Alt + 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ón Ventana Propiedades
3. Del Menú Insertar elija la Opción UserForm. Esto insertael Formulario que programaremos con controles. En el Explorador de Proyecto se observara que se inserto el UserForm.

Ahora crearas un formulario con el siguiente aspecto:

[pic]

el formulario tendrá:

• Tres etiquetas
• Tres Textbox
• Tres Botones de Comando

Los datos que se preguntaran serán Nombre, Dirección y Teléfono. Los tres botones nos servirán paralo siguiente: Consultar consultara la información que hayamos insertado desde el botón insertar. Baja podrá eliminar algún dato que se consulto y no lo queremos. Insertar tendrá la función de insertar los registros que vayamos dando de alta, es como los ejercicios anteriores. A continuación se muestra como se deben de programar estos Controles:

Programación de los Controles:

BOTON DECONSULTA

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 al Textbox2 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 significaque se tiene que moverse una columna a la derecha.

Rem Si el nombre que tratas de consultar no se encuentra podría generar un error porque fallaría el Cell.Find esto puede ocurrir en el Word 97, yo trabajo con el Word 2000 o XP y no tengo ese problema. Pero esto se solucionaría con una trampa de error.

End Sub

BOTON BAJA
Private Sub CommandButton2_Click()
Selection.EntireRow.DeleteRange("A9").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub

BOTON INSERTAR

Private Sub CommandButton3_Click()
Range("A9").Select
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub

CUADROS DE TEXTO

Private Sub TextBox1_Change()
Range("A9").FormulaR1C1 = TextBox1

Rem esta primer líneareemplaza a estas dos…… que te parece todavía mas corta

Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1

End Sub

Private Sub TextBox2_Change()
Range("B9").FormulaR1C1 = TextBox2
End Sub

Private Sub TextBox3_Change()
Range("C9").FormulaR1C1 = TextBox3
End Sub

Si con el Botón Consulta tienes un error cuando no encuentra a la persona, entonces tendrás que agregar esto a tu...