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

224

    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. Mieleni harhailee sinussa

      Uskon että tykkäät minusta. On vain yksi elämä. Silti jään paikoilleni ja odotan että jokin muuttuu. Menin palasiksi, ei
      Tunteet
      21
      5794
    2. Taposta murhaksi

      Mitä tästä tapauksesta tiedetään?
      Kajaani
      60
      1957
    3. Grilli lopettaa?

      Pitääkö huhu paikkaansa että grilli lopettaa lähiaikoina?
      Suomussalmi
      25
      1389
    4. Joko Martinalla uusi aviomies hakusessa

      Onko jo Raya sovellukseen laitettu uusi vetoomus vetämään... ja mistähän maasta mahtaa olla seuraava sulhasehdokas. Suom
      Kotimaiset julkkisjuorut
      228
      1202
    5. Pitääkö luovuttaa?

      Sano nyt edes jotain 👾
      Ikävä
      74
      1115
    6. Mitä teet nainen

      Jos saat tietää että mies on elänyt yksinäistä ja rauhallista elämää sinua kaivaten, ei ole ollut muiden naisten kanssa,
      Ikävä
      53
      1077
    7. Missä olitte kun oli teidän tähän saakka kaunein yhteinen hetki?

      Me olimme rannalla erään kiven päällä❤️
      Ikävä
      66
      1049
    8. Pitkäaikaistyöttömyys Suomessa harvinaisen paha

      Karut työttömyysluvut, korkein luku yli neljännesvuosisataan.
      Maailman menoa
      143
      1036
    9. Olet nuorempi nainen aivan ihana

      Tykkään susta ihan valtavasti ❤️❤️
      Ikävä
      50
      1022
    10. Mitä vastaisit

      Jos kysyisin, että lähdettäisiinkö lenkille yhdessä? Vain sinä ja minä, kaksin? Miehelle
      Ikävä
      58
      985
    Aihe