rivin/sarakkeen lisääminen

kaavalla?

Onkohan olemassa kaavaa, joka lisäisi rivin tai sarakkeen automaattisesti jos määrättyyn soluun tulee tietty arvo?

4

434

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • MattiJuh

      Olisiko tähän kysymykseen kenelläkään vastausta, asia myös minulla ajankohtainen?

      • Eevalena

        Onko liian haasteellinne pähkinä? Minäkin yrittänyt opinnäytetyötni varten
        ratkaisua etsiä, mutta ei ole löytynyt! Nimenomaan ko. solun alapuolelle t uo lisärvi pitäisi saada? Voiko kukaan ystävllisesti auttaa?

    • kunde

      tosi haasteellinen ;-)

      ko taulukon moduuliin...
      tsekkaa nyt solua B5 ja sen arvoa 1, muuta solu ja arvot sopivaksi
      koodissa hipsattuna myös rivin yläpuolelle lisäys sekä sarakkeiden lisäys vasemmalle ja oikealle.. Hipsuja muuttelemalla toimii siis joka suuntaan

      Private Sub Worksheet_Change(ByVal Target As Range)
      On Error GoTo Virhe
      Application.EnableEvents = False
      If Not Intersect(Target, Range("B5")) Is Nothing Then
      If Target = 1 Then
      'lisää rivin yläpuolelle
      ' Target.EntireRow.Insert
      ' 'lisää rivin alapuolelle
      Target.Offset(1).EntireRow.Insert
      'lisää sarakkeen vasemmalle
      ' Target.EntireColumn.Insert
      ' 'lisää sarakkeen oikealle
      ' Target.EntireColumn.Offset(0, 1).Insert

      End If
      End If
      Virhe:
      Application.EnableEvents = True
      End Sub


      Keep EXCELing
      @Kunde

    • 16+1

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma

      Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?
      Sinkut
      322
      1832

    2. Olen melko vakuuttunut

      etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok
      Ikävä
      83
      1287

    3. Odotan sitä hetkeä

      kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh
      Ikävä
      75
      1284

    4. Leijonat Maailmanmestareita!

      Ihanaa Leijonat, ihanaa!!!
      Maailman menoa
      134
      1157

    5. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      80
      967

    6. Minkälaisessa asennossa

      Haluaisit kaivattusi kanssa olla?
      Ikävä
      85
      891

    7. Sinä siellä lähistöllä

      Tahtoisin tutustua paremmin 💫
      Ikävä
      48
      843

    8. 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
      118
      814

    9. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      48
      790

    10. Sitä saattaa vähän hölmöillä

      rakkauspäissään, jos tunteita on enemmän kuin osaa käsitellä. Alkuhölmöilyt on söpöä ja sallittavaa.
      Ikävä
      60
      746
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt