Capítulo 10:

 Programación de los Controles I

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 tanto despué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 significa que 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.Delete

Range("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ínea reemplaza a estas dos...... que te parece todavía mas corta

Range("A9").Select

ActiveCell.FormulaR1C1 = TextBox1[Leon1] 

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 código del Botón Consultar

[Leon1]Range("A9").FormulaR1C1=TextBox1 Reemplaza estas dos lineas

Cursos similares a Macros de excel

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