Notifications
Clear all

DATA AUTOMATICA AUTO REVERSE

3 Posts
2 Usuários
0 Reactions
710 Visualizações
(@marciobin)
Posts: 204
Estimable Member
Topic starter
 

Boa noite !
Pude observar que na comunidade temos varios topicos relacionados com esse tema , mas porém preciso de mais uma ajuda ,
na coluna a , se for preenchido com "PAGO" , A COLUNA B , sera lancada a data automatica , mas porem a macro não respeita se na mesma hora eu apagar a celula a , que no caso é pago , ou seja ,em hipotese alguma se na coluna a nao tiver pago , a coluna B , nao pode gerar hora automatica. Coloqueiu pago gera a hora , apaguei , apaga a hora também.
segue codigo :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
If Intersect(Target, Range("A2:A1000")) Is Nothing Then Exit Sub
If Target = "PAGO" Then
Cells(Target.Row, 2).Value = Date & " " & Time
End If
End Sub

Desde ja muito obrigado !

 
Postado : 21/07/2015 4:38 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

veja se é sito :

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.Count <> 1 Then Exit Sub
    If Intersect(Target, Range("A2:A1000")) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False

    If Target = "PAGO" Then
        Cells(Target.Row, 2).Value = Date & " " & Time
    Else
        Cells(Target.Row, 2).Value = ""
    
    End If
        Application.EnableEvents = True
        
End Sub

[]s

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

 
Postado : 22/07/2015 5:30 am
(@marciobin)
Posts: 204
Estimable Member
Topic starter
 

Bom dia ,

Mauro , Exatamente isso . obrigado pela força .

 
Postado : 22/07/2015 5:45 am