Vba apua

apuuuva2

Mulla on K sarakkeessa määrä ja G sarakkeessa hinta. Haluaisin M sarakkeeseen tulon noista, eli K*G. Ongelma on se että joka rivillä ei ole tietoa, eli välissä on tyhjiä rivejä. Tein kaavan =JOS(K2=>0,01;K2*G2;"") joka tietenkin toimii mutta kun taulukossa on kymmeniä tuhaansia rivejä niin jos tuon saisi vba:na moduuliin niin että se laskisi joka rivin tiedot kun ehdot täyttyy niin helpottaisi kovasti.

1

135

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      Sub TäytäKaava()
      Dim vika As Integer
      vika = Range("K65536").End(xlUp).Row
      Range("M1").FormulaR1C1 = "=IF(RC[-2]>0,RC[-2]*RC[-6],"""")"
      Range("M1").AutoFill Destination:=Range("M1:M" & vika)
      End Sub

      Keep EXCELing
      @Kunde

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma

      Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?
      Sinkut
      363
      1954

    2. Odotan sitä hetkeä

      kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh
      Ikävä
      75
      1316

    3. Olen melko vakuuttunut

      etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok
      Ikävä
      83
      1297

    4. Leijonat Maailmanmestareita!

      Ihanaa Leijonat, ihanaa!!!
      Maailman menoa
      136
      1183

    5. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      84
      1043

    6. Minkälaisessa asennossa

      Haluaisit kaivattusi kanssa olla?
      Ikävä
      90
      936

    7. Sinä siellä lähistöllä

      Tahtoisin tutustua paremmin 💫
      Ikävä
      48
      853

    8. 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
      118
      843

    9. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      48
      790

    10. Sitä saattaa vähän hölmöillä

      rakkauspäissään, jos tunteita on enemmän kuin osaa käsitellä. Alkuhölmöilyt on söpöä ja sallittavaa.
      Ikävä
      60
      746
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt