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
121
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
Näin Enter-napilla tehdään miljardi euroa - Helsingissä
"Ei se nyt niin kovin ihmeelliseltä näytä. Tavallinen nappi, musta muovinpala, joka kököttää parikymppiä maksavan mustan1711033Eipä tunnu se "pedofilia" huuto kiinnostavan
Lähinnä se sekohäirikkö ressukka joutuu itse vastaileen itselleen, mitään näkyvyyttä ei saa, palstalla ylipäätään on hyv7710184- 474251
- 243952
Jätä minut rauhaan
En pidä sinusta. Lopeta seuraaminen. Älä tulkitse keskustelutaitoa tai ystävällisyyttä miksikään sellaiseksi mitä ne eiv353746Ben Z: "SDP ei ole ollut 50 vuoteen näin huolissaan velasta"
"– Olen ollut eduskunnassa noin 50 vuotta, eikä SDP ole koskaan ollut niin huolissaan velasta kuin nyt. Se on tietysti h573649No kyllä te luuserit voitte tehdä mitä vaan keskenänne, sitä en ymmärrä miksi pelaat,nainen
Pisteesi silmissäni, edes ystävätasolla tippui jo tuhannella, kun sain selville pelailusi, olet toisen kanssa, vaikka ol413483Perussuomalaiset kirjoittaa vain positiivisista uutisista
Ei tarvitse palstaa paljon seurata, kun sen huomaa. Joka ainoa positiivinen uutinen Suomen taloudesta tai ylipäätään, ni73385- 533173
- 422895