If NumTrab = 0 Then 'Se seleccionou TUDO então faz:
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=TempFile, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
TempFile = ActiveWorkbook.Name
Windows(FicheiroActual).Activate
If Cb_5.Value = True Then 'TOTAIS ANO
Call TotaisAno
Sheets("TOTAIS").Move Before:=Workbooks(TempFile).Sheets(1)
End If
If Cb_2.Value = True Then 'Horas Trabalhadas
For x = 0 To UBound(ListaPessoal)
Nome = ListaPessoal(x, 1)
Call FazFolhaPessoal(Nome)
If FolhaInexistente = False Then
Workbooks(FicheiroActual).Sheets(ListaPessoal(x, 1)).Move After:=Workbooks(TempFile).Sheets(1)
End If
Next x
End If
If Cb_4.Value = True Then 'Horas de Acerto Mensais
Call Calcula_HA_Mensal
Workbooks(FicheiroActual).Sheets("Horas Acerto Mensal").Move Before:=Workbooks(TempFile).Sheets(1)
End If
If Cb_3.Value = True Then 'HCI's Mensais
Call Calcula_HCI_Mensal
Workbooks(FicheiroActual).Sheets("HCI Mensal").Move Before:=Workbooks(TempFile).Sheets(1)
End If
Workbooks(TempFile).Save 'Guarda Ficheiro
Workbooks(TempFile).Close
A = MsgBox("Dados gravados com sucesso no ficheiro " & TempFile, vbInformation + vbOKOnly)
Exit Sub
End If
Bookmarks