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

828

Äänestä

    Vastaukset

    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. Moikka rakas

      Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa
      Ikävä
      65
      17263

    2. Mitä tapahtunut

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

    3. HS: Kuka vielä uskaltaa mennä sairaalan ensiapuun?

      https://www.hs.fi/mielipide/art-2000011212025.html Tässä on hyvin ajankohtainen mielipidekirjoitus koskien Malmin sairaa
      Maailman menoa
      301
      2813

    4. Gallup: kaivattusi syntymävuosi

      Minä vuonna kaipaamasi henkilö on syntynyt?
      Ikävä
      155
      2159

    5. 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
      33
      1873

    6. Missäpäin,,,

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

    7. Ökyrikas Kurkilahti mussuttaa veroistaan

      Pakeni aikoinaan veroja Portugaliin mutta joutui palaamaan takaisin kun Suomi teki verotussopimuksen Portugalin kanssa.
      Maailman menoa
      140
      1668

    8. Yhdysvalloissa työllisyys paranee, Suomessa työttömyys kasvaa, missä vika?

      Miten tämä on mahdollista että 177 000 uutta työllistä tuli USAssa yhdessä kuukaudessa, vaikka Trump on ruorissa? Orpon
      Maailman menoa
      409
      1597

    9. 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ä
      11
      1447

    10. Jos tämän vaan sulkee ja avaa 5 vuoden päästä

      Täällä on luultavasti edelleen näitä ihan samoja juttuja. On kuin kauniit ja rohkeat samat jutut junnaa. Heips. 👋🏻 E
      Ikävä
      13
      1359
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt