Ehdollinen laskenta

\\kyselee apuja

Käytössä xp pro excel 2003.
Yritän tehdä makroa joka laskee solun arvon mukaan kaavalla.
Negatiivisellä arvolla G$7-ko.solun arvo-I$1.
Positiivisellä arvolla G$7 ko.solun arvo I$1.
Nolla-arvolla G$7.
Alla kokeilun tulos (eipä toimi..):

Sub koe()
Dim Lähdealue2 As Range
Dim vika2 As Integer


vika2 = Range("D65536").End(xlUp).Row
Set Lähdealue2 = Range("D5:D" & vika2)
Range("K5").Select

For i = 1 To Lähdealue2.Count
ActiveCell = Lähdealue2(i)

If ActiveCell.Value = "" Then
ActiveCell.FormulaR1C1 = "=R[2]C[-4] RC[-7]"
If ActiveCell.Value > "0" Then
ActiveCell.FormulaR1C1 = "=R[2]C[-4]"
If ActiveCell.Value < "0" Then
ActiveCell.FormulaR1C1 = "=R7C[-4]-RC[-7]-R1C[-2]"
ActiveCell.Offset(1, 0).Select
End If
End If
End If

Next

Range("A1").Select

End Sub

Oliskohan kenelläkään vinkkiä asiaan?

12

902

