Inserir data automaticamente mediante condição

[Carol1985]

Caros, boa tarde!

Por favor, tenho a macro abaixo, ela registra a data e a hora na coluna 18 quando a coluna 4 for alterada.

Preciso de algo bem parecido, quero que ela registre a data e a hora na coluna 18 somente quando na coluna 4 contiver a informação "Vendido".

Como não entendo nada de macro, peço a ajuda de vocês.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 4 Then

Cells(Target.Row, 18).Value = Date & " " & Time

End If

End Sub

Obrigada,

Carol.

[zinhovba]

Boa noite!!

Não testado

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count <> 1 Then Exit Sub
    If Intersect(Target, Range("D2:D1000")) Is Nothing Then Exit Sub
    If Target = "Vendido" Then
    Cells(Rows.Count, 18).End(xlUp).Offset(1, 0) = Now
    End If
End Sub

[Carol1985]

Zinho, boa noite!

Muito obrigada pela ajuda. Eu testei o código e em parte está funcionando. Tenho uma validação na coluna A onde deve ser selecionado: "Vendido" e "Não Vendido". O que está ocorrendo é o seguinte:

Se na célula A3 eu selecionar "Não vendido", realmente o código não informa a data em B3, é o que realmente queria, visto que o critério é "Vendido", mas quando coloco "Vendido" em A4, a data ao invés de aparecer em B4, aparece em B3 (Que estava vazia, porque A3 é "Não vendido").

Não sei se expliquei bem, segue a planilha para teste:http://www.sendspace.com/file/y3em28

Obrigada,

Beijos,

Carol.

[deejaywesley]

Bom Dia!

Tentando contribuir...

Tenta assim!

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Colunas As Range

Set Colunas = Range("A2:A20000")

If Not Application.Intersect(Colunas, Range(Target.Address)) Is Nothing Then

linha = Target.Row

If Range("A" & linha) = "Vendido" Then

Range("B" & linha).Value = DateTime.Now

End If

End If

End Sub