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
|
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 | ||||
Cursos para compartir lo que sabes
