MACROS CON CODIGO VISUAL BASIC

MACRO PARA INSERTAR UN NOMBRE

Sub Datos()

Range("A6").Select
ActiveCell.FormulaR1C1 = "UNIVERSIDAD"
Range("B6").Select
ActiveCell.FormulaR1C1 = "SANTO"
Range("C6").Select
ActiveCell.FormulaR1C1 = "TOMAS"

End Sub

MACRO PARA LISTAR LAS HOJAS DE UN LIBRO

Sub Datos()

Range("A6").Select
ActiveCell.FormulaR1C1 = "UNIVERSIDAD"
Range("B6").Select
ActiveCell.FormulaR1C1 = "SANTO"
Range("C6").Select
ActiveCell.FormulaR1C1 = "TOMAS"

End Sub

MACRO PARA LIMPIAR LAS HOJAS DE UN LIBRO

Sub paralimpiar()

Range("A6").Select
Selection.CurrentRegion.Select
Selection.ClearContents
Range("A6").Select

End Sub

FORMULARIOS

FORMULARIO PARA CALCULAR EL SUELDO DEVENGADO

Private Sub CommandButton1_Click()

Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox1.SetFocus

End Sub

CODIGO PARA LAS CAJAS DE TEXTO
Private Sub TextBox1_Change()

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

End Sub

Private Sub TextBox2_Change()

Range("B6").Select
ActiveCell.FormulaR1C1 = TextBox2

End Sub


Private Sub TextBox3_Change()

Range("C6").Select
ActiveCell.FormulaR1C1 = TextBox3

End Sub

Private Sub TextBox4_Change()

Range("D6").Select
ActiveCell.FormulaR1C1 = TextBox4

End Sub

Private Sub TextBox5_Change()

Range("E6").Select
ActiveCell.FormulaR1C1 = TextBox5

End Sub


Private Sub TextBox6_Change()

Range("F6").Select
ActiveCell.FormulaR1C1 = TextBox6
TextBox6 = Val(TextBox4) / (30) * Val(TextBox5)

End Sub