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

Congelar data Hoje() - VBA - macro

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Guarino
Colaborador
Colaborador
Mensagens: 60
Registrado em: Qua Jan 25, 2017 12:00 pm

Congelar data Hoje() - VBA - macro

Mensagem por Guarino »

Boa tarde!

Gostaria de congelar a data "Hoje ()" em uma determinada célula para que ela não alterasse no dia posterior com com determinado critério.

Exemplo:

Coluna A tem as opções: casa, sala, armário (Validação de dados em lista). Na coluna B,C e D as datas de hoje.

Gostaria que quando colocar a opção casa, congelar a data de hoje na coluna B... Quando colocar a sala , congelar a data de hoje na coluna C, Quando colocar a armário , congelar a data de hoje na coluna D.

Segue macro que venho utilizando:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 Then Exit Sub

If Range("A" & Target.Row).Value = "Casa" Then
Range("B" & Target.Row).Value = Date

End If
End Sub

Tentei

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 Then Exit Sub

If Range("A" & Target.Row).Value = "Casa" Then
Range("B" & Target.Row).Value = Date

If Range("A" & Target.Row).Value = "Sala" Then
Range("C" & Target.Row).Value = Date

end if
End If
End Sub

Mas ela não funciona... Obrigado


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.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Congelar data Hoje() - VBA - macro

Mensagem por Reinaldo »

Não sei se entendi, então teste

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 Then Exit Sub

Select Case Target.Value
    Case "Casa"
        Range("B" & Target.Row).Value = Date
    Case "Sala"
        Range("C" & Target.Row).Value = Date
    Case "Armário"
        Range("D" & Target.Row).Value = Date
End Select
End Sub


Guarino
Colaborador
Colaborador
Mensagens: 60
Registrado em: Qua Jan 25, 2017 12:00 pm

Re: Congelar data Hoje() - VBA - macro

Mensagem por Guarino »

Boa tarde Reinaldo!

Exatamente isso meu amigo.. tentei aqui e deu certo..

Muito obrigadoooooo!!!

Abraços!


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.


Responder