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

226

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Eli persujen rääkyminen Marinin hallituksen velanotosta oli sitä itseään

      "Valtiovarainministeriön mukaan Marinin hallitus lisäsi valtion pysyviä menoja 3 miljardia eikä 11 miljardia euroa." El
      Maailman menoa
      74
      6354

    2. MTV3 - Auerin poika todistaa videolla, miten Anneli pahoinpiteli lapsia!

      Kello 10.04 – Ainakin kerran viikossa se löi. Löi muitakin sisaruksia, mutta ei isosiskoa. Nuorinta siskoa en ole nähny
      Henkirikokset
      41
      5428

    3. Orpon hallitus paskoi kaikki hommat

      ja "yllätäen" ilmestyi raportti Marinin hallituksen tuhlailusta, raportti tuli kuin TILAUKSESTA.
      Maailman menoa
      62
      4279

    4. NO NIIN! Nyt on sitten prinsessa Sannan sädekehä lopullisesti rikottu

      narsistia ei kannata enää kuin ne fanaattisimmat kulttilaiset, jotka ovat myös sitä Suomen heikkoälyisintä sakkia. Kun
      Maailman menoa
      74
      4151

    5. Kansa haluaa Marinin hallituksen takaisin ja Orpon pois

      Suomen kansa on nyt ilmoittanut millaisen hallituksen Suomi tarvitsee. "Suomalaisten suosikki seuraavaksi hallituspohja
      Maailman menoa
      67
      3901

    6. Mikä piirre kaivatussa on sinulle se juttu?

      Tunnetko kaivattuasi vai onko hän haavekuva, jota et edes tunne? Joskus tää asia ei ole niin selvää.
      Ikävä
      76
      1237

    7. Tylsille treffeille

      Hiljaisen ukon kans nuotiolle?
      Tunteet
      328
      1105

    8. Anteeksi kaikesta...

      Olin tosi hölmö...
      Ikävä
      60
      1070

    9. Onko kaivattusi muuttunut sinä aikana

      Kun olet hänet tuntenut? Jos, mihin suuntaan? Mistä epäilet muuttumisen johtuneen?
      Ikävä
      32
      880

    10. Toivotko, että

      Toivotko, että hän yrittäisi jutella sinulle? Vai toivotko, että itse voisit mennä juttelemaan?
      Ikävä
      62
      831
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt