Autofiltr tworzony w makrze????
Mam nastepujacy proble:
Stworzylem sobie makro ktore tworzy mi autofiltr niestandardowy uzywajace jako kryterium wartosci wybieranej w Comboboksie. Nastepnie kopiuje ono te wartosc do textboksa i tworzy autofiltr niestadardowy.
I tu pojawia sie problem, bo po wykonaniu makra autofiltr pozostaje w pozycji zwinietej .
Na pewno wartosc z komboboksa jest przepisywana do textboxa i na pewno polecenie autofilt sie wykonuje nie wiem dlaczego jednak nie pokazuje zadnych danych.
Jesli w przypadku kodu(ponizej) zmieniam wartosc TextBox1 na jakas stala to wszystko gra.
moj kod to:
Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.Value
End Sub
Private Sub ComboBox2_Change()
TextBox2.Value = ComboBox2.Value
End Sub
Private Sub CommandButton1_Click()
Worksheets("Sheet1").Activate
Columns("A:A").Select
Selection.NumberFormat = "0"
Range("A5:q30006").Select
Selection.autofilter
Selection.autofilter Field:=1, Criteria1:="TextBox1.Val"
Columns("A:A").Select
Selection.NumberFormat = "yyyy/mm/dd;@"
End Sub
[/b]
Stworzylem sobie makro ktore tworzy mi autofiltr niestandardowy uzywajace jako kryterium wartosci wybieranej w Comboboksie. Nastepnie kopiuje ono te wartosc do textboksa i tworzy autofiltr niestadardowy.
I tu pojawia sie problem, bo po wykonaniu makra autofiltr pozostaje w pozycji zwinietej .
Na pewno wartosc z komboboksa jest przepisywana do textboxa i na pewno polecenie autofilt sie wykonuje nie wiem dlaczego jednak nie pokazuje zadnych danych.
Jesli w przypadku kodu(ponizej) zmieniam wartosc TextBox1 na jakas stala to wszystko gra.
moj kod to:
Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.Value
End Sub
Private Sub ComboBox2_Change()
TextBox2.Value = ComboBox2.Value
End Sub
Private Sub CommandButton1_Click()
Worksheets("Sheet1").Activate
Columns("A:A").Select
Selection.NumberFormat = "0"
Range("A5:q30006").Select
Selection.autofilter
Selection.autofilter Field:=1, Criteria1:="TextBox1.Val"
Columns("A:A").Select
Selection.NumberFormat = "yyyy/mm/dd;@"
End Sub
[/b]
Odpowiedzi: 1
Moze to jest wina mojego formatowania danych:
W pierwszek komoptrce mam date f formacie yyyy–mm–dd
W pierwszek komoptrce mam date f formacie yyyy–mm–dd
Strona 1 / 1