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

94

Äänestä

    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.

    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      146
      2912

    2. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      367
      2047

    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      40
      1777

    4. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      37
      1742

    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      32
      1421

    6. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      93
      1221

    7. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      54
      1173

    8. Muutama kysymys ja huomio hindulaisesta kulttuurista.

      Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul
      Hindulaisuus
      328
      965

    9. Jumala puhui minulle

      Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles
      Ikävä
      110
      948

    10. Annan meille mahdollisuuden

      Olen avoimin mielin ja katson miten asiat etenevät. Mutta tällä kertaa sun on tehtävä eka siirto.Sen jälkeen olen täysil
      Ikävä
      53
      782
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt