listbox filteren op datum

[remco0511]

Hoi,


Ik heb een listbox in mij userform gemaakt maar deze wil niet op datum selecteren.
Wie weet wat ik fout doe.

Remco

 

[cow18]

is het omdat monteur en bus comboboxes (met bijbehorende rowsource) zijn en je 2 datums textboxes of hoe moet ik de vraag zien ?

 

[remco0511]

Hoi,

Aan de linker kant kan ik het invullen en aan de rechter wil ik de ritten zien die ik op datum geselecteerd heb.
Dat is de bedoeling.

Remco

 

[pasan]

  For i = 1 To 3
 ' On Error Resume Next
    If Me("Textbox1" & i).Value <> "" Then

je wilt 3 textboxen doorlopen
in de if statement zeg je nu "Textbox11" zie je wat er gebeurt en waarom het niet werkt?
geef de 3 textboxen naam een getal mee Textbox1 en de volgende Textbox2 en dan nog Textbox3

 If Me("Textbox" & i).Value

 

[remco0511]

Hoi Pasan,

ik heb aangepast maar hij doet het nog niet.
weet niet wat ik fout doe.

Private Sub zoeken_Click()
For i = 1 To 3
' On Error Resume Next
If Me("Textbox1" & i).Value <> "" Then
If Me("Textbox2" & i).Value <> "" Then
If Me("Textbox2" & i).Value <> "" Then
With [Blad1!A1].CurrentRegion
.AutoFilter (i), Me("Textbox" & i).Value
.SpecialCells(xlCellTypeVisible).Copy [Blad1!A1]
.AutoFilter
End With
With [Blad1!A1].CurrentRegion
sq = .Value
.ClearContents
End With
ListBox1.List = sq
Me("Textbox" & i).Value = ""



End If

Next
End Sub


Remco

 

[loek010]

Hoi Remco,

Verander in eigenschappen van de Textboxen de naam van textbox1 in bv TB_01 en doe dat ook voor de 2 andere textboxen in TB_02 en TB_03

Private Sub zoeken_Click()
For i = 1 To 3
' On Error Resume Next
If Me("TB_" & Format(i, "00").Value <> "" Then
If Me("TB_" & Format(i, "00").Value <> "" Then
If Me("TB_" & Format(i, "00").Value <> "" Then
With [Blad1!A1].CurrentRegion
.AutoFilter (i), Me("TB_" & Format(i, "00").Value
.SpecialCells(xlCellTypeVisible).Copy [Blad1!A1]
.AutoFilter
End With
With [Blad1!A1].CurrentRegion
sq = .Value
.ClearContents
End With
ListBox1.List = sq
Me("TB_" & Format(i, "00").Value = ""



End If

Next
End Sub

 

[pasan]

Aan de linker kant kan ik het invullen en aan de rechter wil ik de ritten zien die ik op datum geselecteerd heb.
Dat is de bedoeling.

Dus eigenlijk wil je maar op 1 textbox zoeken, alleen die rechtse boven de Listbox

Ik heb het aangepaste bestand toegevoegd zodat je kunt vergelijken met jou eigen bestand, er waren meerdere foute verwijzingen jou blad heet klantbestand en je verwijst naar [Blad1!A1]
Er is helemaal geen Blad1 in jou bestand

Private Sub zoeken_Click()
 ' On Error Resume Next
    If TextBox1.Value <> "" Then
      With [klantbestand!A1].CurrentRegion
        .AutoFilter (1), TextBox1.Value
        .SpecialCells(xlCellTypeVisible).Copy [klantbestand!AA1]
        .AutoFilter
      End With
      With [klantbestand!AA1].CurrentRegion
        sq = .Value
        .ClearContents
      End With
        ListBox1.List = sq
        TextBox1.Value = ""
    End If

End Sub

 

[HSV]

Ik denk dat het met CDate betere gaat.
De (1) niet tussen haken en Specialcells is overbodig.

.AutoFilter 1, CDate(TextBox1.Value)
        .Copy [klantbestand!AA1]

 

[remco0511]

Hoi Pasan en HSV,

Ik heb de twee mogelijkheden geprobeerd (1) of 1 deze doe het alle twee goed maar wat is het verschil?
En dan heb ik nog een vraag je zo het ook mogelijk zijn om na het invullen van een nieuwe regel te bestand te sorteren van oud naar nieuw.


Remco

 

[AD1957]

Zo?

Sub Sorteren()

Dim i As Integer
 i = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
 
 ActiveSheet.Range("A2:F" & i).Select
 
   ActiveWorkbook.Worksheets("klantbestand").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("klantbestand").Sort.SortFields.Add2 Key:=Range( _
        "A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("klantbestand").Sort
        .SetRange Range("A2:F" & i)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[HSV]

Of:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1).Resize(, 6)) Is Nothing Then
 If Application.CountA(Cells(Target.Row, 1).Resize(, 6)) = 6 Then Cells(1).CurrentRegion.Sort Range("A1"), , , , , , , 1
End If
End Sub

 

[remco0511]

Hoi Harry,

Ik heb de code er ingeplakt maar hij filtert wel maar de nieuwe doe hij niet.Nu wil ik nog een datum kolom er bij maken ( dag) ma, di, enz in de sheet maken maar krijgt het niet voor elkaar.

Remco

 

[AD1957]

Zo? , zelf maar eens goed kijken wat er is aangepast

 

[remco0511]

Hoi,


Ik heb gevonden dat het zo simpel was had ik niet gedacht.

Remco