EDELLINEN SOLU+1

PÄÄTTYY VIIMEISEEN

HEI, MILLAISELLA MAKROLLA VOISIN KOPIOIDA KAAVAA ESIM, "D17 1", SOLUSTA D18 ALKAEN AINA SEURAVAAN SOLUUN, KUNNES TULEE VASTAAN VIIMEINEN SOLU JOSSA ARVO SUUREMPI KUIN 1.

10

617

Äänestä

    Vastaukset 10

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      vaikea vastata kun kysymys niin yöimalkainen, mutta kaavan täyttö onnistuu seuraavasti
      esim. kaavat soluihin D18:D50...



      Range("D18").Formula = "=D17 1"
      Range("D18").AutoFill Range("D18:D50")

      • edelliseen

        Vastaus Kunde:
        kaavan täyttö onnistuu seuraavasti
        esim. kaavat soluihin D18:D50...

        Range("D18").Formula = "=D17 1"
        Range("D18").AutoFill Range("D18:D50")

        Kysymykselläni tarkoitin sitä että jos esim. seuraava tyhjä solu on D25, niin kaavan täyttö tapahtuisi soluun D24 saakka. Eli kaavan täyttö päättyisi seuraavaa tyhjää solua edeltävään soluun.

      • kunde
        edelliseen kirjoitti:

        Vastaus Kunde:
        kaavan täyttö onnistuu seuraavasti
        esim. kaavat soluihin D18:D50...

        Range("D18").Formula = "=D17 1"
        Range("D18").AutoFill Range("D18:D50")

        Kysymykselläni tarkoitin sitä että jos esim. seuraava tyhjä solu on D25, niin kaavan täyttö tapahtuisi soluun D24 saakka. Eli kaavan täyttö päättyisi seuraavaa tyhjää solua edeltävään soluun.

        moduuliin..
        Sub Täytä()
        Dim vika As Integer
        vika = Range("D65536").End(xlUp).Row - 1
        Range("D18").Formula = "=D17 1"
        Range("D18").AutoFill Range("D18:D" & vika)
        End Sub

      • vielä!
        kunde kirjoitti:

        moduuliin..
        Sub Täytä()
        Dim vika As Integer
        vika = Range("D65536").End(xlUp).Row - 1
        Range("D18").Formula = "=D17 1"
        Range("D18").AutoFill Range("D18:D" & vika)
        End Sub

        Kun tyhmyys tiivistyy, niin joutuu pyytämään vielä apua!
        Eli ymmärsin varmaan ohjeesi väärin.
        Tein makron seuraavalla tavalla, mutta pysähtyy tuohon kolmannen pilkun kohdalle:

        Sub Makro1()
        '
        ' Makro1 Makro
        '

        '
        Sub Täytä()
        Dim vika As Integer
        vika = Range("D65536").End(xlUp).Row - 1
        Range("D18").Formula = "=D17 1"
        Range("D18").AutoFill Range("D18:D" & vika)
        End Sub

      • kunde
        vielä! kirjoitti:

        Kun tyhmyys tiivistyy, niin joutuu pyytämään vielä apua!
        Eli ymmärsin varmaan ohjeesi väärin.
        Tein makron seuraavalla tavalla, mutta pysähtyy tuohon kolmannen pilkun kohdalle:

        Sub Makro1()
        '
        ' Makro1 Makro
        '

        '
        Sub Täytä()
        Dim vika As Integer
        vika = Range("D65536").End(xlUp).Row - 1
        Range("D18").Formula = "=D17 1"
        Range("D18").AutoFill Range("D18:D" & vika)
        End Sub

        Sub Makro1()
        '
        ' Makro1 Makro
        '

        '
        Dim vika As Integer
        vika = Range("D65536").End(xlUp).Row - 1
        Range("D18").Formula = "=D17 1"
        Range("D18").AutoFill Range("D18:D" & vika)
        End Sub

      • kaksi
        kunde kirjoitti:

        Sub Makro1()
        '
        ' Makro1 Makro
        '

        '
        Dim vika As Integer
        vika = Range("D65536").End(xlUp).Row - 1
        Range("D18").Formula = "=D17 1"
        Range("D18").AutoFill Range("D18:D" & vika)
        End Sub

        Nyt homma toimii muuten, mutta kaavan täyttö pysätyy viimeistä edelliseen soluun. Eli kaavan täyttö pitäisi olottua "seuraava tyhjä solu-1.
        Olisin tietysti voinut sanoa tämän kysymystä esittäessänikin, mutta järki tulee vähän jälkijunassa.

      • kunde
        kaksi kirjoitti:

        Nyt homma toimii muuten, mutta kaavan täyttö pysätyy viimeistä edelliseen soluun. Eli kaavan täyttö pitäisi olottua "seuraava tyhjä solu-1.
        Olisin tietysti voinut sanoa tämän kysymystä esittäessänikin, mutta järki tulee vähän jälkijunassa.

        Sub Makro1()
        '
        ' Makro1 Makro
        '

        '
        Dim vika As Integer
        vika = Range("D65536").End(xlUp).Row
        Range("D18").Formula = "=D17 1"
        Range("D18").AutoFill Range("D18:D" & vika)
        End Sub

      • yksi korjaus
        kunde kirjoitti:

        Sub Makro1()
        '
        ' Makro1 Makro
        '

        '
        Dim vika As Integer
        vika = Range("D65536").End(xlUp).Row
        Range("D18").Formula = "=D17 1"
        Range("D18").AutoFill Range("D18:D" & vika)
        End Sub

        Kiitos "Kunde"!
        Nyt homma toimii muuten paisi, jos seuravan tyhjän solun jälkeen sattuukin olemaan sellaisia soluja joiden arvo on enemmän kuin nolla, niin kaavan täyttö jatkuukin sinne asti. Vimpan päälle kaavan täytön pitäisi päättyä ensimmäisen pötkyn loppuun.

      • ...
        yksi korjaus kirjoitti:

        Kiitos "Kunde"!
        Nyt homma toimii muuten paisi, jos seuravan tyhjän solun jälkeen sattuukin olemaan sellaisia soluja joiden arvo on enemmän kuin nolla, niin kaavan täyttö jatkuukin sinne asti. Vimpan päälle kaavan täytön pitäisi päättyä ensimmäisen pötkyn loppuun.

        muuta rivi
        vika = Range("D18").End(xlDown).Row-1

      • "Kunde"
        ... kirjoitti:

        muuta rivi
        vika = Range("D18").End(xlDown).Row-1

        Nyt toimii. Poistin vielä rivin lopusta sen -1

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Riikka Purra on mukana Suomen huutokauppakeisari -sarjassa

      Suomen huutokauppakeisari on tavallisten suomalaisten ohjelma. Sarjan suosiosta kertoo se, että nyt alkaa jo 19. kausi t
      Maailman menoa
      198
      1841

    2. Kuuleppas

      ensimmäiset naissuhteet toimii miehelle eräänlaisena oppikouluna, mutta hän ei välttämättä itse ymmärrä oppineensa mitää
      Ikävä
      268
      1256

    3. Gallup: Kansalaiset eivät usko velkajarruun

      Puolet suomalaisista ei usko velkajarrun vaatimien sopeutusten toteutuvan, kertoo Iro Researchin kyselytutkimus. Kokoom
      Maailman menoa
      68
      1032

    4. Mulla ei ole Suomessa enää mitään

      4 vuotta joutuu asumaan henkisessä vankilassa. Sitten voi muuttaa takaisin ulkomaille.
      Turku
      188
      963

    5. Kuinka nainen jaksat ja voit

      Toivottavasti hyvin.
      Ikävä
      63
      924

    6. Provider miehistä..

      Tietyt miehet puhuvat ilkeästi naisista, jotka haluavat elää miehen tuloilla. Eikö? Mutta miksi tietyt miehet siitä pah
      Ikävä
      252
      832

    7. Ethän mies vielä

      luovu meistä? Haluaisin jo sun syliin.
      Ikävä
      63
      820

    8. Sinulle nainen

      En ehkä koskaan osannut sanoa tätä oikein. Minun vaikeuteni luottaa liittyi ennen kaikkea menettämisen pelkoon. Siihen
      Ikävä
      66
      806

    9. Haaveilen edelleen

      Sinusta aika ajoin
      Ikävä
      52
      788

    10. Mä oon kallistumassa

      Rikosilmoitukseen!
      Suhteet
      180
      775

    11. Sut.

      Tuhotaan. :)
      Tunteet
      94
      764

    12. Yt:t kunnassa päättyi

      Oliko nämä tarpeelliset ja ratkeaako taloushuolet näiden avulla? Lehdessä ilmoitettujen lukujen perusteella lisää on tul
      Lappajärvi
      76
      692

    13. Tiedätkö sitä

      Että sinun äänesi on ihanan pehmeä
      Ikävä
      42
      686

    14. Ethän voinut nainen tietää, että rikot rikotun

      Omaa elämää taas mietin aamuyön tunteina. En vieläkään löytänyt muistin sokkeloista ainuttakaan onnen hetkeä. Kaipuu on
      Ikävä
      72
      672

    15. Martsusta tuli leuhka

      Ja ylimielinen. Hän ei nosta persettäkään ilmaseksi . Luulempa et nämä ei tee hyvää hyvinvointivalmennuksille.... Nannal
      Kotimaiset julkkisjuorut
      204
      663

    16. Hei rakkaani.

      Kohtaaminen lähestyy. Miten teemme sen? Kumpi ottaa yhteyttä vai törmäämmekö jossain sattumalta? Tuleva vaimosi
      Ikävä
      50
      653

    17. Tulisitpa käymään joskus vielä

      Olisi niin kiva nähdä pitkästä aikaa. Oletko vielä joskus tulossa?... Niin monet muutoksen tuulet puhaltavat, olisi lohd
      Ikävä
      25
      610

    18. Kuisla Group Oy jättänyt yrityssaneeraushakemuksen

      Samalla yrityssaneeraukseen on hakeutunut Kuisla henkilökohtaisesti ja Seinäjoen Motelli Oy, joka omistaa Sorsanpesän ki
      Seinäjoki
      27
      609

    19. Mitä muistoja on naisesta?

      🤔
      Ikävä
      31
      608

    20. Kiulu myynnissä!

      Kiulu hakee taas uutta yrittäjää. https://www.yritysporssi.fi/etela-pohjanmaa-lansi-suomi-finland/myytavat/yritykset/ma
      Ähtäri
      26
      568
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt