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
Excel Sort-toiminto
Sorttiportti
2
395
Vastaukset
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
@KundeOlipa hieno ratkaisu.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1011145
Mitä teillä grillataan juhannuksena? Anna oma vinkkisi grilliherkkuihin
Kesä ja juhannus on grillailun kulta-aikaa. Mitä teillä grillataan juhannuksena? Anna oma vinkkisi grilliherkkuihin. Ka40860- 101841
Taas puukotus yläristillä!
Tänään taas puukotettu hengiltä ihminen Kuopiontien läheisyydessä yläristillä! Nyt näitä alkaa olla viikoittain!37814Älä itke rakas.
Tunnen sun kyyneleet silmissäni. Kaikki tulee menemään hyvin. Loppu häämöttää jo...56688Ihana juhannusperinne
Lähdemme aina juhannuksena aivan hirveässä kännissä kiikkerällä veneellä pieliselle! Se on hauskaa ja jännittävää puuhaa44687- 32570
Mistä tunnistaa suomussalmelaisen kassajonossa
Terveiset täältä Kuopiosta! Olen aikoinaan Suomussalmelta lähtenyt maailmalle ja muutaman mutkan kautta päätynyt savon s53569Olen päättänyt tappaa itseni tämän vuoden puolella
Minulla ei ole oikeastaan mitään hävittävää. Elämäni on surkeaa ja tunnen ihmisten tuijotukset ja supinat. Ne nauravat r56515- 49478