Ingeniero

Worksheets("Horas Extras").Select
Cells.Select
Selection.Clear
Range("A1").Select
Worksheets("Horas Extras").Select
n = Val(InputBox("Seleccione el número de trabajadoresque tienen horas extras"))

For i = 2 To n + 1
Cells(i, 1).Select
With Selection.Validation
.Delete
.AddType:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=LISTADO
.IgnoreBlank = True
.InCellDropdown = True.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True.ShowError = True
End With
Next

Range("A1").Select
ActiveCell.FormulaR1C1 = "Nombre"
Range("B1").SelectActiveCell.FormulaR1C1 = "Horas Extras Diurnas"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Horas Extras Nocturnas"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Horas ExtrasFestivas"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Valor Horas Extras Diurnas"
Range("F1").Select
ActiveCell.FormulaR1C1 = "Valor Horas Extras Nocturnas"Range("G1").Select
ActiveCell.FormulaR1C1 = "Valor Horas Extras Festivas"
Range("H1").Select
ActiveCell.FormulaR1C1 = "Valor Total Horas Extras"
Range("A1:H1").SelectSelection.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With...