Notifications
Clear all

Filtro entre datas

2 Posts
2 Usuários
0 Likes
608 Visualizações
(@osmar-junior)
Posts: 1
New Member
Topic starter
 
Private Sub Btn_Filtrar_Click()

Dim DataInicial As Date, DataFinal As Date, DataVencimento As Date

'DataInicial = Text_Data_Inicial.Value
'DataFinal = Text_Data_Final.Value
DataVencimento = Cb_Vencimento.Value

Plan5.Range("A5:K5").Clear

Plan5.Range("D5").Value = Format(DataVencimento, "mm/dd/yyyy")
Plan5.Range("E5").Value = ComboBoxProduto.Value
Plan5.Range("F5").Value = ComboBoxPlaca.Value
'Plan5.Range("C5").Value = ">=" & Format(DataInicial, "dd/mm/yyyy")
'Plan5.Range("K5").Value = "<=" & Format(DataFinal, "dd/mm/yyyy")

Lista.RowSource = IntervaloDados

Label24.Caption = " Total de Registros: " & Lista.ListCount - 1

Text_Registro.Value = Lista.ListCount - 1

Call total

End Sub

 

Eu quero que nas textbox a data Inicial e a data final já estejam informadas ao abrir o formulario e que ao informar o vencimento não dê erro de celula vazia

espero ter explicado direito

obrigado

____________________________________________

Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.

 
Postado : 21/06/2023 11:05 pm
nelsonst
(@nelsonst)
Posts: 38
Eminent Member
 

Não sei se é isso que vc quer.. mas tae...

Private Sub UserForm_Initialize()

    ' Define valores padrões para as datas iniciais e finais ao inicializar o formulário
    Text_Data_Inicial.Value = Format(Date, "mm/dd/yyyy") ' exemplo: data atual
    Text_Data_Final.Value = Format(DateAdd("m", 1, Date), "mm/dd/yyyy") ' exemplo: data atual + 1 mês
    
End Sub

Private Sub Btn_Filtrar_Click()

    Dim DataInicial As Date, DataFinal As Date, DataVencimento As Date
    
    ' DataInicial = Text_Data_Inicial.Value
    ' DataFinal = Text_Data_Final.Value
    ' Verifica se Cb_Vencimento tem um valor antes de atribuí-lo à DataVencimento
    If Cb_Vencimento.Value <> "" Then
        DataVencimento = Cb_Vencimento.Value
    Else
        MsgBox "Por favor, selecione um vencimento válido."
        Exit Sub
    End If

    Plan5.Range("A5:K5").Clear

    Plan5.Range("D5").Value = Format(DataVencimento, "mm/dd/yyyy")
    Plan5.Range("E5").Value = ComboBoxProduto.Value
    Plan5.Range("F5").Value = ComboBoxPlaca.Value
    ' Plan5.Range("C5").Value = ">=" & Format(DataInicial, "dd/mm/yyyy")
    ' Plan5.Range("K5").Value = "<=" & Format(DataFinal, "dd/mm/yyyy")

    Lista.RowSource = IntervaloDados

    Label24.Caption = " Total de Registros: " & Lista.ListCount - 1

    Text_Registro.Value = Lista.ListCount - 1

    Call total

End Sub
 
Postado : 01/08/2023 4:30 pm