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

401

    Vastaukset 2

    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. Mulla on ikävä sua

      Pakko se on myöntää, mulla on ikävä sua 🥺💔.. En kyllä haluaisi sitä myöntää kun tämä tilanne on niin hankala. Oon yri
      Ikävä
      35
      1028
    2. Väleistä

      Minkälaiset välit sinulla on kaivattusi kanssa?
      Ikävä
      71
      838
    3. Nainen, olet ihanin maan päällä

      Ei ole toista. Olet ihanteellinen, kaikkien mittapuitteni täyttymys. Sisäinen kauneutesi sinetöi ulkoisen ja juuri se sa
      Ikävä
      40
      680
    4. Koska tulet minulle näkyväksi

      Koska astut piilostasi esiin? Miksi pysyttelet niin kaukana? Etkö voisi tulla päättämään tämän ikävöinnin? Saisin vihdoi
      Ikävä
      40
      666
    5. Poliis. Poliisi osoitti aseella Tampereella kun mies avasi oven

      Poliisi Poliisi osoitti aseella Tampereella, kun mies avasi siviili­poliisiauton oven Mies kuvasi keski­viikkoiltana bus
      Maailman menoa
      178
      512
    6. Sano rakkaallesi

      Suorat sanat! Mikä mieltä kaihertaa!
      Ikävä
      43
      479
    7. jumala ei auta hittojakaan..

      kuka tahansa voi kirjottaa lapulle mitä vaan ja väittää että jumala olisi sen kirjoittanut... onko yksikään raamatun kir
      Sinkut
      204
      463
    8. Romanttisinta

      Mitä hän on tehnyt sinulle?
      Ikävä
      45
      450
    9. " Hae roolisi miljardien Pyhäjärveltä"?

      Perjantain 14.8. viesti TV:ssä oli hätkähdyttävän todellista kuultavaa. Tähän on tultu. Pyhäjärvi- selvitykseen, tied
      Pyhäjärvi
      56
      429
    10. Onneksi en ole riippuvainen Kuhmo Oy:stä

      Lähinnä naurattaa, kun ylipainoiset, punakat kuljetus ja muutkin yrittäjät yrittävät lohdutella itseään uuden omistajan
      Kuhmo
      6
      417
    Aihe