makro toimimaan useammassa rivissä

kuis

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

5

103

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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.

    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Jalankulkija kuoli. Poliisi etsii mustaa BMW Coupe -autoa, jossa on punertavat vanteet.

      Jalankulkija kuoli jäätyään auton alle Joensuussa – kuljettaja pakeni, poliisi pyytää havaintoja https://www.mtvuutiset.
      Joensuu
      254
      5770

    2. Mikä vasemmistolaisista jankkaavaa vaivaa?

      Pahasti on ihon alle, siis korvien väliin sinne tyhjään tilaan, päässeet kummittelemaan. Ei ole terveen ihmisen merkki
      Maailman menoa
      94
      3519

    3. PÄIVÄN PARAS: Nigerialainen haki turvapaikkaa Suomesta, lähti takas huilaamaan

      kotimaahansa, koska turvapaikan saaminen kesti niin kauan. Ja tämän kertoo ihan Yle, eikä yhtään toimittaja kyseenalaist
      Maailman menoa
      137
      3441

    4. Ohjelma "Rikollisjengien Ruotsi" hyvin paljasti jakautuneen maan

      eli ns. ruotsalaiset yhdellä puolella, muslimit ja muut kehitysmaalaiset toisella puolella. Siinäkin hyvin näki mitä ma
      Maailman menoa
      42
      3083

    5. Vassarina hymyilyttää vaurastuminen persujen kustannuksella

      Olen sijottanut määrätietoisesti osan Kelan tuista pörssiosakkeisiin, ja salkku on paisunut jo toiselle sadalle tuhanne
      Maailman menoa
      82
      2999

    6. Riikka runnoo: Elisalta potkut 400:lle

      Erinomaisen hallitusohjelman tavoite 100 000 työllistä lisää yksityisellä sektorilla on kohta saavutettu. Toivotaan toiv
      Maailman menoa
      95
      2813

    7. Pidennetään viikko 8 päiväiseksi

      Ja jätetään työpäivien määrä nykyiseen 5:een. Tuo olisi kompromissiratkaisu vellovaan keskusteluun työajan lyhentämisest
      Maailman menoa
      17
      2460

    8. Pääseekö kuka tahansa hoitaja katselemaan kenen tahansa ihmisen terveystietoja?

      "Meeri selaili puhelinta uteliaisuuttaan ja katuu nyt – Moni hoitaja on tehnyt saman rikoksen Tuttujen ihmisten asiat k
      Maailman menoa
      111
      2381

    9. Miksi eristäydyt?

      Onko jokin syy kun vetäydyt omiin oloihin?
      Ikävä
      179
      1983

    10. Vapaa- ajan asunto palanut Haapavedellä

      Haapavesi päässyt Iltalehteen Vapaa- ajan asunto palanut 35 neliötä palanut. Missä päin tämä on ollut? Poliisin tutkinn
      Haapavesi
      10
      1515
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt