Rotina automatica vba

[LeoDuraes]

Olá! Meus caros,

 

Preciso que nessa tabela exemplo conforme a data vai sendo atualizada os outros campos sejam atualizados automático.

Podem me ajudar? 

 

Por gentileza!

Att, Leonildo Durães

[DJunqueira]

porque tanta redundância? porque não usas uma fórmula mais enxuta?

 

=PRI.MAIÚSCULA(TEXTO(G2;"aaaammmm"))

[Basole]

 

@LeoDuraes como diz o proprio titulo do tópico, voce quer ajuda com rotina VBA, 

 

Segue o codigo, ao inseri uma data na coluna E, a macro inseri os dados nas celulas anteriores:

 

Cole o codigo no modulo da sua aba(planilha):

	Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lr As Long
	Lr = Cells(Rows.Count, 5).End(xlUp).Row
	If Target.Count > 1 Or Target.Value = "" Then Exit Sub
	If Not Intersect(Target, Range("E2:E" & Lr)) Is Nothing Then
With ThisWorkbook
Range("A" & Target.Row) = VBA.Format(Target.Value, "yyyy")
Range("B" & Target.Row) = .Application.WorksheetFunction.Proper(VBA.Format(Target.Value, "mmmm"))
Range("C" & Target.Row) = .Application.WorksheetFunction.Text(Target.Value, "mm")
Range("D" & Target.Row) = .Application.WorksheetFunction.Text(Target.Value, "yyyy") & _
.Application.WorksheetFunction.Proper(VBA.Format(Target.Value, "mmmm"))
End With
End If
	End Sub
	End Sub