MACROS CON CODIGO VB

MACRO PARA COLOCAR UN TITULO

Sub Datos()
Range("A6").Select
ActiveCell.FormulaR1C1 = "GRUPO"
Range("B6").Select
ActiveCell.FormulaR1C1 = "Kopelle"
Range("C6").Select
ActiveCell.FormulaR1C1 = "S.A"

End Sub

MACRO PARA LISTA LAS HOJAS DE UN LIBRO

Sub Listarhojas()
Dim Contador As Integer
For Contador = 1 To Sheets.Count
With Sheets(1)
Cells(Contador + 4, 6).Value = Sheets(Contador).Name
End With
Next
End Sub


MACRO PARA LIMPIAR LAS HOJAS DE UN LIBRO
Sub Limpiar()
Range("A6").Select
Selection.CurrentRegion.Select
Selection.ClearContents
Range("D6").Select

End Sub


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


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