kaavaongelmia

Solukko

Voiko laskea kaavaa samaan soluun? Eli jos on solu jossa luku 5. Siihen samaan soluun lisätään 3 niin automaattisesti se laskee yhteenlaskun 5 3 =8 kyseiseen soluun.

9

1367

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • paavali50

      Jos solussa A1 5
      kirjoita vaikka soluun C1 3
      aktivoi solu C1 Muokkaa -> kopioi
      aktivoi solu A1 Muokkaa -> liitä määräten -> ja täppä kohtaan lisää ja OK.

    • jos tarkoitit tätä.
      jos solussa luku 3 ja samaan soluun kirjoitetaan uudelleen luku 5 niin summaa luvut ja tulos on 8.
      Todellakin vuoden vaikein kyssäri... en keksi miten saisi summattua luvun joka on sama kuin vanha arvo solussa järkevällä tavalla.
      Poistamalla kommentit koodista lisää kyllä saman arvon, mutta kysyy joka kerta jos solun arvo ei muutu "lisätäänkö?"- jos vastaus on kyllä niin lisää muuten ei
      palataan asiaan myöhemmin


      Public vika As String
      Public summa As Double

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim Vastaus As Integer
      On Error Resume Next
      If Range(vika) summa Then
      Range(vika) = Range(vika) summa
      Else
      ' Vastaus = MsgBox("Lisätäänkö?", vbInformation vbYesNo)
      ' If Vastaus = vbYes Then
      ' Range(vika) = Range(vika) summa
      ' End If
      End If
      If Range(vika) = 0 Then Range(vika) = ""
      vika = Target.Address
      summa = Target
      End Sub

      • T-N

        En tiedä kelpaako sinulle tällainen vippaskonsti?
        Opinpahan itse ainakin jotain uuttaa tätä pähkäillessäni! Kun en osannut muuten ratkaista käytin apuruutua (IV65536). Summa kertyy soluun A5, mihin myös uudet luvut syötetään. Virhetoiminnot puuttuvat.
        Kunde varmaan stilisoi ja kommentoi mitä voisi tehdä fiksummin.


        Private Sub Worksheet_Change(ByVal Target As Range)

        If Target.Address = "$A$5" Then
        Application.EnableEvents = False

        Dim valisumma As Long
        Dim uusisumma As Long

        If Range("IV65536").Value = 0 Then
        Range("IV65536").Value = Target.Value
        Application.EnableEvents = True
        Exit Sub
        End If

        valisumma = Range("IV65536").Value
        uusisumma = valisumma Target.Value
        Range("IV65536").Value = uusisumma
        Target.Value = uusisumma

        Application.EnableEvents = True
        End If

        End Sub


      • T-N
        T-N kirjoitti:

        En tiedä kelpaako sinulle tällainen vippaskonsti?
        Opinpahan itse ainakin jotain uuttaa tätä pähkäillessäni! Kun en osannut muuten ratkaista käytin apuruutua (IV65536). Summa kertyy soluun A5, mihin myös uudet luvut syötetään. Virhetoiminnot puuttuvat.
        Kunde varmaan stilisoi ja kommentoi mitä voisi tehdä fiksummin.


        Private Sub Worksheet_Change(ByVal Target As Range)

        If Target.Address = "$A$5" Then
        Application.EnableEvents = False

        Dim valisumma As Long
        Dim uusisumma As Long

        If Range("IV65536").Value = 0 Then
        Range("IV65536").Value = Target.Value
        Application.EnableEvents = True
        Exit Sub
        End If

        valisumma = Range("IV65536").Value
        uusisumma = valisumma Target.Value
        Range("IV65536").Value = uusisumma
        Target.Value = uusisumma

        Application.EnableEvents = True
        End If

        End Sub

        Siivosin tuon turhan ifin pois:

        Private Sub Worksheet_Change(ByVal Target As Range)

        If Target.Address = "$A$5" Then
        Application.EnableEvents = False

        Dim valisumma As Long
        Dim uusisumma As Long

        valisumma = Range("IV65536").Value
        uusisumma = valisumma Target.Value
        Range("IV65536").Value = uusisumma
        Target.Value = uusisumma

        Application.EnableEvents = True
        End If

        End Sub


      • T-N kirjoitti:

        Siivosin tuon turhan ifin pois:

        Private Sub Worksheet_Change(ByVal Target As Range)

        If Target.Address = "$A$5" Then
        Application.EnableEvents = False

        Dim valisumma As Long
        Dim uusisumma As Long

        valisumma = Range("IV65536").Value
        uusisumma = valisumma Target.Value
        Range("IV65536").Value = uusisumma
        Target.Value = uusisumma

        Application.EnableEvents = True
        End If

        End Sub

        ei toimi mulla...


      • T-N kirjoitti:

        Siivosin tuon turhan ifin pois:

        Private Sub Worksheet_Change(ByVal Target As Range)

        If Target.Address = "$A$5" Then
        Application.EnableEvents = False

        Dim valisumma As Long
        Dim uusisumma As Long

        valisumma = Range("IV65536").Value
        uusisumma = valisumma Target.Value
        Range("IV65536").Value = uusisumma
        Target.Value = uusisumma

        Application.EnableEvents = True
        End If

        End Sub

        nyt ollaan saman taulun sisällä...


      • T-N
        kunde kirjoitti:

        nyt ollaan saman taulun sisällä...

        Hassua, mulla kyllä toimii. Joskus työn alla ei pelittänyt, kun oli jäänyt tuo: "Application.EnableEvents " asentoon False. Toimii taulukohtaisesti siis,


      • T-N kirjoitti:

        Hassua, mulla kyllä toimii. Joskus työn alla ei pelittänyt, kun oli jäänyt tuo: "Application.EnableEvents " asentoon False. Toimii taulukohtaisesti siis,

        toimii hienosti yhdelle solulle.
        Itse ajattelin koodissani kyllä toimintaa kaikille mahdollisille soluille taulukossa, mutta en keksi miten summata kun sama luku syötetään uudelleen


      • T-N
        kunde kirjoitti:

        toimii hienosti yhdelle solulle.
        Itse ajattelin koodissani kyllä toimintaa kaikille mahdollisille soluille taulukossa, mutta en keksi miten summata kun sama luku syötetään uudelleen

        monella tapaa asiaa voidaan ajatella. Minun lähtökohtanani oli, että "summaavia soluja" on rajallinen määrä ja kyseisen solun arvon muuttaminen ajaa makron läpi.
        En tiedä kävikö näin????


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

    Luetuimmat keskustelut

    1. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      93
      7838
    2. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      40
      3752
    3. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      102
      1886
    4. Missä olet ollut tänään kaivattuni?

      Ikävä sai yliotteen ❤️ En nähnyt sua tänään söpö mies
      Ikävä
      24
      1210
    5. Taas ryssittiin oikein kunnolla

      r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html
      NATO
      32
      1053
    6. Valtimon Haapajärvellä paatti mäni nurin

      Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,
      Nurmes
      28
      1003
    7. Rakastuminenhan on psykoosi

      Ei ihme että olen täysin vailla järkeä sen asian suhteen. Eipä olis aikoinaan arvannut, että tossa se tyyppi menee, jonk
      Ikävä
      53
      837
    8. Olisinko mä voinut käsittää sut väärin

      Nyt mä kelaan päässäni kaikkea meidän välillä tapahtunutta. Jos mä sit kuitenkin tulkitsin sut väärin? Se, miten sä käyt
      Ikävä
      31
      792
    9. Vanha Suola janottaa Iivarilla

      Vanha suola janottaa Siikalatvan kunnanjohtaja Pekka Iivaria. Mies kiertää Kemijärven kyläjuhlia ja kulttuuritapahtumia
      Kemijärvi
      10
      750
    10. Tähän vaivaan ei auta kuin kaksi asiaa

      1. Tapaaminen uudestaan tai 2. Dementia Anteeksi kun olen olemassa🙄
      Ikävä
      60
      749
    Aihe