Excel Sort-toiminto

Sorttiportti

Hei, olen motellissa töissä ja olen tekemässä Exceliin varausjärjestelmää. Kysyisinkin nyt miten saisin päivämäärät menemään automaattisesti järjestykseen aina kun lisään uuden varauksen.

Esimerkiksi jos minulla on varauksessa

17.6. Matti Mäkelä
18.6. Pia Pokka

jonka jälkeen saan varauksen

16.6. Niina Nenä

miten saan Niinan varauksen menemään listan ensimmäiseksi automaattisesti? Tiedän Excelin Sort-toiminnosta mutta se on vaivalloinen koska se pitää tehdä joka varauksen jälkeen uudestaan. Osaako joku auttaa? Pomoni olisi minusta niin ylpeä :D:D Kiitos jo etukäteen

2

263

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • tiedot pitää olla 2 eri sarakkeessa, koska tekstilajittelu hankalampaa numeroill eli esim Csarake pvm ja D -sarake asiakas
      oletuksena tiedot alkaa C1
      jos tiedot alkaa muualta muuta osoitteita

      toimii nyt näin
      syötetään tieto C-sarakkeeseen ja jos D sarakkeesta puuttuu vastaava tieto siirtyy siihen. Jos D sarakkeessa oli tieto lajittelee
      ja päinvastoin D sarakkeen kanssa

      taulukon moduuliin...

      Option Explicit

      Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Target, Columns("C:D")) Is Nothing Then
      If Not Intersect(Target, Columns("C:C")) Is Nothing Then
      If Target.Offset(0, 1) = "" Then
      Target.Offset(0, 1).Select
      GoTo loppu
      End If
      Else
      If Target.Offset(0, -1) = "" Then
      Target.Offset(0, -1).Select
      GoTo loppu
      End If
      End If
      Columns("C:D").Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal
      End If
      loppu:
      End Sub

      Keep EXCELing
      @Kunde

    • Olipa hieno ratkaisu.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Mikä on sun mielestä suurin kusetus maailmassa?

      Mikä on sun mielestä suurin kusetus maailmassa?
      Ikävä
      157
      4658
    2. rakastan jotakin

      en uskalla sanoa sitä täällä ääneen
      Ikävä
      11
      4138
    3. Vedonlyöntiä .

      Olen valmis lyömään ison vedon , että homma kaatuu . Jos kerta Sivonen ei lähde mukaan , niin ei tuoho usko kukaan muuka
      Ähtäri
      46
      3657
    4. Mikä on pahinta, mitä kaivatullesi

      pelkäät tapahtuvan? Jos kuolemaa, vakavia sairauksia yms. ei lasketa?
      Ikävä
      103
      2895
    5. Turvaan tulleet lähettävät omia lapsiaan vaaraan - hullua

      MOT-ohjelman jakso ”Loma vaihtui kahleisiin” kertoi, kuinka Suomessa ja muualla Euroopassa asuvat somaliperheet lähettäv
      Maailman menoa
      78
      2669
    6. Hei Antti. Minähän varoitin jo 2 v sitten, ettei sinusta tule pääministeriä, vaikka kuinka

      voittaisit vaalit. Vasurit ovat aina puukottaneet toisiaan selkään, eivät koskaan edestäpäin. Marinistit varsinkin IL t
      6
      2018
    7. Minkä tunteen tunnet

      juuri nyt? ap kiitollisuuden.
      Tunteet
      44
      1455
    8. Uusnatsien ilkivalta Joensuussa jatkuu.

      Saavat mellastaa persujen suojissa miten haluavat. Särkevät ja tuhoavat toisten omaisuutta, tähän on johtanut persujen m
      Joensuu
      12
      1288
    9. Minkä kouluarvosanan (4-10) annat Thank God, sä tulit! sarjalle?

      Katsoitko Thank God, sä tulit!? Uusi viihdeohjelma ei ollut kaikkien makuun, mutta jotkut tykkäsivät. Minkä kouluarvos
      Tv-sarjat
      61
      1211
    10. Päivi Räsänen sai kutsun kongressiin todistajaksi.

      Pystyykö Päivi pysymään totuudessa ja kertomaan kongressille, että raamattu ei ole lakikirja jota pitäisi noudattaa poli
      Maailman menoa
      404
      1202
    Aihe