rivin/sarakkeen lisääminen

kaavalla?

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

4

383

    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?


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

    Luetuimmat keskustelut

    1. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      117
      10282
    2. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      52
      5020
    3. Taas ryssittiin oikein kunnolla

      r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html
      NATO
      42
      2201
    4. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      105
      2058
    5. Missä olet ollut tänään kaivattuni?

      Ikävä sai yliotteen ❤️ En nähnyt sua tänään söpö mies
      Ikävä
      26
      1914
    6. Vanha Suola janottaa Iivarilla

      Vanha suola janottaa Siikalatvan kunnanjohtaja Pekka Iivaria. Mies kiertää Kemijärven kyläjuhlia ja kulttuuritapahtumia
      Kemijärvi
      13
      1591
    7. Valtimon Haapajärvellä paatti mäni nurin

      Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,
      Nurmes
      41
      1392
    8. Känniläiset veneessä?

      Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v
      Nurmes
      31
      991
    9. Tiedän kuka sinä noista olet

      Lucky for you, olen rakastunut sinuun joten en reagoi negatiivisesti. Voit kertoa kavereillesi että kyl vaan, rakkautta
      Ikävä
      24
      983
    10. Rakastuminenhan on psykoosi

      Ei ihme että olen täysin vailla järkeä sen asian suhteen. Eipä olis aikoinaan arvannut, että tossa se tyyppi menee, jonk
      Ikävä
      54
      967
    Aihe