Pikanäppäin peräkkäisen jonon tekemiseen

Jelppi

Eli miten saa pikanäppäimillä aloitettua esim. jonon 1,2...? Eli kun excel-taulukkoon on kirjoitettu ynsimmäiseen soluu 1 ja toiseen soluun 2, niin pelkästään näppäimistöllä tehtyä esim. lukujonon 1,2,3
,4,5,6,7,8,9,10? CTRL D kokeilin, mutta se muuttaa kaikki 1,1,1,1,1,1,1,1,1,1

5

1300

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • moduuliin...

      Sub Automaattitäyttö()
      'alkusolut = solut, joissaa on sarjantekoon tarvittavat tiedot eli aktiivinen solu ja sitä edeltävä solu ylöspäin
      'voi olla myös vasemallla ,oikealla ylhäällä- pitää muuttaa offsetteja
      'ActiveCell.Offset(9, 0)) nyt 10 solun sarja alaspäin- muuta lukua tarvittaessa
      'liitä maro pikanäppäimeen TOOLS/MACRO/MACROS/OPTIONS ja liitä kirjain pikanäppäinyhdistelmaan SHIFT CTRL D
      Dim Alkusolut As Range
      Dim Täyttöalue As Range
      Set Alkusolut = Range(ActiveCell, ActiveCell.Offset(-1, 0))
      Alkusolut.Select
      Set Täyttöalue = Range(ActiveCell, ActiveCell.Offset(9, 0))
      Täyttöalue.Select
      Alkusolut.AutoFill Destination:=Täyttöalue
      End Sub

      • oikea koodi- noi select rivit oli vain testejä varten...

        Dim Alkusolut As Range
        Dim Täyttöalue As Range
        Set Alkusolut = Range(ActiveCell, ActiveCell.Offset(-1, 0))
        Set Täyttöalue = Range(ActiveCell, ActiveCell.Offset(9, 0))
        Alkusolut.AutoFill Destination:=Täyttöalue
        End Sub


      • Äkselli
        kunde kirjoitti:

        oikea koodi- noi select rivit oli vain testejä varten...

        Dim Alkusolut As Range
        Dim Täyttöalue As Range
        Set Alkusolut = Range(ActiveCell, ActiveCell.Offset(-1, 0))
        Set Täyttöalue = Range(ActiveCell, ActiveCell.Offset(9, 0))
        Alkusolut.AutoFill Destination:=Täyttöalue
        End Sub

        Täytä solut yks ja kaks -> maalaa solut -> tartu reunasta -> vedä haluamasi määrä


      • Jelppi
        Äkselli kirjoitti:

        Täytä solut yks ja kaks -> maalaa solut -> tartu reunasta -> vedä haluamasi määrä

        Hiirellä joo saa, mutta näppiksellä jos sais nopeempaa työskentelyä vielä


      • Jelppi kirjoitti:

        Hiirellä joo saa, mutta näppiksellä jos sais nopeempaa työskentelyä vielä

        mun koodihan tekee just niin kuin halusit
        SHIFT CTRL D
        ;-)


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

    Luetuimmat keskustelut

    1. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      112
      1629
    2. 105
      1175
    3. Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!

      https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro
      Maailman menoa
      138
      1071
    4. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      49
      969
    5. Keitä oli kunnanjohtajan erottajat?

      Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni
      Ilmajoki
      50
      854
    6. Miten pääsee ujon naisen pään sisään?

      Siis tosi tosi tosi ujon...
      Ikävä
      127
      853
    7. Atte Harjanne usuttaa eläkeläisvihaan

      Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v
      Maailman menoa
      240
      838
    8. Helsingin Mäntymäki muuttui Kultajuhlan jälkeen kaatopaikaksi.

      Mitä se kertoo jääkiokosta ja lätkäfaneista? Saikkua huomenna huusi fani yöllä?
      Maailman menoa
      70
      735
    9. Pridekulkue kiellettävä?

      Näin täällä suoraan vaaditaan. Perusteina mitä mielikuvituksellisimmat tarinat. No, miksi ihmeessä kukaan ei ole samalla
      Luterilaisuus
      178
      709
    10. Mä oon tyytyväinen, että ei ole enää tunteita.

      Samalla tajusin, että sun kohdalla tykkäsin enemmän niistä tunteista kuin sinusta persoonana. Halusin väkisin nähdä sinu
      Ikävä
      55
      699
    Aihe