Este fórum está sendo desativado

[GENECI]

Boa tarde!

Solicito a sua ajuda, conforme o arquivo anexo.

Grato - Geneci.

[osvaldomp]

Experimente:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Column <> 4 Or Target.Value = "" Then Exit Sub
 Application.EnableEvents = False
 If Cells(Target.Row, 2) = "N" Then
  Target.Value = 876 & Target.Value & 967
 Else: Target.Value = "Glh" & Target.Value & "oPr"
 End If
 Application.EnableEvents = True
End Sub

[GENECI]

Bom dia! osvaldomp
O problema foi resolvido.

Muito obrigado.