Kunde ja Rautalanka

Kiitoks

Moi,

Näyttäisikö tällaisen toimivan Macron, mikä lukee talukon läpi:

Jos nimitän A,B,C,D vaikkapa sarakkeiksi.
A sarake sisältää kolmepitkiä numeerisia lukua (233, 772, 124, jne)
ja
B sarake sisältää myös kolmepitkiä numeerisia lukua (233, 772, 124, jne)

C sarakkeeseen tulostetaan aina A ja B rivien summa yhteensä.
Jos A B rivin summa on isompi kuin 1001, tulostetaan D sarakkeeseen se summa ja messutaan ruudulle ”Luku ylittyi ” ylittynyt summa.

3

106

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ylittäjä

      Ihan "kotikonstein".
      Kirjoita jonnekkin soluun "Luku ylittyi" (esimerkissä G1:seen)
      D1=JOS(C1

      • ดอกเบี้ย

        Juu kiitos. Yritin saada apua Macron tekoon samalla, vähän niinkuin alkeista lähtien, samalla oikeaa asiaa mukaillen.

        Joten odotan jospa Kunde valmiin koodinsa kanssa avustaisi.


    • Option Explicit
      Sub HarjoitusMakro()
      'määitellään rivimuuttuja, parempi käyttää long muotoa kun muuttaa kuitenkin integer --->long
      Dim vika As Long
      'vika rivi sarakkeesta A
      vika = Range("A65536").End(xlUp).Row
      'kaava soluun C1 =A1 B1
      Range("C1").FormulaR1C1 = "=RC[-2] RC[-1]"
      'käytetään automaattitäyttöä... vastaa raahaamista fiksumpi tapa kuin loopata ;-)
      Range("C1").AutoFill Destination:=Range("C1:C" & vika), Type:=xlFillDefault
      'samat jutut D sarakkeeseen...
      Range("D1").FormulaR1C1 = "=IF(RC[-3] RC[-2]

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

    Luetuimmat keskustelut

    1. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      149
      2179
    2. 121
      1475
    3. Atte Harjanne usuttaa eläkeläisvihaan

      Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v
      Maailman menoa
      337
      1289
    4. Keitä oli kunnanjohtajan erottajat?

      Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni
      Ilmajoki
      67
      1204
    5. 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
      140
      1200
    6. IS: Väitöstutkimus - Pyöräilybuumi oli pelkkä kupla!

      Pyöräilybuumista paljastui karu totuus Väitöstutkimuksen mukaan suuri suomalainen pyöräilyrenessanssi olikin vain pelkk
      Maailman menoa
      3
      1181
    7. Miten pääsee ujon naisen pään sisään?

      Siis tosi tosi tosi ujon...
      Ikävä
      141
      1169
    8. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      49
      1109
    9. Turussa Varissuolla bussikuski ajoi lapsen yli lapsi kuoli

      Poliisi " Epäilee " kuskia törkeästä liikenneturvallisuuden vaarantamisesta ja törkeästä kuolemantuottamuksesta.
      Maailman menoa
      158
      1016
    10. Milloin bikineistä

      Tuli juhla tai esiintymis asu? Pikkasen harkintaa vois käyttää. Bikinit kuuluvat uimarannalle. No, mitä maailman tähdet
      Maailman menoa
      101
      990
    Aihe