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

90

    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. 4 kuoli kolarissa

      Kenen vastuulla tienhoito? Sohjoa ja vettä tie täynnä. Oliko säästetty tienhoidossa? Järkyttävä onnettomuus.
      Joensuu
      360
      14050
    2. Nainen, moraali on koetuksella sun kanssa

      Koen nyt olevani rappiolla ja kyllä, omaa syytäni ja itsekontrollin puutetta, mutta olethan kyllä puoleensavetävä, ettei
      Ikävä
      100
      2131
    3. Kuka on oikein

      Kaivattusi?
      Ikävä
      93
      1789
    4. Mikä on lempikuvasi

      Kaivatustasi?
      Ikävä
      83
      1693
    5. Onko kenelläkään tästä tietoo?

      https://www.haapavesi-lehti.fi/artikkeli/lukijalta-ilkka-repo-etsii-nimettoman-kirjeen-lahettajaa Olisi tärkeä saada te
      Haapavesi
      45
      1271
    6. Mitä sinä näet

      kun katsot peiliin?
      Ikävä
      97
      1220
    7. Ovatko miehet niin heikkoja ja lahjattomia, etteivät siedä tasa-arvoa?

      Muutenhan ei ole mitenkään perusteltavissa, miksi miesten pitäisi saada etuoikeuksia ja etumatkaa. Sehän tarkoittaisi, e
      Maailman menoa
      280
      1073
    8. Suomussalmi News -valvontakameran tunnisteet pojista

      Pojat on aina poikia, mutta kiusanteko ja muu ilkivalta ei ole hyväksyttävää. Suomussalmi News -ryhmässä on uunituore vi
      Suomussalmi
      28
      1034
    9. Ihastukselleni

      Kun viimeksi nähtiin, niin sisälläni repesi myrsky ja salamat iskivät kuin rajuilma. En halunnut katsoa sinua, en halunn
      Ikävä
      21
      1033
    10. Se helpottaisi oloa jos

      Se toinen tietäisi että molemmat tykkäämme toisistamme. Se on asia mikä vaivaa ja ahdistaa minua vaikka tilanne olisikin
      Ikävä
      73
      997
    Aihe