Äänestä

    Vastaukset 12

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ...

      Ainakin lainausmerkit pois nollan ympäriltä.

      • \\kyselee apuja

        Otin lainausmerkit pois, eipä auttanut.
        Tulos tuli vain K5 soluun (ja sekin väärin).

        Olisiko lisää ehdotuksia, kaikki vinkit otetaan kiitollisuudella vastaan.

      • ...
        \\kyselee apuja kirjoitti:

        Otin lainausmerkit pois, eipä auttanut.
        Tulos tuli vain K5 soluun (ja sekin väärin).

        Olisiko lisää ehdotuksia, kaikki vinkit otetaan kiitollisuudella vastaan.

        Pari elseä lisää: Else If ActiveCell
        Toinen ongelma on, että kaava sijoitetaan samaan soluun, jossa on luku ennestään.

      • \\kyselee apuja
        ... kirjoitti:

        Pari elseä lisää: Else If ActiveCell
        Toinen ongelma on, että kaava sijoitetaan samaan soluun, jossa on luku ennestään.

        Lähtötiedot ovat solusta D5 alaspäin, tulokset laskennasta haluaisin solusta K5 alaspäin. Ennen laskentaa solu ompi tyhjä.

      • ...
        \\kyselee apuja kirjoitti:

        Lähtötiedot ovat solusta D5 alaspäin, tulokset laskennasta haluaisin solusta K5 alaspäin. Ennen laskentaa solu ompi tyhjä.

        For Each solu In Lähdealue2
        arvo = solu.Value

        If arvo = 0 Then
        ActiveCell.FormulaR1C1 = "=R[2]C[-4] RC[-7]"
        Else If arvo > 0 Then
        ActiveCell.FormulaR1C1 = "=R[2]C[-4]"
        Else If arvo < 0 Then
        ActiveCell.FormulaR1C1 = "=R7C[-4]-RC[-7]-R1C[-2]"
        End If
        End If
        End If
        ActiveCell.Offset(1, 0).Select
        Next
        ?

      • \\kyselee apuja
        ... kirjoitti:

        For Each solu In Lähdealue2
        arvo = solu.Value

        If arvo = 0 Then
        ActiveCell.FormulaR1C1 = "=R[2]C[-4] RC[-7]"
        Else If arvo > 0 Then
        ActiveCell.FormulaR1C1 = "=R[2]C[-4]"
        Else If arvo < 0 Then
        ActiveCell.FormulaR1C1 = "=R7C[-4]-RC[-7]-R1C[-2]"
        End If
        End If
        End If
        ActiveCell.Offset(1, 0).Select
        Next
        ?

        tulipa compile error for without next.

        hmm..ei tämä ollutkaaan helppoa...mitähän seuraavaksi....netistä yrittänyt apua löytää, ilman mainittavaa menestystä..

      • kunde
        \\kyselee apuja kirjoitti:

        tulipa compile error for without next.

        hmm..ei tämä ollutkaaan helppoa...mitähän seuraavaksi....netistä yrittänyt apua löytää, ilman mainittavaa menestystä..

        kyllä se siitä treenaamalla...

        Sub koe()
        Dim Lähdealue2 As Range
        Dim vika2 As Integer

        vika2 = Range("D65536").End(xlUp).Row
        Set Lähdealue2 = Range("D5:D" & vika2)
        For Each solu In Lähdealue2
        Select Case solu
        Case Is > 0
        solu.Offset(0, 7) = Val(Range("G7")) Val(solu) Val(Range("I1"))
        Case Is < 0
        solu.Offset(0, 7) = Val(Range("G7")) - Val(solu) - Val(Range("I1"))
        Case 0
        solu.Offset(0, 7) = Val(Range("G7"))
        End Select
        Next
        End Sub

      • \\kyselee apuja
        kunde kirjoitti:

        kyllä se siitä treenaamalla...

        Sub koe()
        Dim Lähdealue2 As Range
        Dim vika2 As Integer

        vika2 = Range("D65536").End(xlUp).Row
        Set Lähdealue2 = Range("D5:D" & vika2)
        For Each solu In Lähdealue2
        Select Case solu
        Case Is > 0
        solu.Offset(0, 7) = Val(Range("G7")) Val(solu) Val(Range("I1"))
        Case Is < 0
        solu.Offset(0, 7) = Val(Range("G7")) - Val(solu) - Val(Range("I1"))
        Case 0
        solu.Offset(0, 7) = Val(Range("G7"))
        End Select
        Next
        End Sub

        Kokeilenpa huomenna, kun saan widoosakoneen taas käsiini.

        Kiitän makrosta jo etukäteen.

        Kunde, muistaakseni avaat omat excel-sivut jossain vaiheessa?

      • kunde
        \\kyselee apuja kirjoitti:

        Kokeilenpa huomenna, kun saan widoosakoneen taas käsiini.

        Kiitän makrosta jo etukäteen.

        Kunde, muistaakseni avaat omat excel-sivut jossain vaiheessa?

        joo kyllä Kunden portaali aukeaa virallisestikin kevään aikana. Varmuuskopiot serveriltä vaan menivät "vituiksi" ja joudun manuaalisesti tekeen juttuja uusiksi. Portaaliin tulee aluksi osiot CAD/CAM/CNC, EXCEL(myöhemmin muut officejutskat) ja MATKAILU lähinnä nyt THAIMAA (Khorat ja Pattaya). Varsinkin CAD/CAM/CNC osaajat voisivat lähettää mulle mailia [email protected]

        KEEP EXCELING
        Kunde

      • \\kyselee apuja
        kunde kirjoitti:

        joo kyllä Kunden portaali aukeaa virallisestikin kevään aikana. Varmuuskopiot serveriltä vaan menivät "vituiksi" ja joudun manuaalisesti tekeen juttuja uusiksi. Portaaliin tulee aluksi osiot CAD/CAM/CNC, EXCEL(myöhemmin muut officejutskat) ja MATKAILU lähinnä nyt THAIMAA (Khorat ja Pattaya). Varsinkin CAD/CAM/CNC osaajat voisivat lähettää mulle mailia [email protected]

        KEEP EXCELING
        Kunde

        Kerro sitten tarkemmin kun saat portaalin auki, kiitos.

        Makrosta vielä:
        D6 0.03 G7 236.02 I1 9.44 tulokseksi antaa (K5) 236.00

        Olisiko mahdollista saa desimaaleja mukaan?

      • kunde
        \\kyselee apuja kirjoitti:

        Kerro sitten tarkemmin kun saat portaalin auki, kiitos.

        Makrosta vielä:
        D6 0.03 G7 236.02 I1 9.44 tulokseksi antaa (K5) 236.00

        Olisiko mahdollista saa desimaaleja mukaan?

        nyt desimaalitkin mukana ;-)

        Sub koe()
        Dim Lähdealue2 As Range
        Dim vika2 As Integer

        vika2 = Range("D65536").End(xlUp).Row
        Set Lähdealue2 = Range("D5:D" & vika2)
        For Each solu In Lähdealue2
        Select Case solu
        Case Is > 0
        solu.Offset(0, 7) = CDbl(Range("G7")) CDbl(solu) CDbl(Range("I1"))
        Case Is < 0
        solu.Offset(0, 7) = CDbl(Range("G7")) - CDbl(solu) - CDbl(Range("I1"))
        Case 0
        solu.Offset(0, 7) = CDbl(Range("G7"))
        End Select
        Next
        End Sub

      • \\kyselee apuja
        kunde kirjoitti:

        nyt desimaalitkin mukana ;-)

        Sub koe()
        Dim Lähdealue2 As Range
        Dim vika2 As Integer

        vika2 = Range("D65536").End(xlUp).Row
        Set Lähdealue2 = Range("D5:D" & vika2)
        For Each solu In Lähdealue2
        Select Case solu
        Case Is > 0
        solu.Offset(0, 7) = CDbl(Range("G7")) CDbl(solu) CDbl(Range("I1"))
        Case Is < 0
        solu.Offset(0, 7) = CDbl(Range("G7")) - CDbl(solu) - CDbl(Range("I1"))
        Case 0
        solu.Offset(0, 7) = CDbl(Range("G7"))
        End Select
        Next
        End Sub

        Toimii hienosti, eikä ole mitään anteeksipyydettävää vapaaehtoisesta avusta.

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Kuinkahan monen

      Naisen puolisoa olet nainen vikitellyt ja eron aiheuttanut? Toivottavasti karma on ku*sut muroihisi useamman kuin kerran
      Ikävä
      77
      798

    2. Mies, kumman ottaisit mieluummin

      176 cm vai 154 cm naisen, jos molemmat muuten yhtä viehättäviä? Mikä on oma pituutesi?
      Sinkut
      147
      778

    3. Kauan mökötetään toisillemme?

      Loppuelämäkö? Vai oisko jo pussailutreffit?
      Ikävä
      57
      676

    4. Pettymys TTK-parketilla! Anna Hanski tippui - Sami-opelta erikoinen heitto: "Nyt sä pääset..."

      Toisena parina Tanssii Tähtien Kanssa -kisasta tippuivat Anna Hanski ja Sami Helenius. Pettymys oli käsinkosketeltava y
      Tanssii tähtien kanssa
      25
      663

    5. Anteeksi mies

      En jaksa tätä…, en halua, että sinulla on paha mieli tämän takia. Viestiä Sinulle.
      Ikävä
      47
      654

    6. Tekisi mieli vetäistä kunnon jurrit sinun kanssasi

      Ja keskustella asiat, ei tästä tule hevonvttua.
      Ikävä
      46
      634

    7. Eikö olisi mukavaa

      Jakaa arki yhdessä mies. Tämmöisin aatoksin.
      Ikävä
      44
      597

    8. Laittaisit viestin suoraan!!

      Haluaisin...
      Ikävä
      31
      531

    9. Oot komea

      etkä näytä vanhenevan. Mieskarkki. Mä en yritä mitään, mä oon sulle liian vanha. Olis kuitenkin kiva tutustua suhun. n
      Ikävä
      20
      523

    10. Poliisi etsii kadonnutta henkilöä Lapualla

      Henkilö on kadonnut 18-19.9.2026 välisenä yönä. Henkilö on hoikka,n 185 cm pitkä. Kadonneella on ollut katoamishetkellä
      Lapua
      27
      521

    11. Mieti oikeasti

      Ollaan lähes tuntemattomia, mutta samalla on tämä erityinen vuosien tilanne takana, joka on ollut monella tapaa väärin.
      Ikävä
      27
      506

    12. Jonkun mussukka ajanu rallia

      S- Marketilla. Vautsi vau.
      Hyrynsalmi
      6
      476

    13. Venäjä häviämässä 30 vuoden sodan

      Ukraina vapautti kolme aluetta, operaatio Vivaldi laajenee
      Maailman menoa
      404
      470

    14. Se oli molemminpuolinen limerenssi

      Limerenssi myös sinulla kun näin pitkän ajan jälkeen päivystää palstaa. 🤭
      Ikävä
      81
      469

    15. Onko kaivattusi

      Hoikistunut?
      Ikävä
      30
      436

    16. Olen nainen pahoillani, että tykkään sinusta niin paljon, että

      Haluaisin panna sua. Tuntuu vaan siltä, että olet sen suhteen ihan haluton. Ei minulle riitä pelkkä ystävyyssuhde.
      Ikävä
      29
      421

    17. Rydman, herätys!

      "Veikkauksen toimitusjohtaja Olli Sarekoski tienasi kiinteää palkkaa 445 891 euroa ja lisiä 72 157. Kuukausipalkka oli 3
      Maailman menoa
      63
      420

    18. Minä kyllä odotan nainen

      että sinun kanssa voisin jutella asioista ihan oikeasti.
      Ikävä
      39
      415

    19. En laita sulle viestiä

      Toivottavasti ymmärrät jo mies hyvä, että en tule koskaan laittamaan sulle viestiä enkä soittamaan sulle. Minusta ei sii
      Ikävä
      39
      404

    20. Helena Ahti-Hallberg napauttaa - Näin hän kommentoi Vappu Pimiän TTK-lähtöä

      Vappu Pimiä jätti Tanssii Tähtien Kanssa -juontajapestin viime kauden lopuksi. Nyt on erilainen kausi, kun Pimiä ei ole
      Tanssii tähtien kanssa
      3
      400
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt