les dejo el codigo para la nomina deben modificar para que aparesca los valores en la hoja ya llenos e investigen como pueden obtener el mes y el rango de fechas para obtener que quincena es:
CODIGO
Sub Genera_nomina()
Dim fila As String
Dim y As Integer
Dim estado As Boolean
estado = True
y = 2
Cells(1, 1).Value = "Pago de nomina"
Cells(2, 1).Value = "Mes"
Cells(2, 4).Value = "Quincena"
Cells(3, 1).Value = "Num empleado"
Cells(3, 2).Value = "Nombre"
Cells(3, 3).Value = "categoria"
Cells(3, 4).Value = "Horas trab"
Cells(3, 5).Value = "Horas extras"
Cells(3, 6).Value = "Pag x hora"
Cells(3, 7).Value = "pag hr ext"
Cells(3, 8).Value = "total a pag"
' MsgBox (Worksheets(2).Range("a2").Value & _
' " " & Worksheets(2).Range("b2").Value & _
' " " & Worksheets(2).Range("c2").Value)
fila = "a" & y
Do While (estado)
If Worksheets(2).Range(fila).Value = "" Then
estado = False
Else
MsgBox (Worksheets(2).Range(fila).Value)
End If
y = y + 1
fila = "a" & y
Loop
End Sub
