Sub Personal0()

Worksheets.Add.Name = "Personal"
if


End Sub
Sub Personal1()


Range("A1").Value = "RUT"
Range("B1").Value = "DV"
Range("C1").Value = "PATERNO"
Range("D1").Value = "MATERNO"
Range("E1").Value = "NOMBRE"
Range("F1").Value = "SUELDO"
Range("G1").Value = "COD.AFP"
Range("H1").Value = "COD.SALUD"
Range("I1").Value = "T.HABERES"
Range("J1").Value = "T.DESCUENTOS"
Range("K1").Value = "S.LIQUIDO"

End Sub
Sub dwqdwqd()



x = InputBox("Ingrese el valor en UTM")
x = Worksheets(1).Range("J2").Value



End Sub
Sub DWQDQWDWQ()


Range("a2") = InputBox(" Ingrese su RUT")
Range("b2") = InputBox(" Ingrese su DV")
Range("c2") = InputBox(" Ingrese su PATERNO")
Range("d2") = InputBox(" Ingrese su MATERNO")
Range("e2") = InputBox(" Ingrese su NOMBRE")
Range("f2") = InputBox(" Ingrese su SUELDO")


End Sub
Sub EDWFWF()


Range("a2") = InputBox(" Ingrese su RUT")
Range("b2") = InputBox(" Ingrese su DV")
Range("c2") = InputBox(" Ingrese su PATERNO")
Range("d2") = InputBox(" Ingrese su MATERNO")
Range("e2") = InputBox(" Ingrese su NOMBRE")
Range("f2") = InputBox(" Ingrese su SUELDO")


if
 Range ("a2") >= 0
 Range ("b2") >= 0
 Range ("c2") >= 0
 Range ("d2") >= 0
 Range ("e2") >= 0
 Range ("f2") >= 0
 Else
 MsgBox ("intente de nuevo ")

 End If



End Sub