Notifications
Clear all

Célula recebe o dia de uma data

5 Posts
3 Usuários
0 Reactions
1,367 Visualizações
(@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)
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
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Reveja o código no Post#2, eu editei para

.Value = .Value

Att

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

 
Postado : 20/10/2017 1:10 pm