DATA AUTOMATICA AUTO REVERSE

2024 - VBA & Macros

Post Recente por marciobin 9 anos atrás

3 Posts

2 Usuários

0 Reactions

715 Visualizações

RSS

marciobin

(@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