Página 1 de 1
inserir data vba
Enviado: 05 Nov 2018 às 21:00
por claudioventura2018
Boa noite,segue em anexo uma planilha que nosso amigo Luiz Porto me ajudou , esta otima mas eu gostaria de automatizar a colocação das datas . eu inseri manualmente e gostaria que fosse automatica.
são 12 planilhas de janeiro a dezembro , eu coloco a data na celula ( K 1 ) na proxima sera na ( K 45 ) um intervalo de 44 linhas as datas são de segunda a sabado ( exclui domingo e feriado )
grato
Re: inserir data vba
Enviado: 05 Nov 2018 às 21:36
por osvaldomp
1. coloque em uma das planilhas a lista dos feriados de 2019, e nos informe a localização
2. na planilha DEZ você formatou a coluna L para receber as datas. Confirma ?
Re: inserir data vba
Enviado: 06 Nov 2018 às 20:03
por claudioventura2018
Boa noite segue em anexo a mesma planilha com uma de ( feriado 2019 ) e realmente na planilha de dezembro a data ficou na coluna L
Re: inserir data vba
Enviado: 06 Nov 2018 às 23:12
por osvaldomp
claudioventura2018 escreveu:... e realmente na planilha de dezembro a data ficou na coluna L
É a única diferente, é pra ficar na L ou foi engano ?
inserir data vba
Enviado: 07 Nov 2018 às 12:41
por claudioventura2018
Boa tarde é para ficar na L
Re: inserir data vba
Enviado: 07 Nov 2018 às 14:05
por osvaldomp
Experimente:
Código: Selecionar todosSub InsereDatas()
Dim i As Long, k As Long, d As Date, m As Long
For i = 1 To 12
With Sheets(i)
For k = 1 To Day(DateSerial(2019, i + 1, 0))
d = DateSerial(2019, i, k)
Do Until Weekday(d, 2) < 7 And Application.CountIf(Sheets("Feriado 2019").[A:A], d) = 0
d = d + 1: k = k + 1
Loop
If i < 12 Then .Cells(m + 1, 11) = d Else .Cells(m + 1, 12) = d
m = m + 44
Next k
End With
m = 0
Next i
End Sub
20/11/2019 Consciência Negra
inserir data vba
Enviado: 07 Nov 2018 às 20:36
por claudioventura2018
Osvaldo boa noite,muito obrigado.PERFEITO.