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?
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
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.
esse 10/08/2017 que tem no print eh so uma funcao =hoje() nao tem nada haver com o codigo nao.
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
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel