Página 1 de 1

Filtro Avançado com VBA

Enviado: Qui Ago 15, 2019 10:26 am
por leandropotter2019
Bom dia!

Na planilha em anexo, gostaria de filtrar os valores de data e fornecedor, e quando eu deixar vaziu o textBox ou ComboBox, que filtrasse tudo, porém de deixo vaziu, nao filtra nada. Quando deixo as datas, mas nao coloco o fornecedor (que será um valor numerico) nao filtra nada, somente se preencher tudo no UserForm..

Desde Já muito obrigado

Re: Filtro Avançado com VBA

Enviado: Qui Ago 15, 2019 12:40 pm
por Reinaldo
Uma possibilidade:

Código: Selecionar todos

Private Sub CommandButton1_Click()
Dim data_ini As String
Dim data_fin As String
Dim Fornec As String

If TextBox1.Text <> "" Then
data_ini = Format(TextBox1, "mm/dd/yyyy")
Else
data_ini = Format("01/01/1900", "mm/dd/yyyy")
End If

If TextBox1.Text <> "" Then
data_fin = Format(TextBox2, "mm/dd/yyyy")
Else
data_fin = Format("12/31/2099", "mm/dd/yyyy")
End If

If ComboBox1.Value = "" Then
    Fornec = ">0"
Else
    Fornec = ComboBox1.Value
End If
ActiveSheet.Range("A4:D5000").AutoFilter Field:=1, Criteria1:= _
        ">=" & data_ini, Operator:=xlAnd, Criteria2:="<=" & data_fin
ActiveSheet.Range("A4:D5000").AutoFilter Field:=3, Criteria1:=Fornec

TextBox4 = Range("G1").Value

Range("H1").Value = Format(data_ini, "dd/mm/yyyy")
Range("I1").Value = Format(data_fin, "dd/mm/yyyy")

End Sub

Re: Filtro Avançado com VBA - RESOLVIDO

Enviado: Qui Ago 15, 2019 2:31 pm
por leandropotter2019
Boa Tarde!

Deu certo, até tinha descoberto um jeito para a variavel de numero, e da data pense em algo parecido, mas nao tinha conseguido.

Muito obrigado