Kontrollin katoaminen

KA-OS

Taulukkoon syätetyistä ja niistä lasketuista arvoista piirretään kuvaajia. Jotta nämä eivät sekoaisi, ei ensimmäiseen ja viimeiseen riviin saa koskea.

Ohessa on kaksi nauhoitettua makroa. Ensimmäisen on taroitus lisätä taulukkoon uusi toiseksi viimeinen rivi ja kopioida sille tarpeelliset kaavat. Toinen poistaa tuon rivin.

Sub Macro1()
Rows("33:33").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
' toteutus loppuu tähän
Range("K32:T32").Select
Selection.AutoFill Destination:=Range("K32:T33"), Type:=xlFillDefault
Range("K32:T33").Select
End Sub

Makro tekee uuden rivin, mutta ei mitään sen jälkeen. Kaikki solut, joiden arvon laskentaan käytetään jotain makrofunktiota saavat arvokseen #VALUE! Ei virheilmoituksia, kaikki vain jatkuu kuin muita ohjelmarivejä ei olisi ollutkaan. Solujen arvot on laskettava solu kerrallaan painamalla enteriä kaavarivillä.

Onko mitään vinkkiä, mistä tämä voi johtua?

1

67

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • KA-OS

      Taisin keksiä ratkaisun.

      Sub Macro1()
      Range("Viimeinen").Select

      Application.ScreenUpdating = False

      Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      ' Nyt myös loput rivit suoritetaan, eikä kaavat lakkaa toimimasta
      Range("K2:T2").Select
      Selection.Copy
      Cells(Range("Viimeinen").Row - 1, 11).PasteSpecial

      Application.ScreenUpdating = True

      End Sub

      Samalla tavalla korjaantui sen rivin poistavan makron toiminta.

      Korjasin makroa niin, että nyt rivejä voi lisätä mielin määrin. "Viimeinen" on taulukon viimeiselle riville antamanin nimi.

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

    Luetuimmat keskustelut

    1. Perussuomalaiset kirjoittaa vain positiivisista uutisista

      Ei tarvitse palstaa paljon seurata, kun sen huomaa. Joka ainoa positiivinen uutinen Suomen taloudesta tai ylipäätään, ni
      Maailman menoa
      109
      6386
    2. Kuka on UMK-suosikkisi? UMK26 paljastuksia lauantai 28.2.

      UMK26 tänä lauantaina! UMK26 tulee suorana Tampereelta ja nyt selviää, kuka pääsee edustamaan Suomea Euroviisuihin. M
      Euroviisut
      88
      3991
    3. L/over ja Jani Volanen! Minkä arvosanan 4-10 annat roolityöstä?

      Psykologinen trilleri L/over - ikuisesti minun on koukuttanut tv-katsojat ruudun ääreen. Kun Roosa (Krista Kosonen) tapa
      Tv-sarjat
      39
      3335
    4. TTK:n jättänyt Vappu Pimiä rehellisenä MasterChef-kuvauksista: "Höh..."

      Vappu Pimiä on uusi MasterChef Suomi -tuomari. Viime vuonna Tanssii Tähtien Kanssa jäi taakse, ja nyt vuorossa on uusi a
      Suomalaiset julkkikset
      7
      2730
    5. Natomaa hyökkäsi Iraniin

      Näemme nyt tällä hetkellä Natomaan nimeltä Yhdysvallat, joka toimii aika pitkälti perinteisen kansainvälisen lain ulkopu
      NATO
      612
      1307
    6. Rakas tiedät, että toivoisin

      Kuulevani sinusta. Tiedät, että viestisi tekisi minut ihan onnelliseksi. Että äänesi kuuleminen saisi minut leijumaan ja
      Ikävä
      55
      713
    7. Miksi et nainen halua

      minua, kuten minä sinua?
      Ikävä
      61
      699
    8. Trump aloitti III maailmansodan tänään.

      Narsisti ja mielipuoli Trump pitäisi saada pois, miten se onnistuisi parhaiten?
      Maailman menoa
      193
      698
    9. teemu samuli

      käykäähän lukemassa uusin alibi lehti 3/26 mitä tämä ihmissaasta satuilee..
      Suomussalmi
      8
      695
    10. Osaako kukaan sanoa?

      Mikä on syy siihen, että apulaisidiootti yrittää kaikin keinoin haitata kaikkea yrittämistä Ähtärissä? Nyttkin pilkkaa j
      Ähtäri
      47
      689
    Aihe