Vídeo recomendado
https://youtu.be/diWPPPhW-9E

UserForm Filtrar vários valores

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
leandropotter2019
Colaborador
Colaborador
Mensagens: 25
Registrado em: Seg Jun 03, 2019 11:22 am

Re: UserForm Filtrar vários valores

Mensagem por leandropotter2019 »

Reinaldo escreveu: Seg Jul 15, 2019 8:42 pm Altere a definição de dataini e datafin para string

Código: Selecionar todos

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

data_ini = Format(TextBox1.Value, "mm/dd/yyyy")
data_fin = Format(TextBox2.Value, "mm/dd/yyyy")
If ComboBox1.Value = "" Then
    Fornec = "*"
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
Boa Tarde Reinaldo!

Você consegue me ajudar de novo?
Preciso de uma variavel que contem um numero(1,2,3,4), se eu altero o nome do fornecedor para numeros, filtra quando tenho escolhido um numero no textBob do fornecedor, mas se eu deixo vaziu o textBox do fornecedor, ele não filtra nada, precisava filtrar todos neste caso...

Desde Já Muito obrigado...


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder