Kaavaa haussa

Kiitos kaavasta.....Kutes mun nikki sanoo, en oikee hallitte näitä juttuja. En oo ikuna vääntäny makroo. Se vähä mitä yritin aiheutti virheilmoituksen "Expected end sub"?? Jos suinkin viittisit sillee ihan rautalangasta vielä vääntää selkokielelle ton tekniikan... Kiitos!

ihanpönttö kirjoitti:

Kiitos kaavasta.....Kutes mun nikki sanoo, en oikee hallitte näitä juttuja. En oo ikuna vääntäny makroo. Se vähä mitä yritin aiheutti virheilmoituksen "Expected end sub"?? Jos suinkin viittisit sillee ihan rautalangasta vielä vääntää selkokielelle ton tekniikan... Kiitos!

Lue lisää

syötä haluamasi luku vaikkapa soluun A1 näin: =123.
Kun haluat lisätä summaa, valitse solu A1, mene kaavariville ja kirjoita =123:n perään haluamasi luku vaikkapa 150. Aina kun valitset solun A1 näet kaavarivillä lisätyt luvut ja itse solussa kumulatiivisen arvon..... No joo.....

yksinkertaisesti kirjoitti:

syötä haluamasi luku vaikkapa soluun A1 näin: =123.
Kun haluat lisätä summaa, valitse solu A1, mene kaavariville ja kirjoita =123:n perään haluamasi luku vaikkapa 150. Aina kun valitset solun A1 näet kaavarivillä lisätyt luvut ja itse solussa kumulatiivisen arvon..... No joo.....

Lue lisää

tämä viesti sinun mielestäsi tuohon kysymykseen...

vastaakos kirjoitti:

tämä viesti sinun mielestäsi tuohon kysymykseen...

Ihan varmaan toimaava vaihtoehto:) Tattis vaan ajatuksesta! Tietysti aina "fiinimpää" hienoilla kaavoilla, mutta hyvä näin.

tietää miten tuo sinne vba:han kirjoitetaan ja miten saadaan toimivaksi. Kokeilin monta kertaa, kerran sain toimimaan itse toiminnon yhden kerran vaan en toista :=) No, ei se mitään, harmi kun excelin ohjeissa ei ole vba:n suomenkielistä ohjetta millä pääsisi edes jyvälle.

kiinnostaisi myös kirjoitti:

tietää miten tuo sinne vba:han kirjoitetaan ja miten saadaan toimivaksi. Kokeilin monta kertaa, kerran sain toimimaan itse toiminnon yhden kerran vaan en toista :=) No, ei se mitään, harmi kun excelin ohjeissa ei ole vba:n suomenkielistä ohjetta millä pääsisi edes jyvälle.

Lue lisää

Kiinnostais kyllä kans tietää systeemi ja nähdä loppuun asti, mutta liekö Kundella kärsivällisyyttä kertoo näin matalalle tasolle?? Näyttäis ainaki homma olevan hallussa.

ihanpönttö kirjoitti:

Kiinnostais kyllä kans tietää systeemi ja nähdä loppuun asti, mutta liekö Kundella kärsivällisyyttä kertoo näin matalalle tasolle?? Näyttäis ainaki homma olevan hallussa.

Kenkunkielinen ohje
http://www.ozgrid.com/VBA/run-macros-change.htm

ihanpönttö kirjoitti:

Kiinnostais kyllä kans tietää systeemi ja nähdä loppuun asti, mutta liekö Kundella kärsivällisyyttä kertoo näin matalalle tasolle?? Näyttäis ainaki homma olevan hallussa.

Eikös se onnistu kun kopioit tuon Kunden makron Private sanasta lähtien leikepöydälle ja menet excelliin ja valitset hiiren oikealla korvalla sen välilehden johon makron haluat ja siitä näytä koodi sen jälkeen aukeaa vba johon vain kopioit äskeisen koodin, sen jälkeen voit sammuttaa vba ja kokeilla solua A1.

joku kirjoitti:

Eikös se onnistu kun kopioit tuon Kunden makron Private sanasta lähtien leikepöydälle ja menet excelliin ja valitset hiiren oikealla korvalla sen välilehden johon makron haluat ja siitä näytä koodi sen jälkeen aukeaa vba johon vain kopioit äskeisen koodin, sen jälkeen voit sammuttaa vba ja kokeilla solua A1.

Lue lisää

vaan ei toimi.... terv. ulkopuolinen.

tuotakin kokeilin kirjoitti:

vaan ei toimi.... terv. ulkopuolinen.

hyvin pelaa,kun tekee just noin,toinen ulkopuolinen...

se toimii kirjoitti:

hyvin pelaa,kun tekee just noin,toinen ulkopuolinen...

niin ei toimi - tai jos vba:ssa testaa f5:llä niin heittää nollaksi vaan sen jälkeen ei toimi! Vika on minussa, tiedän.....

teen just noin kirjoitti:

niin ei toimi - tai jos vba:ssa testaa f5:llä niin heittää nollaksi vaan sen jälkeen ei toimi! Vika on minussa, tiedän.....

.. ny toisella toimaa ja toisella ei?? Ite vasta odotan töistä pääsyä, että pääsisin koklaamaan tota uutta ohjetta. Paan korteni tähän kekoon jahka testi läpäisty.

joku kirjoitti:

Eikös se onnistu kun kopioit tuon Kunden makron Private sanasta lähtien leikepöydälle ja menet excelliin ja valitset hiiren oikealla korvalla sen välilehden johon makron haluat ja siitä näytä koodi sen jälkeen aukeaa vba johon vain kopioit äskeisen koodin, sen jälkeen voit sammuttaa vba ja kokeilla solua A1.

Lue lisää

Löysin tovin kokeiluun, nopea homma ja - kaava toimi!! MUTTA se ei LISÄNNYT lukua, vaan kertoi sen kahdella. Jos pani A1:een 3, tuli B1:een 6, jos pani 2, tuli 4 jne. Eli tos kaavas pitäis ny muuttaa jotain, koska idea on se, että kun panen A1:een esim. 4, tulee B1:een 4. Kun seuraavan kerran panen A1:een vaikkapa 12, pitää B1:een tulla silloin 16 jne.Eli summaa pitää lykätä B1:een niin että A1:n voi nollata ilman, että B1 luku muuttuu. Nyt se toimaa, mutta ker´tomalla, ei summaamalla Eli pientä fiilausta......mutta miten....?

ihanpönttö kirjoitti:

Löysin tovin kokeiluun, nopea homma ja - kaava toimi!! MUTTA se ei LISÄNNYT lukua, vaan kertoi sen kahdella. Jos pani A1:een 3, tuli B1:een 6, jos pani 2, tuli 4 jne. Eli tos kaavas pitäis ny muuttaa jotain, koska idea on se, että kun panen A1:een esim. 4, tulee B1:een 4. Kun seuraavan kerran panen A1:een vaikkapa 12, pitää B1:een tulla silloin 16 jne.Eli summaa pitää lykätä B1:een niin että A1:n voi nollata ilman, että B1 luku muuttuu. Nyt se toimaa, mutta ker´tomalla, ei summaamalla Eli pientä fiilausta......mutta miten....?

Lue lisää

Vain ensimmäisen A1:een pantavan luvun kohdalla tapahtuu 2:lla kertominen, sen jälkeen lisättävät luvut summautuvat ihan oikein ja normaalisti. Miksi ensimmäinen syötettävä luku A1:ssä kertoutuu kahdella B1:ssä???

ihanpönttö kirjoitti:

Vain ensimmäisen A1:een pantavan luvun kohdalla tapahtuu 2:lla kertominen, sen jälkeen lisättävät luvut summautuvat ihan oikein ja normaalisti. Miksi ensimmäinen syötettävä luku A1:ssä kertoutuu kahdella B1:ssä???

Lue lisää

ei kyllä pitäisi noin tapahtua, mutta kokeiles tällä
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Target = Range("A1") Then
Range("B1") = Range("B1") Range("A1")
End If
Application.EnableEvents = True
End Sub

jos haluat suoraan samaan soluun kumulatiivisen laskurin niin tolla tällä se onnistuuu

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Static Summa As Double
On Error Resume Next
Application.EnableEvents = False
If Target.Address = "$B$1" Then 'solu B1
Summa = Summa Target.Value
Target.Value = Summa
End If
Application.EnableEvents = True
End Sub

kunde kirjoitti:

ei kyllä pitäisi noin tapahtua, mutta kokeiles tällä
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Target = Range("A1") Then
Range("B1") = Range("B1") Range("A1")
End If
Application.EnableEvents = True
End Sub

jos haluat suoraan samaan soluun kumulatiivisen laskurin niin tolla tällä se onnistuuu

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Static Summa As Double
On Error Resume Next
Application.EnableEvents = False
If Target.Address = "$B$1" Then 'solu B1
Summa = Summa Target.Value
Target.Value = Summa
End If
Application.EnableEvents = True
End Sub

Lue lisää

Nyt toimaa!! Se Kunden ensimmäinen kahdesta uudesta kaavasta tykitti heti. Kiitos:))!

Samalla tavalla edellisen if-lauseen perään.
If Target = Range("G8") Then
Range("H9") = Range("H9") Range("G8")
End If