Excel VBA - Digitar em K e resultado esperado em Z

[jcgmcs]

Olá boa tarde!

Preciso em VBA, que sempre ao digitar em K à partir da linha 5
"CANCELOU PEDIDO S/DVL" ou "CANCELOU PEDIDO C/DVL" quero o resultado esperado em "Z"

Anexo a planilha modelo com dados fictícios.

Excel - Lista Compra Produtos.xls

[OreiaG]

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Row < 5 Or Target.Column <> 11 Then Exit Sub
 If Target.Value = "CANCELOU PEDIDO S/DVL" Then
  Cells(Target.Row, "Z") = "PDD CANCEL " & Format(Target.Offset(, -1).Value, "dd/mm/yy") & " S/DVL"
 ElseIf Target.Value = "CANCELOU PEDIDO C/DVL" Then
  Cells(Target.Row, "Z") = "PDD CANCEL " & Format(Target.Offset(, -1).Value, "dd/mm/yy") & " C/DVL"
 End If
End Sub

 

[jcgmcs]

OreiaG boa noite...

Favor, poderia ajustar ae pra reconhecer tanto Maiúscula como Minúscula...

[OreiaG]

Yes guy, here you go.

 

Substitua as linhas correspondentes pelas novas linhas abaixo.

Como você não mencionou sobre a coluna Z, considerei que ela será sempre em maiúsculas, independente da coluna K.

 

If UCase(Target.Value) = "CANCELOU PEDIDO S/DVL" Then

...

ElseIf UCase(Target.Value) = "CANCELOU PEDIDO C/DVL" Then

 

[OreiaG]

Olá, @jcgmcs.

 

Experimente agradecer pela ajuda recebida. É rápido, demonstra boa civilidade, incentiva quem lhe ajudou a ajudá-lo novamente no futuro, e além de tudo isso, ainda é grátis.

[jcgmcs]

Boa noite!

Desculpe, mas só agora q pude voltar aqui na resolução do problema e agradeço sim ao OreiaG por ter me ajudado nessas e outras... rsrs

Tudo tá agora funcionando perfeitamente como queria...

E que Deus abençoe vcs sempre... obrigado!