Excel Código VBA para MsgBox

[Barley Wine]

Caros , boa tarde

Ao copiar e colar informações na planilha , gostaria que a coluna B me retornasse , via MsgBox , a informação que há um Fornecedor Específico para realizar um outro tipo de procedimento para ele .

Exemplo : 

Na coluna B ( Fornecedor ) : 003130-01-XXXXXX       

MsgBox : " Não colocar o Fornecedor 003130-01-XXXXXX em Borderô "

[Patropi]

@Barley Wine ,

 

Seja bem-vindo!

 

Para facilitar, anexe um arquivo Excel com alguns dados e explicação.

 

[]s

[Barley Wine]

16 horas atrás, Patropi disse:

@Barley Wine ,

 

Seja bem-vindo!

 

Para facilitar, anexe um arquivo Excel com alguns dados e explicação.

 

[]s

Bom dia Patropi ,

Segue anexo...desde já agradeço a força .

4ª Semana - Rascunho.zip

[Visitante]

 

Experimente o código abaixo no lugar do existente.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Dim f As Range
  For Each f In Selection
   If f.Column = 2 Then
    Select Case f.Value
     Case "004553-01-MANOEL FERREIRA DE O", "004492-01-TECSIE - TECNOLOGIA", _
       "004437-01-ND ENTULHOS", "004336-01-GUETTO CHIC DJ SOM"
      f.Interior.ColorIndex = 6
      MsgBox "* NÃO GERAR BORDERÔ * para :" & Chr(13) & f.Value & Chr(13) & _
       "Faça um DOC manualmente no Banco em nome do mesmo.", vbInformation
    End Select
   End If
  Next f
End Sub

 

[Barley Wine]

@osvaldomp

1 hora atrás, osvaldomp disse:

 

Experimente o código abaixo no lugar do existente.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Dim f As Range
  For Each f In Selection
   If f.Column = 2 Then
    Select Case f.Value
     Case "004553-01-MANOEL FERREIRA DE O", "004492-01-TECSIE - TECNOLOGIA", _
       "004437-01-ND ENTULHOS", "004336-01-GUETTO CHIC DJ SOM"
      f.Interior.ColorIndex = 6
      MsgBox "* NÃO GERAR BORDERÔ * para :" & Chr(13) & f.Value & Chr(13) & _
       "Faça um DOC manualmente no Banco em nome do mesmo.", vbInformation
    End Select
   End If
  Next f
End Sub

 

Shooooow , Osvaldomp

Perfeito !!!