Este fórum está sendo desativado

[vilc]

tenho uma tabela com vários nomes, e na célula B4 digito o nome do cliente e faz o filtro normalmente.
consegui atraves do codigo abaixo.
como faço que para quando não achar o cliente ele me dar a Mensagem de cliente não encontrado


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$B$4" Then
If Target.Value <> "" Then
ActiveSheet.Range("$B$7:$C$7").AutoFilter Field:=2, Criteria1:="=" & Target.Value & "*", _
Operator:=xlAnd


Else


ActiveSheet.Range("$B$7:$C$7").AutoFilter Field:=2


End If
End If
Application.EnableEvents = True


End Sub

[osvaldomp]

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$B$4" Then Exit Sub
  Me.AutoFilterMode = False
  If Target.Value = "" Then Exit Sub
  If Application.CountIf([C:C], Target.Value & "*") = 0 Then MsgBox "CLIENTE NÃO ENCONTRADO": Exit Sub
   Me.Range("$B$7:$C$7").AutoFilter Field:=2, Criteria1:="=" & Target.Value & "*", _
    Operator:=xlAnd
End Sub

dica - desnecessário e desaconselhável o uso de Application.EnableEvents = False/True neste código (somente para filtrar)

[vilc]

funcionou perfeito amigo, e se eu quisesse colocar esse código num botão como ficaria...

[vilc]

e depois da mensagem apagar o conteúdo da célula B4....desde já agradeço

[osvaldomp]

... e se eu quisesse colocar esse código num botão como ficaria...

Um código colocado em um botão não vai funcionar (e ainda o tamanho do botão terá que ser grandão pra receber o código ... )
Mas ... se você quiser pode colocar o código abaixo em um botão, porém coloque-o também em um módulo comum (Módulo1, Módulo2, ...) e vincule-o a um botão (pode ser o mesmo botão grandão em que você quer colocar o código) ?

Código: Selecionar todos

Sub AplicaFiltro()
 ActiveSheet.AutoFilterMode = False
 If [B4] = "" Then Exit Sub
 If Application.CountIf([C:C], [B4] & "*") = 0 Then MsgBox "CLIENTE NÃO ENCONTRADO": [B4] = "": Exit Sub
  ActiveSheet.Range("$B$7:$C$7").AutoFilter Field:=2, Criteria1:="=" & [B4] & "*", _
   Operator:=xlAnd
End Sub

[vilc]

boa tarde amigo, muito obrigado funcionou perfeito....