Tomás Vásquez Fórum

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...