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

114

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

      Mielestäni kuolemanrangaistus on väärin kaikissa tilanteissa. Vaikka joku olisi murhannut 10 ihmistä, hänen surmaaminen
      Laki ja rikos
      48
      3760

    2. Muistakaa persut, että TE petitte, ei kokoomus

      Miksikö kukaan ei arvostele kokoomusta? No sen vuoksi, että kokoomus noudattaa vaalilupauksiaan. Sen sijaan TE persut,
      Maailman menoa
      183
      3361

    3. Seuraava hallituspohja - Kokoomus, kepu, persut + KD

      Kokoomus saa ainakin 20% kannatuksen ensi vaaleissa, keskusta sanoisin noin 15%, persut todennäköisesti enemmän, ehkä 17
      Maailman menoa
      235
      2897

    4. Outo ilmiö - vasemmistolaiset eivät kirjoita mitään kokoomuksesta

      joka sentään johtaa hallitusta, ja jonka talouspolitiikkaa noudatetaan. Nämä muutamat vasemmistolaiset jotka täällä aina
      Maailman menoa
      71
      2479

    5. Maria Veitola kommentoi soutelija Saarion huomionhakuisuutta

      "Minusta on jotenkin kuvottavaa, kuinka kovalla intensiteetillä Suomi-media seuraa miessankari Jari Saarion merihätää. S
      Kotimaiset julkkisjuorut
      316
      1815

    6. Väestöstä vain vassarit vaihtuvat nopeammin kuin persut

      Kevääseen 2023 verrattuna vassareita 50 prosenttia enemmän, ja persuja 25 prosenttia vähemmän.
      Maailman menoa
      10
      1509

    7. Vihervassarit

      Vihervassarit sitä, vihervassarit tätä. Minulla on paha mt-ongelma. Se tuli lobotomian jälkioireina. Vihervassarit tät
      Maailman menoa
      27
      1391

    8. Lopetan ikävöinnin

      Ei meistä enää koskaan tule mitään. Olen ikävöinyt ja kaivannut enkä saa mitään vastakaikua ja lämpöä. Parempi erillään
      Ikävä
      3
      1361

    9. Muovipusseista pitäisi saada panttimaksu takaisin

      Ostan joka päivä yhden muovipussin, ja niistä palautuu keskimäärin takaisin kaupan pullomaatin yhteydessä olevaan roskik
      Maailman menoa
      41
      1171

    10. Ei ole liian myöhäistä..

      Tule mun luo ja katso silmiin, niin saadaan taas se sanaton yhteys ja sano sitten vain anteeksi rakas ja suutele ja hala
      Ikävä
      3
      1112
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt