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
359
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
Useita puukotettu Tampereella
Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht2725079- 514027
Kuka rääkkää eläimiä Puolangalla?
Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii933579- 502699
Meneeköhän sulla
oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua461853- 191777
- 971650
Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘971468- 711085
PS uusimman gallupin rakettimainen nousija
https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden1461063