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

969

    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. Miksi juuri vasemmiston puolelta tulee niin paljon luusereita, kelapummeja jne.

      Tämä asia ihmetyttää suuresti.
      Maailman menoa
      170
      4054
    2. Putin lähti takki auki sotaan....

      Luuli, että kolmessa päivässä hoidetaan, nyt on mennyt 3,5 vuotta eikä voitosta tietoakaan. Kaiken lisäksi putin luuli,
      Maailman menoa
      95
      3386
    3. SDP ylivoimainen ykkönen

      En ole koskaan viitsinyt käydä äänestämässä, mutta nyt SDP:n etumatka on niin kutkuttava, että pakkohan se on vaivautua.
      Maailman menoa
      100
      2746
    4. Polttomoottoriauto on köyhän merkki

      Kun ei ole varaa ostaa sähköautoa, niin joutuu köyhän autoa käyttämään.
      Maailman menoa
      292
      2625
    5. Patteriauton ovia ei saatu auki - kuljettaja koki hirvittävän kuoleman!

      ”Oviongelma johti kuskin kuolemaan kolarissa – tämä ratkaisu saatetaan kieltää kokonaan Sivulliset pyrkivät tempomaan a
      Maailman menoa
      39
      2336
    6. Näitä venäjä-faneja tuntuu edelleen vaan riittävän - kummallista

      ja lähinnä siis ihan suomalaisia. Mitä hienoa ja hyvää he näkevät maassa joka on diktatuuri, maassa jossa ei ole sananv
      Maailman menoa
      159
      2087
    7. Ulkoistin makuaistini Yleisradiolle

      Nyt voimme luottaa siihen, että Virallinen Totuus tekee maistelutyön puolestamme. Me persulandiassa arvostamme priimaa,
      Maailman menoa
      0
      2040
    8. Sanna on pakottaja, domina

      Pakotti sadistisessti työttömät hakemaan töitä, josta seurasi hirmuinen työttömyys. Näin on asia, jos uskomme Hesarin k
      Maailman menoa
      7
      1689
    9. Mies älä

      Odota enää vaan toimi. Pieni vinkkivitonen 🫰💥
      Ikävä
      44
      1107
    10. Harmittaa ettei paluuta entiseen enää ole

      Paluuta entiseen ei ole koska pilasit kaiken.
      Ikävä
      95
      1048
    Aihe