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

548

    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. Persujen vaalilupaus oli euron bensa

      Nyt puhutaan jo kolmen euron bensasta. Kyseessä on Suomen historian törkein vaalipetos.
      Maailman menoa
      92
      2127
    2. Vain vasemmistohallitus saa minut menemään töihin

      Änkyräkapitalistien sortaessa kansaa en laita rikkaakaan ristiin. Elän mielummin Kelan tuilla, ja jos niitä leikataan, n
      Maailman menoa
      33
      2070
    3. Maataloustuet perittävä korkojen kera takaisin

      Yrittäjiltä jotka ovat myyneet tuotantoaan ulkomaille. Veronmaksajan kustantama tuki on tarkoitettu elintarvikkeiden hi
      Maataloustuki
      50
      1835
    4. Topi osti Askon

      Hieno mies. Pelastaa työpaikkoja. Kiitokset myös emännälleen, joka pitää isännän virkeänä. https://www.is.fi/taloussan
      Maailman menoa
      75
      1360
    5. Mitä kirjainta kaipaat?

      Pitkästä aikaa tämmöistä. Onko kirjain muuttunut edellisestä. ☺️
      Ikävä
      86
      1251
    6. Kastaa ja upottaa on eri sanat

      Kastaa ja upottaa on eri sanat ja niillä on eri merkitys. Eikä Jeesusta haudattu upottamalla maahan kaivettuun kuoppaan
      Kaste
      219
      1141
    7. Uskomatonta touhua!

      Ei olis uskonut että kateus yrittäjää kohtaan menee noin pitkälle. TTP:ssa irrotettu sähköjohto jäätelöaltaasta. Kaikki
      Haapavesi
      31
      1060
    8. Oliko se oikeasti epäselvää

      sinulle että olin ihastunut sinuun? (Ymmärrän että siitä on aikaa, eikä voi olettaa että kaikkea muistaisi tai että men
      Ikävä
      56
      1003
    9. Miten hän sinua katsoi?

      😊😊😊😊😊😊
      Ikävä
      67
      936
    10. Miksi eduskuntatalon portaille sytyttään tänään 8 645 kynttilää?

      Oikeus elämään ry järjestää lauantaina 21.3.2026 tapahtuman, jossa Eduskuntatalon portaille sytytetään 8 645 kynttilää.
      Luterilaisuus
      282
      895
    Aihe