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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Congelar data Hoje() - VBA - macro
- Reinaldo
- 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
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
Re: Congelar data Hoje() - VBA - macro
Boa tarde Reinaldo!
Exatamente isso meu amigo.. tentei aqui e deu certo..
Muito obrigadoooooo!!!
Abraços!
Exatamente isso meu amigo.. tentei aqui e deu certo..
Muito obrigadoooooo!!!
Abraços!