Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Alterar dias do mês dinamicamente.

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
RahelCunha
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Dom Abr 18, 2021 12:15 pm

Alterar dias do mês dinamicamente.

Mensagem por RahelCunha »

Boa tarde pessoal tudo bem?

Será que podem me ajudar por favor?

Estou com um arquivo onde preciso alterar os dias de acordo com o mês atual. Por exemplo, se a fórmula "=hoje()" retornar o dia "15/06/2021", isso significa que estamos no mês 06, então iria preencher no arquivo, do primeiro ao ultimo dia de junho na coluna "B". Porém, se a formula "hoje()" retornasse 03/12/2021, então os dados da coluna "A" seriam apagados e seria lançado do primeiro ao ultimo dia de dezembro(01/12/2021 a 31/12/2021). É possível fazer isso através de VBA ou mesmo fórmulas no excel?

Agradeço imensamente a ajuda.

Alterar dia do mes de forma dinamica
Anexos
alterar dias dinamicamente.JPG
alterar dias dinamicamente.JPG (64.97 KiB) Exibido 1203 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


LuanaBailon
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Seg Fev 15, 2021 6:33 pm

Re: Alterar dias do mês dinamicamente.

Mensagem por LuanaBailon »

Boa noite, veja se esse código pode te ajudar, mas antes, poderia me fazer o favor de fazer uma cópia do seu arquivo e testar nela, só por precaução? Segue o código:
Não sei aonde e o que vai preencher as células, então deduzi e coloquei "preencha aqui" como valor. Ajuste de acordo com sua necessidade.

Sub mesDinamico()

Dim i As Long, tlinha As Long

tlinha = Range("a2").CurrentRegion.Rows.Count

For i = 3 To tlinha
If Month(Cells(i, 1).Value) = Month(Date) Then
Cells(i, 2).Value = "preencha aqui"
Cells(i, 3).Value = "preencha aqui"
Cells(i, 4).Value = "preencha aqui"
End If
If Month(Cells(i, 1).Value) < Month(Date) Then
Cells(i, 2).Clear
Cells(i, 3).Clear
Cells(i, 4).Clear
End If
Next
Range("a1").CurrentRegion.EntireColumn.AutoFit

End Sub


Responder