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
105
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
Maatalous- ja yritystuet pois, työeläkevaroilla valtion velka pois
Suomi saadaan eheytettyä kädenkäänteessä, kun uskalletaan tehdä rohkeita ratkaisuja. Maatalous- ja yritystuet ovat hait233093Kirjoittaisit edes jotain josta tiedän
Varmasti oletko se oikeasti sinä. Tänään tälläinen olo. 65666Hei! Halusin vain kertoa.
En tiedä luetko näitä, mutta näimme n.4vk sitten, vaihdoimme muutaman sanan ja tunsin edelleen kipinän välillämme. Katso3623Miten voitkin olla aina niin fiksu
...aina niin huomaavainen, kärryillä ja kartalla. Yritän etsimällä etsiä sinusta jotain vikaa, että saisin pidettyä sydä32561Mistä tietää, onko hän se oikea?
Siitä, kun sitä ei tarvitse miettiä. Siitä, kun hänen olemassa oleminen ja ajatteleminen saa hymyilemään. Siitä, kun ha35547- 40491
Miksi ikävä ei helpotu vuosien jälkeenkään?
Tänään olin ensimmäistä kertaa sinun lähtösi jälkeen tilassa, jossa vuosia sitten nähtiin ensimmäistä kerta. Ollessani3490Sofia Zida puhuu rehellisesti suhteesta Andy McCoyhin: "Se on ollut mulle tavallaan..."
Sofia ja Andy, aika hellyttävä parivaljakko. Sofia Zida on mukana Petolliset-sarjassa. Hänet nähtiin Yökylässä Maria Ve3489- 36485
Tiesitkö? Suomessa lääkäri voi toimia ammatissaan, vaikka hän olisi seksuaalirikollinen
Järkyttävää… Motin mukaan Suomessa lääkäri voi toimia ammatissaan, vaikka hän olisi yksityiselämässään syyllistynyt es17475