Célula recebe o dia de uma data

2024 - VBA & Macros

Post Recente por Fernando Fernandes 7 anos atrás

5 Posts

3 Usuários

0 Reactions

1,358 Visualizações

RSS

Renatoddd

(@renatoddd)

Posts: 70

Trusted Member

Topic starter

Amigos, bo atarde.

Preciso de um código VBA, que faça a célula ativa, receber o mês da data que está digitada na célula A1.

Algum consegue me ajudar nessa ?

valeuuuu

Postado : 20/10/2017 12:01 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Sub AleVBA_26338()
'ActiveCell.Formula = "=TEXT(A1,""MM"")"
'ActiveCell.Formula = "=MONTH(A1)"
    With ActiveCell
        .Formula = "=MONTH(A1)"
        .Value = .Value
    End With
End Sub

Arr

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 20/10/2017 12:06 pm

Renatoddd

(@renatoddd)

Posts: 70

Trusted Member

Topic starter

opa, valeuuuu

testei aqui e funciona mas, ele joga uma fórmula na célula.
Queria tentar jogar apenas o valor.

muito obrigado pela ajuda irmão.

Abraço.

Postado : 20/10/2017 12:40 pm

gfranco

(@wzxnet7)

Posts: 653

Honorable Member

Boa tarde.
Experimente:

Sub MesDaData()
On Error GoTo erro_mes
Dim mes As Integer, vdate As Date

vdate = Range("a1").Value
mes = VBA.Month(vdate)
ActiveCell.Value = mes

Exit Sub
erro_mes:

End Sub

Resposta útil? Clique na mãozinha ao lado do botão Citar.

Postado : 20/10/2017 12:48 pm