Capýtulo 7:

 Genera el siguiente código

Private Sub CommandButton1_Click()

Selection.EntireRow.Insert

TextBox1 = Empty

TextBox2 = Empty

TextBox3 = Empty

TextBox1.SetFocus

End Sub

Private Sub TextBox1_Change()

Range("A9").Select

ActiveCell.FormulaR1C1 = TextBox1

End Sub

Private Sub TextBox2_Change()

Range("B9").Select

ActiveCell.FormulaR1C1 = TextBox2

End Sub

Private Sub TextBox3_Change()

Range("C9").Select

ActiveCell.FormulaR1C1 = TextBox3

End Sub

Private Sub TextBox4_Change()

Range("D9").Select

ActiveCell.FormulaR1C1 = TextBox4

Rem aquí se crea la formula

TextBox5 = Val(TextBox2) *  Val(TextBox3) + Val(TextBox4)

Rem El TextBox5 guardara  el total

End Sub

Private Sub TextBox5_Change()

Range("E9").Select

ActiveCell.FormulaR1C1 = TextBox5

End Sub

Cuando se introduzca el Bonos automáticamente se generara el Sueldo Neto.

Este ejemplo viene en el Archivo Macros de Sueldo Neto 

BUSANDO INFORMACIÓN CON UN TEXTBOX

Se puede buscar información con un Textbox programándolo de la siguiente forma:

Dibuje una Etiqueta, un Textbox y un Botón de Comando y agregue el siguiente Código:

Private Sub TextBox1_Change()

Range("a9").Select

ActiveCell.FormulaR1C1 = TextBox1

End Sub

Private Sub CommandButton1_Click()

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

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

        False).Activate

End Sub

Si te fijas incluí en la programación del Botón Buscar Ahora  que buscara lo que en el Textbox1 a la hora de Presionarse.

Este proceso viene en el Archivo Completo Macro2

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