VBA apuja kaivataan

Anonyymi-ap

Yritin kokeilla tuollaista koodia millä solun arvon muuttuminen toiseksi käynnistää eri makrot.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("A1")) Is Nothing) Then
If Range("A1") = 1 Then
Application.Run "makri1"
Else
Application.Run "makro2"
End If
End If
End Sub

Periaatteessa toimii, mutta ei ihan niin kuin odotin. Toimii silloin kun käsin syöttää lukeman A1 soluun ja painaa enteriä.
Pitäisi saada toimimaan siten että kun solussa olevan kaavan tuottama lukuarvo muuttuu. Nyt se ei kaavan tuottamiin lukuarvoihin reagoi mitenkään.
Millaiset loitsut vaatisi ettei tarvitsi enterin painallusta siinä solussa?

11

413

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Kokeile näitä , jos olisi apua
      Worksheet object events
      Events on sheets are enabled by default. To view the event procedures for a sheet, right-click the sheet tab and click View Code on the shortcut menu. Select one of the following events from the Procedure list box.
      esim.
      Private Sub Worksheet_Calculate()
      Columns("A:F").AutoFit
      End Sub

      • Anonyymi

        Kiitos, olen autettu. En osaa kieliä, mutta ohjelmasi toimii hienosti.


      • Anonyymi
        Anonyymi kirjoitti:

        Kiitos, olen autettu. En osaa kieliä, mutta ohjelmasi toimii hienosti.

        Oleppa hyvä.


      • Anonyymi
        Anonyymi kirjoitti:

        Kiitos, olen autettu. En osaa kieliä, mutta ohjelmasi toimii hienosti.

        Hienoa jos muut sai apuja.
        Kuinka sinulla sattuikin olemaan sama pulma kuin minulla aloittajana. 😲


      • Anonyymi

        Vapunen tauolle ;D
        Mielestäni tämä vapunen pitäisi sulkea toistaiseksi !


      • Anonyymi
        Anonyymi kirjoitti:

        Hienoa jos muut sai apuja.
        Kuinka sinulla sattuikin olemaan sama pulma kuin minulla aloittajana. 😲

        Pulma on päässäsi kun vastaat itsellesi!


      • Anonyymi
        Anonyymi kirjoitti:

        Vapunen tauolle ;D
        Mielestäni tämä vapunen pitäisi sulkea toistaiseksi !

        Kirjautuminen pakolliseksi, ei täältä häiriköt muuten häviä!


      • Anonyymi
        Anonyymi kirjoitti:

        Kirjautuminen pakolliseksi, ei täältä häiriköt muuten häviä!

        Minä ajattelin ettet sinä kuitenkaan kiitä saamastasi avusta, niinpä annoin aiheellista kiitosta taitajalle, että olisi apu lähellä seuraavalla kerrallakin.


    • Anonyymi

      Hienoa, meillä on osaaviakin mukana.

    • Anonyymi

      VBA (Visual Basic for Applications) -ohjelmoinnin avulla voi luoda makroja myös LibreOffice Calc taulukkolaskentaa käytettäessä.

      • Anonyymi

        LibreOffice on paras.


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

    Luetuimmat keskustelut

    1. Janne Ahonen E R O A A

      Taas 2 lasta jää vaille ehjää perhettä!
      Kotimaiset julkkisjuorut
      145
      2519
    2. En kai koskaan saa sinua

      Koska et usko että riitäisit minulle. Olet aina pitänyt itseäsi liian risana ja heikkona. Katkot korkeutesi, ja poraat k
      Ikävä
      154
      1649
    3. Terveystalon lääkärit ylilaskuttaneet

      Tämän pörriäiset osaavat, laskuttamisen. Terveystalo myöntää asian. https://www.hs.fi/suomi/art-2000011134269.html "K
      Maailman menoa
      133
      1613
    4. Saran ökytyyli käänsi katseita.

      On nyt kyllä Sara kasvoistaan, kuvan perusteella todellakin pyöristynyt ainakin kuvan perusteella.
      Kotimaiset julkkisjuorut
      146
      1344
    5. Nyt on aika laittaa parit selkoon.

      Onko pareja täällä. Laita kirjaimet kuka tykkää kenestäkin ?
      Ikävä
      66
      1338
    6. The Summit Suomi: Maxie avaa hyytävästä tilanteesta kuvauksissa: "Veri roiskui ja tajusi, että..."

      Oletko seurannut The Summit Suomea? Tykkäätkö vai et tai mitä mieltä ylipäätään olet sarjasta? Moni katsoja on kaikonnut
      Tv-sarjat
      13
      1170
    7. Työttömille lusmuille luvassa lisää keppiä

      Hallitus aikoo kiristää velvoitteiden laiminlyönnistä seuraavia työttömyysturvan karensseja ensi vuodesta alkaen. Hall
      Maailman menoa
      261
      1123
    8. Ootko huomannut miten

      pursuat joka puolelta. Sille joka luulee itsestään liikoja 🫵🙋🏻‍♂️
      Ikävä
      156
      966
    9. Miksi ihmeessä?

      Erika Vikman diskattiin, ei osallistu Euroviisuihin – tilalle Gettomasa ja paluun tekevä Cheek
      Ateismi
      22
      904
    10. Tiedän kaiken sinusta ja kaikesta

      Tiedän miten kärsit. Tiedän millanen oikeesti oot. Tiedän miksi valehtelit, tiedän miksi satutit mua. Tiedän mitä tapaht
      Ikävä
      58
      889
    Aihe