VBA ongelma

Excel is fun

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

2

346

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Mikä on kaivattusi etunimi?

      Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.
      Ikävä
      139
      2679
    2. En kestä katsoa

      Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois
      Ikävä
      109
      1524
    3. Anna minulle anteeksi

      Anna minulle anteeksi. Minä pyydän.
      Ikävä
      137
      1377
    4. Peräti 95 % persujen kannattajista rasisteja

      Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää
      Maailman menoa
      356
      1305
    5. Kun viimeksi kohtasitte/näitte

      Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
      Ikävä
      108
      1218
    6. Olet kyllä vaarallisen himokas

      Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
      Ikävä
      99
      1105
    7. Anna vielä vähän vihreää valoa

      Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet
      Ikävä
      14
      815
    8. On minulla suunitelma

      Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s
      Ikävä
      47
      800
    9. Palstan ylivoimaisesti suosituin keskustelunaihe

      Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks
      Luterilaisuus
      252
      759
    10. 55
      744
    Aihe