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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Alterar dias do mês dinamicamente.
-
- Acabou de chegar
- Mensagens: 5
- Registrado em: Dom Abr 18, 2021 12:15 pm
Alterar dias do mês dinamicamente.
- Anexos
-
- alterar dias dinamicamente.JPG (64.97 KiB) Exibido 1253 vezes
-
- Acabou de chegar
- Mensagens: 8
- Registrado em: Seg Fev 15, 2021 6:33 pm
Re: Alterar dias do mês dinamicamente.
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
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