Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
GENECI

Folha de ponto automática

Mensagem Recomendada

Boa tarde Geneci

Não há necessidade usar programação VBA, pois já fiz muitas planilhas pontos utilizando formulas e formatação condicional.

Coloquei  também formulas nas células C10 e D10, onde ficam as datas, puxando automaticamente a data do célula A1 da planilha mês.

Dê retorno.

[]s

10_09_17_FOLHA-PONTO-DIA-31_Patropi.xlsx


Patropi - Moderador

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá, Geneci.

Segue uma opção via macro.

Sub PreparaFolhaFreq()
 Dim d1 As Date, d2 As Date, d3 As Long
 d1 = DateSerial(Year(Sheets("MES").[A1]), Month(Sheets("MES").[A1]) - 1, 16)
 d2 = DateSerial(Year(Sheets("MES").[A1]), Month(Sheets("MES").[A1]), 15)
 d3 = d2 - d1
  With Sheets("FOLFREQ")
   .[C10] = d1 & " a " & d2
   .Rows("17:" & .Cells(Rows.Count, 1).End(3).Row - 4).Delete
   .Rows("16:" & d3 + 15).Insert
   .[A16] = d1: .[A16].NumberFormat = "dd"
   .[A16].AutoFill .[A16].Resize(d3 + 1)
  End With
End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...