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

199

    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. Poliisi tutkii Ähtärin salaiset asiat!

      Ylen uutisen mukaan tuntematon määrä Ähtärin poliitikkoja pääsee mukaan esitutkintaan ja mahdollisesti syyteharkintaan.
      Ähtäri
      97
      1707
    2. Yritätkö päästä

      Yli kaivatustasi?
      Ikävä
      154
      1691
    3. Vihjelista

      Kerro joku vihje, jos vielä kinostaa enemmän kuin kiviä 🪨🪵 ja haluat yhteydenottoa 👇
      Ikävä
      114
      1462
    4. Mitä haluaisit sanoa

      Kaivatullesi NYT Part ll. Kenenkään peukku ei kestä tuota edellistä ketjua.
      Ikävä
      91
      1387
    5. Saksan demareille rökäletappio - oikeistolle taas rökälevoitto

      AfD oli vaalivoittaja ja vaikka varmaan jää oppositioon, niin pakko on ottaa huomioon. Ruotsissakaan SD ei istu hallitu
      Maailman menoa
      183
      1116
    6. Nainen ihanainen, kaunistut vuosi vuodelta

      Eli ei vuosien kertymisestä ainakaan sinun kohdallasi kannata murehtia. Minua huolettaa se, miten paljon menetän joka vu
      Ikävä
      33
      986
    7. En luovuta

      Sinä olet nainen elämäni ainoa oikea. Sen mitä ymmärrän kaiken koetuksen keskellä, kertoo vain tarinaa kuinka koko maail
      Ikävä
      59
      898
    8. Yritin alkaa nukkumaan

      Mutta ei tule uni. Jäin miettimään olikohan ne rakkaudelliset vastaukset juuri sinulta ja mulle osoitettuja... Olisi une
      Ikävä
      46
      846
    9. Sinä ihana, olet niin joka päivä mielessä

      rakkaana pidän ja hellittelen nimelläsi kuin mikäkin hömelö, yksikseni juttelen sinulle, ja välillä naurahdan kun vain k
      Ikävä
      39
      819
    10. Tutkija: Nato ei välttämättä suojaa Suomea

      Naton pelote on rapautumassa eikä sen sotilaallinen voima välttämättä ole Suomen tukena – professori vaatii poliitikkoja
      NATO
      153
      814
    Aihe