Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Filtro retornando v...
 
Notifications
Clear all

Filtro retornando vazio

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
1,137 Visualizações
RSS
 jotaSilva
(@jotasilva)
Posts: 0
New Member
Topic starter
 

como posso fazer pro filtro me retornar quando estivar vazio

Dim curValor, teste As String
        curValor = InputBox("Informe o valor", "Informar Valor")
        curValor = Format(curValor, "####.00")
        Debug.Print curValor
        
        Rows("1:1").Select
        Selection.AutoFilter
        Range("H7").Select
        ActiveSheet.Range("$A$1:$H$5").AutoFilter field:=7, Criteria1:=curValor, Operator:=xlAnd
         
        if...... then
          msgbox "vazio"
        end ifi
tesste.xls
 
Postado : 07/07/2014 9:41 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja como em:
http://www.globaliconnect.com/excel/ind ... Itemid=475

Att

 
Postado : 07/07/2014 12:05 pm
 jotaSilva
(@jotasilva)
Posts: 0
New Member
Topic starter
 

Boa tarde.

Meu problema esta apos o filtro, o conteudo e muito bom, mas nao sei como usar pra minha necessidade "alexandrevba"
se puder da uma luz...

 
Postado : 07/07/2014 12:52 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Em sua rotina adicione as Variáveis:

Dim rng2 As Range
Dim sNulos

Apos a instrução de filtro:
ActiveSheet.Range("$A$1:$H$5").AutoFilter ......., adicione :

    'Verificar Nulo
    Set rng2 = ActiveSheet.AutoFilter.Range
    
    sNulos = rng2.Columns(7).SpecialCells(xlCellTypeVisible).Count - 1
    If sNulos = 0 Then
        MsgBox "Nenhuma Coincidencia encontrada"
        Exit Sub
    End If

Lembrando que está verificando pela Coluna 7 (Field:=7).

[]s

 
Postado : 07/07/2014 1:43 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico