kaavaongelma

öökll

Minulla on suora viittaus prosenttisoluun ja haluaisin saada numerosolusta annetulla prosenttimäärällä sen annetun prosenttimääräisen muutoksen siihen numerosoluun.

Esim.

Luku 10

Kaava esim. A1*$B1$

Ongelma on, että saa muutosta tuohon numerosoluun, tällöin excel vain viittaa että on kehäviittaus.

Saan toki lukumuutoksen viereiseen soluun, mutta tarvetta olisi siis että annetulla prosenttiarvolla tietystä numerosolusta saadaan uusi numeroluku perustuen siis annettuun prosenttiin.

4

507

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ensiviikolla palaan asiaan...
      piece of cake pari rivia koodia

      • taulukon moduuliin...
        nyt solussa A1 muutos ja solussa prosentti


      • ...
        kunde kirjoitti:

        taulukon moduuliin...
        nyt solussa A1 muutos ja solussa prosentti

        koodi näyttää olevan läpinäkyvällä musteella kirjoitettu.


      • ... kirjoitti:

        koodi näyttää olevan läpinäkyvällä musteella kirjoitettu.

        taulukon moduuliin...
        tietämättä tarkemmin tarvettasi niin tossa nyt 3 eri variaatiota
        vain yksi saa olla käytössä kerrallaan

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Not Intersect(Target, Range("B1")) Is Nothing Then
        Range("A1") = Range("A1") * Range("B1") / 100
        End If
        If Not Intersect(Target, Range("A1")) Is Nothing Then
        Range("A1") = Range("A1") * Range("B1") / 100
        End If
        Application.EnableEvents = True
        End Sub

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Not Intersect(Target, Range("B1")) Is Nothing Then
        Range("A1") = Range("A1") * Range("B1") / 100
        End If
        Range("B1") = ""
        Application.EnableEvents = True
        End Sub

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Not Intersect(Target, Range("A1")) Is Nothing Then
        Range("A1") = Range("A1") * Range("B1") / 100
        End If
        Application.EnableEvents = True
        End Sub


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

    Luetuimmat keskustelut

    1. Jaaha, sitä on vasemmistoryhmä käynyt häiriköimässä Purran kodin vieressä

      On näköjään iso lakana levitetty puiden väliin, jossa lukee mm. "Haista vi*** Riikka Purra". Tunkekaa leikkaukset pers..
      Maailman menoa
      238
      6812
    2. Päivi Räsänen vs. Abbas Bahmanpour

      (Bahmanpour on imaami Helsingissä) Syyttäjä siis jahtaa edelleen Räsästä tämän H-puheista, joissa hän on ilmeisesti vaa
      Maailman menoa
      124
      5131
    3. Demokratian uhka: Perussuomalaiset ja polarisoiva "me ja muut" -ajattelu

      Laurence Rees varoittaa, kuinka demokratian heikkeneminen ja autoritaaristen liikkeiden nousu voidaan liittää "me ja muu
      Maailman menoa
      171
      4879
    4. "Rauhanomainen" miekkari hesassa: "Eläköön aseellinen vastarinta" - lakana

      Kyseessä on Suomen Palestiinalaisten yhdistyksen viime perjantaina järjestämä ”Hiljainen kynttiläkulkue Palestiinalaiste
      Maailman menoa
      66
      3330
    5. Palkansaajan oikeus nauttia työuransa hedelmistä

      Työeläkejärjestelmä on verrattavissa pyramidihuijaukseen, jossa alemmat tasot, eli nykyiset palkansaajat, toimivat maksa
      Maailman menoa
      106
      2944
    6. En koskaan tule sinulle tätä kertomaan

      Kun kirjoitin sinulle viimeisintä viestiä, huomasin kyynelten valuvan poskiani pitkin.
      Ikävä
      65
      2389
    7. Monella äärivasemmistolaisella C-paperit armeijasta

      Kuinka kävisi sodan tullen noille? Puolustusvoimat huomauttaa, että C-luokituksen saaneiden sijoittumisesta sodan aikan
      Maailman menoa
      24
      2243
    8. Joroinen räjähdys

      Ja siellä räjähti sähköpakettiauto,joka teki suuret tuhot.
      Hybridi- ja sähköautot
      78
      2072
    9. Saatoin tehdä elämäni isoimman virheen

      Otsikko kertoo kaiken. Miksei kaikki voi olla yksinkertaisempaa?
      Ikävä
      139
      1960
    10. odotatko vielä viestiä minulta...

      Mies...? En tiedä mitä sanoa 😔 auta vähän naista ja tule enemmän vastaan
      Ikävä
      139
      1784
    Aihe