Rivin lajittelu makrolla alueella N9:X9

pööö

'

'
ActiveCell.Select
Selection.Resize(numRows 1, numColumns 18).Select
Selection.Sort Key1:=Range("N9"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Range("N12").Select
End Sub

Käyttäjä valitsee itse sarakkeesta N haluamansa rivinumeron, jonka siis haluaa lajitella nousevaan järjestykseen. Makron pitää laska tuosta valinnasta esim. 13 solua oikealle ja sitten lajitelle se alue nousevaan järjestykseen, 1, 2, 3, 4, 5, jne.

Ilmeisesti tuo Range("N9")- kohta mättää
Selection.Sort Key1:=Range("N9")

Miten pitäisi muokata?

1

254

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • vikana-eli Sort Key1:=ActiveCell jolloin aina lajitellaan aktiivisen solun mukaan
      alla hieman siistittynä(ilman virhetarkasteluja ja N-sarake testiä) sama koodin pätkä

      Sub testi()
      Const NumColums As Integer = 14 '(Makron pitää laska tuosta valinnasta esim. 13 solua oikealle )

      With ActiveCell.Resize(1, NumColums)
      .Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
      DataOption1:=xlSortNormal
      End With
      ActiveCell.Select
      End Sub

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

    Luetuimmat keskustelut

    1. Päivän Riikka: polttoöljyn hinta räjähti

      Näyttää tuo putinismi ilmenevän persuissa myös Suomen yrittäjien kampittamisena. Polttoöljy on se katalyytti, joka pitää
      Maailman menoa
      36
      2161
    2. Mökkejä ostellaan nyt ihan hulluna!

      Tyypilliset lainamäärät on yli 500 000€ mökkejä ostellessa eli erityisesti tuollaiset miljoonamökit on nyt suomalaisten
      Maailman menoa
      64
      2002
    3. Helsingin yllä valopalloja

      https://www.iltalehti.fi/kotimaa/a/1508be00-28c9-4156-83dc-0be5e7aa3066 "Helsingin taivaalla lensi lauantaina puolen yön
      Sinkut
      121
      1930
    4. HÄLYYTYS!!

      Ukraina se hyökkää jo Suomen maaperälle. https://www.iltalehti.fi/kotimaa/a/645b83ce-e074-4f00-8b99-245d01b38a36
      NATO
      387
      1663
    5. Kovasti on hävittäjiä ilmassa. Nytkö se alkoi?

      Onko nyt sota ?? `Vai harjoituksiako vain? Hävittäjät pörrää kovasti.
      Kouvola
      103
      1631
    6. Helsingin yllä lensi yöllä jotain outoa puolen yön aikaan valopalloja

      Poliisi on saanut tapauksesta yhden havaintoilmoituksen. Valopalloja oli noin parikymmentä ILtalehdessä on video tapah
      Maailman menoa
      124
      1464
    7. Millainen on naisellinen nainen

      Nyt kun taas mennään keikkuen kesään, niin millainen nainen on naisellinen? Pukeutuminen, olemus, puhetapa, jne. Vilma n
      Sinkut
      182
      1082
    8. Raamatullinen kaste

      Seurakunnassamme kastettiin mm eräs muslimi, joka oli tullut uskoon. Hän oli ollut Suomessa viitisen vuotta. Hän oli lu
      Kaste
      53
      967
    9. Mitkä asiat kaivatun ajattelussa

      Ihmetyttävät? Mikä on tullut yllätyksenä?
      Ikävä
      73
      895
    10. Mitkä olisivat kolme tärkeintä

      vihjettä kaivatustasi?
      Ikävä
      27
      889
    Aihe