Ir ao conteúdo
  • Cadastre-se

Mizangela Martins

Membro Júnior
  • Posts

    17
  • Cadastrado em

  • Última visita

Reputação

0
  1. Ola, Boa tarde! Fiz um sistema no Excel e gostaria que avisasse um email quanto tiver cursos vencidos e com 30 dias para vencer, com as seguintes informações. curso - quantidade - (Quantos tem vencido) Matricula, Nome, data, status, situação É possível fazer isso? Desde já agradeço a gentileza Segue arquivo
  2. Da uma olhadinha vê se é isso que você quer LANCAMENTOS.xlsx
  3. Ola, Boa tarde! Fiz um sistema no Excel e gostaria que avisasse um email quanto tiver cursos vencidos e com 30 dias para vencer, com as seguintes informações. curso - quantidade - (Quantos tem vencido) Matricula, Nome, data, status, situação É possível fazer isso? Desde já agradeço a gentileza
  4. Ola, Boa tarde! Fiz um sistema no Excel e gostaria que avisasse um email quanto tiver cursos vencidos e com 30 dias para vencer, com as seguintes informações. curso - quantidade - (Quantos tem vencido) Matricula, Nome, data, status, situação É possível fazer isso? Desde já agradeço a gentileza Segue arquivo CURSOS - VALIDADE.xlsx
  5. Boa noite! Estou fazendo uma planilha para controlar as horas extras (60%, 100% e adicional noturno), já consegui a formula para as horas (60 e 100%), porém no adicional noturno estou encontrado muita dificuldade. tenho os campos: entrada -> aqui vai o horari de inicio da hora extra saida - > termino do horario da hora extra total e o total que a pessoa fez essas horas extras nao sao padronizada, a mesma pessoa que entrou as 18h e saiu as 23:00, pode fazer farias horas extras em outros horarios. ex.: joao 10/05/2018 entrou 18:00 e saiu 23:30 - adicional noturno 01:30 10/06/2018 entrou 21:20 e saiu 05:00- adicional noturno 07:00 10/09/2018 entroio 22:00 e saiu 08:00 adicional noturno 07:00 10/10/2018 entrou 19:00 e saiu 04:00 adicional noturno 06:00 11/11/2018 entrou 21:30 e saiu 09:00 adicional noturno 07:00 esta era a formula q estava tentando, mais como existe outras situações não da certo. =SE(E(G5>=$I$1;H5<=$H$1);H5-G5+(H5<G5);"") segue a planilha em anexo desde ja agradeco pela ajuda CADASTRO DE HORAS EXTRAS 1.1.xlsx
  6. Bom dia! na planilha tenho planilha: funcionrios devera relacionar todos os funcionarios da empresa matriz modelo gerdo para todos da lista de funcionarios feriados todos feriados referente ao mes entradas das h. extras pegar todas as matrizes e alocar nesta planilha funcionara assim: 1 - lancar os dados dos funcionarios( plan funcionarios) 2 - gerar martiz ( de 1 ou todos) , 3 -imprimir (1 ou todos) folha estará em branco so com os dados do funcionários, sera preenchida manualmente e depois devolvida pelo funcionario. 4 - lançarei na planilha do funcionário (gerada a partir da matriz) os dados q ele preencheu. 5 - os dados ja preenchidas na folha de cada funcionarios devera constar na planilha "entrada de h. extra" (todos os funcionario juntos. é possivel fzes isso desde ja agradeco
  7. Bom dia! na planilha tenho planilha: funcionrios devera relacionar todos os funcionarios da empresa matriz modelo gerdo para todos da lista de funcionarios feriados todos feriados referente ao mes entradas das h. extras pegar todas as matrizes e alocar nesta planilha funcionara assim: 1 - lancar os dados dos funcionarios( plan funcionarios) 2 - gerar martiz ( de 1 ou todos) , 3 -imprimir (1 ou todos) folha estará em branco so com os dados do funcionários, sera preenchida manualmente e depois devolvida pelo funcionario. 4 - lançarei na planilha do funcionário (gerada a partir da matriz) os dados q ele preencheu. 5 - os dados ja preenchidas na folha de cada funcionarios devera constar na planilha "entrada de h. extra" (todos os funcionario juntos. é possivel fzes isso desde ja agradeco CADASTRO DE HORAS EXTRAS 1.2.xlsx
  8. Bom dia! Estou desenvolvendo um sistema de horas extras justificadas, porém no estou conseguindo finalizar, preciso que a planilha me informe a quantidade de horas 60% e 100% e geral de cada funcionário, e o geral de todos funcionários juntos para saber quanto foi em cada base (60%, 100% e geral). e se houver uma maneira mais fácil de digitar a hora no campo horas que nao precise colocar os ":". como um funcionário faz muitas horas extra, nao achei uma mameira mais rápido de digitar. " Segue a planilha em anexo. criei um campo feriado, se tiver uma formula mais fácil obrigado CADASTRO DE HORAS EXTRAS 1.1.xlsx
  9. Boa Noite! Tenho um sisteminha no acces e gostaria que ele informasse o mes de aniversario DataNasFun = é a Data De Nascimento MesAniv = Onde Vai ficar O nome do mes (EX.: Fevereiro) Obrigado!
  10. olha funcionou, porém esta excluido a planilha dados, e nao sei como add no if pra nao excluir
  11. minha folha de pontos gera a folha de ponto de todos os funcionários, porém gostaria q a mesma alem de gerar todas as folhas tivesse um botao para excluir uma ou mais (selecionada na lista) ou todas. na minha folha de ponto tenho dois botões: -Gerar todas (todos os funcionarios da lista) a partir de uma folha base -Gerar Selecionada (somente o funcinario selecionado na lista( 1 ou mais) preciso de mais um botao para excluir todas as planilhas que foram geradas alguem pode me ajudar segue os codigos dos botões Sub GeraTodasAsFolhas() Dim n As Range, ws As Worksheet, e As Boolean Application.ScreenUpdating = False For Each n In Range("B6:B" & Cells(Rows.Count, 2).End(3).Row) For Each ws In Worksheets If ws.Name = n.Offset(, -1).Value Then With ws .[B7] = n.Value: .[B8] = n.Offset(, 1).Value: .[H8] = n.Offset(, 2).Value '.[I9] = n.Offset(, 3).Value: .[J9] = n.Offset(, 4).Value .[A13:A43].Value = Sheets("matriz").[A13:A43].Value .[B9] = Sheets("matriz").[B9].Value: .[D9] = Sheets("matriz").[D9].Value .[I9] = n.Offset(, 3).Value End With e = True: Exit For End If Next ws If Not e Then If Sheets.Count = 2 Then Sheets("matriz").Copy After:=Sheets(2) ElseIf Sheets(3).Name <> "1" Then Sheets("matriz").Copy After:=Sheets(2) Else: Sheets("matriz").Copy After:=Sheets("" & n.Offset(-1, -1).Value & "") End If ActiveSheet.Name = n.Offset(, -1).Value [B7] = n.Value: [B8] = n.Offset(, 1).Value: [H8] = n.Offset(, 2).Value '[I9] = n.Offset(, 3).Value: [J9] = n.Offset(, 4).Value [I9] = n.Offset(, 3).Value ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value: e = False Else: e = Not e End If Next n Application.ScreenUpdating = True End Sub Sub GeraParaSelecionados() Dim n As Range, ws As Worksheet, e As Boolean Application.ScreenUpdating = False For Each n In Selection For Each ws In Worksheets If n.Value = "" Then Exit For If ws.Name = n.Offset(, -1).Value Then With ws .[B7] = n.Value: .[B8] = n.Offset(, 1).Value: .[H8] = n.Offset(, 2).Value '.[I9] = n.Offset(, 3).Value: .[J9] = n.Offset(, 4).Value .[A13:A43].Value = Sheets("matriz").[A13:A43].Value .[B9] = Sheets("matriz").[B9].Value: .[D9] = Sheets("matriz").[D9].Value .[I9] = n.Offset(, 3).Value End With e = True: Exit For End If Next ws If Not e And n.Value <> "" Then If Sheets.Count = 2 Then Sheets("matriz").Copy After:=Sheets(2) ElseIf Sheets(3).Name <> "1" Then Sheets("matriz").Copy After:=Sheets(2) Else: Sheets("matriz").Copy After:=Sheets("" & n.Offset(-1, -1).Value & "") End If ActiveSheet.Name = n.Offset(, -1).Value [B7] = n.Value: [B8] = n.Offset(, 1).Value: [H8] = n.Offset(, 2).Value '[I9] = n.Offset(, 3).Value: [J9] = n.Offset(, 4).Value [I9] = n.Offset(, 3).Value ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value: e = False Else: e = Not e End If Next n Application.ScreenUpdating = True End Sub

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...