Teen userformia jossa textbox1:seen käyttäjä syöttää päivämäärän esim. 16.02.2009. Tämän jälkeen kirjataan muita tietoja esim sos.turvatunnus. Tiedot talletetaan riveittäin.
Haluaisin nyt poimia taul1:stä kaikki jotka vastaa haettua sos. turvatunnusta. Tämän jälkeen taul2:seen siirtyisi kaikki poimitut tiedot päivämäärittäin alenevasti.
Ongelma:
Käyttäjän päivämäärät ei suostu menemään alenevaan järjestykseen.
Kuka osaa auttaa ongelmassani?
Pitääkö textboxin tieto muuttaa joksikin muotoilulla jotta sorttaus onnistuu?
EXCEL is fun
VBA ongelma
Excel is fun
2
361
Vastaukset
tekstiruudun tiedot menee tekstinä soluun. Kyllähän se sorttaus pitäisi silti onnistua...
kokeile laittaa siirrossa pvm muutos seuraavasti
esim.
Sub Koe()
Dim vika As Integer
On Error Resume Next
Sheets(1).Activate
vika = Range("A65536").End(xlUp).Row 1
Range("A" & vika) = CDate(TextBox1)
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
P.S. käytä mun postaamaa HaeJASiirrä funktiota , se on kätevä tossa tapauksessa...- Excel is fun
Hei
Tuo tuntui toimivan. Sain sen ymmärtämään myös textboxin tietoa kun muuttujan avulla muutin sen as date. Sen jälkeen alkoi toimimaan myös.
Kiitos vinkistä
Excel is Fun
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1302748
Juniorivalmennus Jokereissa..
Mitä hittoa siellä seurassa oikein tapahtuu?? Tämän kauden U14 ikäluokkaan on mahdutettu kaksi päävalmentajaa. Tälle kau562207Ammuskelua taas
Keskipohjanmaa tietää kertoa että Yläpubin hujakoilla ammuskeltu lauantain vastaisena yönä.251773- 1291548
Introverttinä osastolla
Yhdellä lääkäritapaamisella hoitaja valitti lääkärille etten tee mitään muuta kuin makaan ja ulkoilen. Kävin kuitenkin s3641308- 681293
Seksikkäin asu mikä päällä olet nähnyt kaivattusi ?
Seksikkäin asu mikä yllä olet nähnyt kaivattusi ?721260- 891075
- 90999
- 129942