Makrossa "jos virhe"

Makro-Marko

1.
Miten tehdään makroon IF(ISERROR (IFERROR tms. Siis tuohon alla olevaan Sub Laske makroon.
Jos on on virhe niin se pitäisi olla tyhjä "blank".
Osaan kaavoihin tehdä nuo mutta makrot on aika uusi juttu.

"""((((Nauhoitettu makro on niin kauheeta katsoa että sellaista en halua, haluan siistiä koodia siksi yritän koodailla kaavat ynnämuut käsin ja haluan oikeasti vieläpä oppia noit juttuja.))))""""


2. kysymys saisiko rimpsua lyhennettyä jollain tavalla, makroista tulee muuten liian pitkiä jos joutuu jokaisen solun naputtelemaan yksi kerrallaan moduliin. Laskumakroja tulee useita erilaisia sinne tänne ja tänne sinne. Ne ovat paljon pidempiä kuin esimerkki. Mutta sen voisi rajoittaa vaikka 50 riviin jos joku vinkkaa esimerkillä lyhennetyn koodin miten sen voisi tehdä niin että saisi mahdollisesti ideasta kiinni.

Mut jos ei niin olis kiva jos saisi ainakin 1. kysymykseen vastauksia.

Sub Laske()

Worksheets("Sheet1").Select
Range("N2").formula = "=Sum(H2)/((C2)*188)"
Range("N3").formula = "=Sum(H3)/((C3)*188)"
Range("N4").formula = "=Sum(H4)/((C4)*188)"
Range("N5").formula = "=Sum(H5)/((C5)*188)"
Range("N6").formula = "=Sum(H6)/((C6)*188)"
Range("N7").formula = "=Sum(H7)/((C7)*188)"
Range("N8").formula = "=Sum(H8)/((C8)*188)"
Range("N9").formula = "=Sum(H9)/((C9)*188)"
Range("N10").formula = "=Sum(H10)/((C10)*188)"
Range("N11").formula = "=Sum(H11)/((C11)*188)"
Range("N12").formula = "=Sum(H12)/((C12)*188)"
Range("N13").formula = "=Sum(H13)/((C13)*188)"

jatkuu....
jatkuu....


End Sub

3

453

Äänestä

    Vastaukset 3

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Makro-Marko

      Makro-Marko täsmentää.

      Range("N"). on alue johon tulos tulee ja jos on virhekoodi niin se pidäis saada "blank"

      • kunde

        Sub LAske()
        Range("N2").Formula = "=IF(ISERROR(SUM(H2/C2*188)),"""",SUM(H2/C2*188))"
        Range("N2").AutoFill Destination:=Range("N2:N13"), Type:=xlFillDefault
        End Sub

      • Makro-Marko
        kunde kirjoitti:

        Sub LAske()
        Range("N2").Formula = "=IF(ISERROR(SUM(H2/C2*188)),"""",SUM(H2/C2*188))"
        Range("N2").AutoFill Destination:=Range("N2:N13"), Type:=xlFillDefault
        End Sub

        Hyvin toimii, kiitos!

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Realistisesti

      Miten toivoisit, että asiat etenisivät hänen kanssaan? Kuka tekisi mitä?
      Ikävä
      127
      1292

    2. millaiset hiukset

      kaivatullasi on? :)
      Ikävä
      49
      1066

    3. Miksi et edistä asiaa...

      Kaivattusi suhteen??
      Ikävä
      58
      900

    4. Minkälaista ajattelisit elämänne olevan

      jos olisit kaivattusi kanssa yhdessä?
      Ikävä
      76
      889

    5. Tää on todella huvittavaa seurata näiden savolaisten

      naapurusten piikittelyä ja vihanpitoa toisilleen netissä. Näyttää siltä, että Mehtoselle alkaa tulla isäukon piirteet e
      Tuusniemi
      42
      775

    6. Kuka mölyapina

      Kuka saatanan vittu naama mölisee sunnuntaiaamuna jolla ei oo edes lauluääntä. Yön kuulunut jonkun ajan mölinää sisälle
      Suomussalmi
      18
      767

    7. Sinulle nainen

      Koitan vihdoin jättäytyä täältä pois. Taas koko illan tänne tullut vain jotain pilkkaus viestejä, ei jaksa tuollaista. M
      Ikävä
      81
      752

    8. Kuhmosta (kyseenalaiseen) kuuluisuuteen

      Naapurikylän, siis Nurmeksen suurin tubettaja on iskenyt naisen Kuhmosta. Kertoo kanavallaan naisen olevan hyvä rakastel
      Kuhmo
      5
      724

    9. Salaattirosvo

      Sinulle tiedoksi joka varastit salaatit viime yönä kasvulootasta,jäit riistakameraan🤣🤣🤣. Tulehan selvittelemään asia
      Suomussalmi
      24
      663

    10. rattijuoppoja

      tavattu taas Haapavedellä, hyvä että poliisi on valppaana
      Haapavesi
      18
      651
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt