lukuja on riveillä 4-23, ja lukuja lisäillään sarakkeisiin koko ajan. tarkoitus on löytää joka rivin viimeinen positiivinen luku. yhden rivin sain kerrallaan toimimaan alla olevalla koodilla, mutta haluaisin homman toimivan yhdellä napilla, en 20 napilla.
Sub vikaposluku()
Dim arvo
Range("d4").End(xlToRight).Select
arvo = ActiveCell.Value
Do Until arvo >= 0
ActiveCell.Offset(0, -1).Select
arvo = ActiveCell.Value
Loop
Range("c4").Value = arvo
End Sub
makro toimimaan useammassa rivissä
kuis
5
125
Vastaukset
Sub vikaposluku()
Dim Apu As Boolean
Apu = False
Range("C4:C" & Range("D4").End(xlDown).Row) = ""
For i = 4 To Range("d4").End(xlDown).Row
Range("d" & i).End(xlToRight).Select
Do Until (ActiveCell >= 0 And Apu)
If ActiveCell >= 0 Then
Apu = True
End If
ActiveCell.Offset(0, -1).Select
Loop
Range("c" & i).Value = ActiveCell
Next
End Sub
Keep EXCELing
@Kunde- sivusta seurannut
Onko Kunde tuo sinun koodisi ihan oikein.
C4 (eli 1. rivin) vastaus tulee aina väärä. Muille riveille antaa oikean vastauksen.
Jos 4 rivin kaikki luvut ovat positiivisia on vastaus aina toiseksi viimeinen luku.
Jos rivin viimeisin luku on negatiivinen, on vastaus 2 saraketta vasemmalla oleva luku (esim. jos P4 on negatiivinen luku, antaa koodi vastaukseksi N4:sen vaikka O4 olisi positiivinen luku.
Nuo muut rivit toimii kyllä ihan niin kuin pitäisi, vain tämä 1. ei onnistu.
Kysyjän koodi antaa oikean vastauksen C4:seen. - ...
sivusta seurannut kirjoitti:
Onko Kunde tuo sinun koodisi ihan oikein.
C4 (eli 1. rivin) vastaus tulee aina väärä. Muille riveille antaa oikean vastauksen.
Jos 4 rivin kaikki luvut ovat positiivisia on vastaus aina toiseksi viimeinen luku.
Jos rivin viimeisin luku on negatiivinen, on vastaus 2 saraketta vasemmalla oleva luku (esim. jos P4 on negatiivinen luku, antaa koodi vastaukseksi N4:sen vaikka O4 olisi positiivinen luku.
Nuo muut rivit toimii kyllä ihan niin kuin pitäisi, vain tämä 1. ei onnistu.
Kysyjän koodi antaa oikean vastauksen C4:seen.Apuviritys lienee turha. Apumuuttuja on tosi ensimmäisen positiivisen luvun jälkeen.
Sub vikaposluku()
Range("C4:C" & Range("D4").End(xlDown).Row) = ""
For i = 4 To Range("d4").End(xlDown).Row
Range("d" & i).End(xlToRight).Select
Do Until ActiveCell >= 0
ActiveCell.Offset(0, -1).Select
Loop
Range("c" & i).Value = ActiveCell
Next
End Sub
Keep EXCELing
@Kunde- kuis
Parempi myöhään kuin ei milloinkaan, koodi toimi juuri niin kuin pitikin, Kiitos
Ketjusta on poistettu 1 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Silmienvääntelijä-persut pääsivät Japanissa sarjakuvaan
Torille! https://www.hs.fi/kulttuuri/art-2000011943173.html1875075Nato kaatamassa Petterin haaveileman Tunnin junan?
Nato edellyttää pohjoisessa Jäämereltä Rovaniemelle saakka kapearaitesta suoraa rautatieväylää, joka maksaa paperirahaa,254472Donald Trump pääsi samalle listalle Sanna Marinin kanssa
Eli vasemmistolaisen Time-median top 100 jännäihmisten listalle. https://time.com/collections/time100-next-2021/593769993137Älkää vaan sairastuko syöpään Suomessa
Tilaston mukaan Suomi, Slovakia ja Latvia lääkitsee aivan pohjamudissa syöpää. Sairastunutta hoidetaan edelleen vanhana2593039Kyllä, maata ei halua puolustaa nimenomaan punavihreän puolen edustajat
"Esimerkiksi maanpuolustushenki on keskimääräistä alempana naisten, arvoliberaalien, heikossa taloustilanteessa olevien1442934- 522531
- 271939
- 561873
- 771814
- 221787