data quando digita na coluna

2024 - VBA & Macros

Post Recente por Fernando Fernandes 7 anos atrás

6 Posts

2 Usuários

0 Reactions

1,398 Visualizações

RSS

kayomaster

(@kayomaster)

Posts: 90

Trusted 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 10/08/2017 5:44 pm

kayomaster

(@kayomaster)

Posts: 90

Trusted 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: 90

Trusted 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: 90

Trusted 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