Kahden solun yhteenlasku...

hurtoze

Moro. Miten saan kaksi solua laskettua yhteen siten, että toisen solun luku päivittyy... siis... esim solut a1 ja b1. B1:ssä on luku 5 ja kun laitan a1:een luvun 5 b1 lisäisi tuon 5:n itseensä, jolloin b1:een tulisi 10. Tämä voisi (pitäisikin?) toimia jollakin napilla koska muutenhan tuosta tulee luuppi joka kestää äärettömaan kun A1 lisäisi kokoajan 5 B1:een. Voi perse.... onnistuuko mitenkään?

9

971

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • paavali50

      Tee painike ja liitä siihen makro.

      Sub Makro1()
      [B1] = [B1] [A1]
      End Sub

      • hurtoze

        miten tuon saisi sillä tavalla ettei se olisi rivinumeroon sidonnainen tuo makro.

        Pitäisi saada aikaan systeemi että painikkeesta tulee aina uusi rivi joka sisältää tuon makron, jolloin edellinen rivi siirtyy rivin alaspäin ja tuo makro ei enää toimi...


      • hurtoze kirjoitti:

        miten tuon saisi sillä tavalla ettei se olisi rivinumeroon sidonnainen tuo makro.

        Pitäisi saada aikaan systeemi että painikkeesta tulee aina uusi rivi joka sisältää tuon makron, jolloin edellinen rivi siirtyy rivin alaspäin ja tuo makro ei enää toimi...

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If IsNumeric(Target) Then
        Target.Offset(0, 1) = Target.Offset(0, 1) Target
        Else
        MsgBox "syott?m?si arvo ei ollut luku! "
        Target.Select
        Exit Sub
        End If
        End If
        End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If IsNumeric(Target) Then
        Target.Offset(0, 1) = Target.Offset(0, 1) Target
        Else
        MsgBox "syottamasi arvo ei ollut luku! "
        Target.Select
        Exit Sub
        End If
        End If
        End Sub


      • hurtoze
        kunde kirjoitti:

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If IsNumeric(Target) Then
        Target.Offset(0, 1) = Target.Offset(0, 1) Target
        Else
        MsgBox "syott?m?si arvo ei ollut luku! "
        Target.Select
        Exit Sub
        End If
        End If
        End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If IsNumeric(Target) Then
        Target.Offset(0, 1) = Target.Offset(0, 1) Target
        Else
        MsgBox "syottamasi arvo ei ollut luku! "
        Target.Select
        Exit Sub
        End If
        End If
        End Sub

        Tämä moduulijuttu on aika uutta meikäläiselle, joten jos hieman lisää apua.

        >visual basic >insert >module/class module (kumpi) >sitten tuo koodin pätkä, entäs sitten miten tuo siirretään tai tallennetaan taulukkoon ja miten/mistä sen saa toimimaan taulukossa.


      • hurtoze kirjoitti:

        Tämä moduulijuttu on aika uutta meikäläiselle, joten jos hieman lisää apua.

        >visual basic >insert >module/class module (kumpi) >sitten tuo koodin pätkä, entäs sitten miten tuo siirretään tai tallennetaan taulukkoon ja miten/mistä sen saa toimimaan taulukossa.

        Taul1 tai mihinka olemassa olevaan taulukossa haluat koodin toimivan liita se ko taulukon moduuliin Projektin hallinta/Excelin objektit.Taulukon moduulit(niissa on taulukon kuva) on ThisWorkbook(vihrea x valkealla paperilla) moduulin ylapuolella.Ala lisaa uutta moduulia.
        nyt lisaa myos rivin, olikin tullut tuplana toi koodi...

        Sub Worksheet_Change(ByVal Target As Range)
        On Error GoTo virhe:
        Application.EnableEvents = False
        If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If IsNumeric(Target) Then
        Target.Offset(0, 1) = Target.Offset(0, 1) Target
        Target.Offset(1, 0).EntireRow.Insert
        Else
        MsgBox "syottamasi arvo ei ollut luku! "
        Target.Select
        GoTo virhe
        End If
        End If
        virhe:
        Application.EnableEvents = True
        End Sub


      • hurtoze
        kunde kirjoitti:

        Taul1 tai mihinka olemassa olevaan taulukossa haluat koodin toimivan liita se ko taulukon moduuliin Projektin hallinta/Excelin objektit.Taulukon moduulit(niissa on taulukon kuva) on ThisWorkbook(vihrea x valkealla paperilla) moduulin ylapuolella.Ala lisaa uutta moduulia.
        nyt lisaa myos rivin, olikin tullut tuplana toi koodi...

        Sub Worksheet_Change(ByVal Target As Range)
        On Error GoTo virhe:
        Application.EnableEvents = False
        If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If IsNumeric(Target) Then
        Target.Offset(0, 1) = Target.Offset(0, 1) Target
        Target.Offset(1, 0).EntireRow.Insert
        Else
        MsgBox "syottamasi arvo ei ollut luku! "
        Target.Select
        GoTo virhe
        End If
        End If
        virhe:
        Application.EnableEvents = True
        End Sub

        mutta tyhmä kun olen en kyllä vieläkään ymmärrä miten saan tuon taulukossani toimimaan. miten palaan takaisin exceliin, pitääkö tuo moduuli tallentaa jotenkin ja miten sen nyt saan taulukossani laskemaan kuten ensimmäisessä viestissäni toivoin....


      • hurtoze kirjoitti:

        mutta tyhmä kun olen en kyllä vieläkään ymmärrä miten saan tuon taulukossani toimimaan. miten palaan takaisin exceliin, pitääkö tuo moduuli tallentaa jotenkin ja miten sen nyt saan taulukossani laskemaan kuten ensimmäisessä viestissäni toivoin....

        liitä makro ohjeiden mukaan ja tallenna työkirja, Makro toimii siinä taulukossa mihin koodin liitit automaattisesti. Eli kun syötät luvun A sarakkeeseen lisää sen vastaavaan B sarakkeen lukuun. Ei toimi muissa sarakkeissza vain ja ainosataan kun A sarakkeen solun arvo muuttuu


      • hurtoze
        kunde kirjoitti:

        liitä makro ohjeiden mukaan ja tallenna työkirja, Makro toimii siinä taulukossa mihin koodin liitit automaattisesti. Eli kun syötät luvun A sarakkeeseen lisää sen vastaavaan B sarakkeen lukuun. Ei toimi muissa sarakkeissza vain ja ainosataan kun A sarakkeen solun arvo muuttuu

        Kiitos vaan, upposihan se oppi kovempaankin kalloon kun väkisin runnoi...


    • taulukon moduuliin...

      Private Sub Worksheet_Change(ByVal Target As Range)
      On Error Resume Next
      If Not Intersect(Target, Range("A1")) Is Nothing Then
      If IsNumeric(Target) Then
      Range("B1") = Range("B1") Range("A1")
      Else
      MsgBox "syottämäsi arvo ei ollut luku! "
      Range("A1").Select
      Exit Sub
      End If
      End If
      End Sub

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

    Luetuimmat keskustelut

    1. Päivän Sanna: Nvidia sijoittaa miljardi dollaria Nokian osakkeisiin

      Nvidia merkitsee osakkeet 6,01 Yhdysvaltain dollarin osakekohtaisella merkintähinnalla tavanomaisten toteutumisehtojen t
      Maailman menoa
      57
      5582
    2. Palkansaajilta kupattiin 27,5 mrd euroa työeläkkeisiin

      Jo pelkän himmelin toimintakulut olivat 400 miljoonaa euroa, jolla olisi mukavasti tuottanut myös sote-palveluja hyvinvo
      Maailman menoa
      95
      3468
    3. Suomessa Pohjoismaiden tyhmimmät demarit......aijaijai..

      Lasse Lehtinen sanoo suoraan, että Ruotsissa on fiksummat demarit kuin Suomessa. Ja Tampereella fiksummat demut kuin Hel
      Maailman menoa
      47
      3362
    4. Lehtinen: "Oli demareidenkin onni, että valkoiset voittivat sodan 1918"

      Lasse Lehtisen mukaan vasemmalla on radiohiljaisuus hänen uutuuskirjastaan, "Läheltä piti. Kansakunnan hurjat hetket" L
      Maailman menoa
      77
      2565
    5. SDP:n valtuutettu valehtelee koulutuksensa

      SDP:n helsinkiläinen kaupunginvaltuutettu Mahad Ahmed käyttää maisterin titteliä suoritettuaan 60 opintopisteen epäviral
      Maailman menoa
      61
      2428
    6. Nepotismi jytkyttää porvaristossa

      Taas uutisoidaan, että useampi perussuomalainen kansanedustaja on palkannut oman perheenjäsenensä eduskunta-avustajaksi
      Maailman menoa
      76
      1918
    7. Persut palkkaavat verorahoilla

      avustajikseen lapsiaan ja naisystäviään. Juuso on palkannut avustajakseen oman poikansa. Hänen koulutustaustastaan ei
      Maailman menoa
      318
      1785
    8. Anteeksi T

      Aamulla olit iloisena huomenta toivottamassa ja minä naama mutrussa sanoi huomenet takaisin. Tajusin vasta yläkerrassa
      Ikävä
      14
      1337
    9. Ville Rajainmäki, 25, omaishoitaja

      Hän on 65 eläkeikääntyneen avustajana 24/7 Kerrankin omaishoitajaa arvostetaan ja maksetaan asiaankuuluvaa, 3000€, pal
      Maailman menoa
      28
      1188
    10. Harmittaako että

      Annoit niin paljon positiivista huomiota ja rakkautta kaivatullesi
      Ikävä
      140
      1125
    Aihe