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

112

Ää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. Mitä tapahtunut

      Poliiseja monta autoa+panssariauto Porista kpäähän päin tänään klo n.20 kuka hurjistunut ?
      Kankaanpää
      46
      5731

    2. Lakea konkurssiin. Asukkaat menettävät asuntonsa

      Kuntarahoitus on tänään jättänyt konkurssihakemuksen lakean kaikista kiinteistö osakeyhtiöistä. Kassa on tyhjä, kaikki
      Seinäjoki
      55
      3025

    3. Gallup: kaivattusi syntymävuosi

      Minä vuonna kaipaamasi henkilö on syntynyt?
      Ikävä
      183
      2645

    4. Nikkalassa vauhdilla nokka kohti taivasta

      Mitähän Darwin sanoisi näistä 4 suomalaisesta, jotka kävivät Haparandan puolella näyttämässä, kuinka Suomi auto kulkee t
      Tornio ja Haaparanta
      10
      2331

    5. Missäpäin,,,

      Lapuaa tapettu ihminen viime yönä ? Hurjaa touhua nykymeno täällä...
      Lapua
      27
      2073

    6. mahdollista, että olet ollut iltavuorossa

      Ja kotiin päästyäsi tulit palstalle etsimään merkkiä minusta, jos kaipaat yhtään minua niin kuin minä sinua Ei mennyt k
      Ikävä
      13
      2059

    7. törniöläiset kaaharit haaparannassa

      isäpapan autolla kaahatta 270 km/h metsään https://www.lapinkansa.fi/nsd-kaksi-suomalaista-kuoli-kolarissa-haaparannall/
      Tornio ja Haaparanta
      15
      1746

    8. Mitähän ne katseet merkitsee

      Kun et saa sanaa suustasi.
      Ikävä
      146
      1327

    9. Upea peppuisella naisella

      Upea peppuisella naisella on upea peppu.
      Ikävä
      14
      1249

    10. Sitä saa mitä tilaa Perussuomalaiset!

      https://yle.fi/a/74-20160212 SDP:n kannatus se vain nousee ja Keskusta on kolmantena. Kokoomus saanut pienen osan persu
      Maailman menoa
      261
      1153
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt