Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
data quando digita ...
 
Notifications
Clear all

data quando digita na coluna

 
2024 - VBA & Macros
6 Posts
2 Usuários
0 Reactions
1,388 Visualizações
RSS
 kayomaster
(@kayomaster)
Posts: 0
New Member
Topic starter
 

Olá eu tenho uma planilha que ja tem esses codigos:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
 If Target.Column = 4 Then
  Target.Offset(0, 4).Value = Target.Offset(0, 4).Value + Target.Value
 ElseIf Target.Column = 3 Then
  Target.Offset(0, 4).Value = Date
 End If
End Sub

eu quero acrescentar apenas mais uma informação que qualquer dado que for alterado na coluna C ele insira a data apenas na celula G1 .
ou seja qualquer informação de alteracao de toda a coluna C precisa apenas ficar uma unica data que é a data dessa alteracao se fosse alterado algum dado hoje na coluna C independetente de ser uma ou varias a celula G1 ficaria com essa data. O resto do cogido permanece igual quero so acrescentar isso.

acho que é bem simples mas não sei fazer rsrs. alguem me ajuda?

 
Postado : 10/08/2017 4:49 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite kaiomaster

Experimente:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 4 Then
  Target.Offset(0, 4).Value = Target.Offset(0, 4).Value + Target.Value
ElseIf Target.Column = 3 Then
  Range("G1").Value = Date
End If
End Sub

Se foi útil, clique na mãozinha.

Dê retorno.

[]s

 
Postado : 10/08/2017 5:44 pm
 kayomaster
(@kayomaster)
Posts: 0
New Member
Topic starter
 

oie ele foi pro g1 mas eu preciso q ele continue fazendo o q ja fazia q qnd a linha fosse alterada ele exibisse na coluna q ja estava referente. eu preciso apenas que alem do q o codigo ja fazia ele faça isso tb da celula G1. Pq é um controle de estoque entao cada movimentacao precisa continuar tendo suas datas qnd forem alteradas e alem disso quando qlqr dado da coluna C for alterada precisa informar a data da alteracao na G1. segue print.

 
Postado : 10/08/2017 5:59 pm
 kayomaster
(@kayomaster)
Posts: 0
New Member
Topic starter
 

esse 10/08/2017 que tem no print eh so uma funcao =hoje() nao tem nada haver com o codigo nao.

 
Postado : 10/08/2017 6:01 pm
 kayomaster
(@kayomaster)
Posts: 0
New Member
Topic starter
 

no caso o codigo certo seria:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 4 Then
Target.Offset(0, 4).Value = Target.Offset(0, 4).Value + Target.Value
ElseIf Target.Column = 3 Then
Target.Offset(0, 4).Value = Date
Range("G1").Value = Date
End If
End Sub

mas valeu nao sabia dessa parte: Range("G1").Value = Date

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

Kayomaster

Eu havia entendido que você só queria a data data na G1, mas afinal, se a minha contribuição foi útil, você se esqueceu de clicar na mãozinha.

[]s

 
Postado : 10/08/2017 6:59 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico