Bom dia,
Temo uma planilha onde realizo todos os lançamentos de horas extras dos funcionários exemplo:
ColunaA / ColunaB/ ColunaC/ ColunaD
Nome / Matricula/ Data / Horas
Fiz uma Userform com dois TextBox para digitar as datas e um botão executar com esta macro com o código abaixo: Mas preciso que apresente todas as informações agrupadas em ordem alfabética e um demontativo de cada colaborador com o total de horas extras para cada colaborador. Isso é possivel?
Private Sub btExecutar_Click()
Plan1.Range("j3:n100").ClearContents
lin = 2
linha = 2
If cdDataINI = "" Or cdDataFIM = "" Then Exit Sub
Do Until Plan1.Cells(lin, 1) = ""
If Plan1.Cells(lin, 3) >= CDate(cdDataINI) And _
Plan1.Cells(lin, 3) <= CDate(cdDataFIM) Then
Plan1.Cells(linha, 10) = Plan1.Cells(lin, 1)
Plan1.Cells(linha, 12) = CDate(Plan1.Cells(lin, 3))
Plan1.Cells(linha, 11) = Plan1.Cells(lin, 2)
Plan1.Cells(linha, 13) = Plan1.Cells(lin, 4)
linha = linha + 1
End If
lin = lin + 1
Loop
MsgBox "Processo concluído - " & cdDataINI & " à " & cdDataFIM
End Sub