Fóruns
Microsoft Excel - 2...
Datas & Horas
Adicionar e Remover...
 
Notifications
Clear all

Adicionar e Remover Data Atual Fixa Automaticamente

 
Datas & Horas
Post Recente por ttorres 8 anos atrás
3 Posts
2 Usuários
0 Reactions
1,398 Visualizações
RSS
 ttorres
(@ttorres)
Posts: 0
New Member
Topic starter
 

Olá queridos, tudo bem?
A fórmula que o usuário a cima colocou eu não entendi muito bem. Mas vejam só:

Eu tenho uma coluna com uma lista suspensa ($D$11:$D$964) nomeada como CAIXATIPOS
Gostaria que quando alguém selecionar um valor da lista suspensa fosse inserida na coluna ($B$11:$B$964) nomeada como DATAREGISTRO

Eu achei essa fórmula e ela resolve o problema 90%:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
If Target.Column = 4 Then Range("$B$" & Target.Row).Value = Date
Application.EnableEvents = True
End Sub

A questão é o seguinte, se o usuário limpar a seleção da coluna CAIXATIPOS a data continua na coluna DATAREGISTRO. Eu gostaria também, de apagar a data gerada pelo macro.

 
Postado : 08/03/2017 12:13 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde ttorres

Bem-vindo ao fórum!

Não poste em tópicos dos outros, sempre crie um novo tópico para as tuas dúvidas.

Para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador

 
Postado : 08/03/2017 2:59 pm
 ttorres
(@ttorres)
Posts: 0
New Member
Topic starter
 

Olá Pessoal,
com a ajuda do MPrudencio, a solução para o o meu problema é essa:

"D" é a célula que será preenchida pelo usuário
"B" é a célula que será preenchida com a data automaticamente


Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Range("D" & Target.Row).Value <> "" Then
Range("B" & Target.Row).Value = Date
End If

If Range("D" & Target.Row).Value = "" Then
Range("B" & Target.Row).Value = ""
End If

Application.EnableEvents = True

End Sub

Com esse código ao digitar algo na célula D, preenche a data atual na célula B.
Se o usuário apagar o conteúdo da célula D, automaticamente será apagado o conteúdo da célula B.

Mas ainda tenho uma dúvida,
como poderia trocar o D e o B pelo intervalo nomeado?

 
Postado : 08/03/2017 7:52 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico