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

604

Äänestä

    Vastaukset

    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. Sofia Virta: bänet!

      Matkailuautoilija metsänomistaja puoliso on nyt entisen teeren poikia, ja Sofia tekee comebackin vapaille markkinoille.
      Maailman menoa
      82
      1670

    2. "Suomi voisi ottaa taloudessa oppia Espanjasta"

      "Espanjassa talouspolitiikka on löysempää, mutta velka-aste on kääntynyt jopa laskuun.", pohdiskelee Suomen seuraava pää
      Maailman menoa
      139
      1625

    3. Kokoomus: SDP johtaa kansalaisia harhaan

      (Umpityhmät palstademarit ovat taas uskoneet Lindtmanin höpötykset Espanjasta.) SDP harhaanjohtaa kansalaisia talouspol
      Maailman menoa
      16
      1311

    4. Talousasiantuntija sanoo säästämisestä

      " parin kuukauden tulo on sellainen, joka voi olla vaikka tilillä tai jossain korkorahastossa, eikä se ole tuottohakuine
      Sinkut
      246
      1117

    5. Lieksa tukee kuntoutumista reilusti

      Lieksan sosiaalitoimi käynnistää uuden tukihankkeen – työttömille veneitä hyvinvoinnin edistämiseksi Lieksan sosiaalito
      Lieksa
      64
      909

    6. Siinäpä jäät

      Punapää kaipaamaan, kun päätän maallisen vaellukseni. Oma oli valintasi. Sillä minä en jaksa enää kovin pitkää tätä. Ole
      Ikävä
      78
      862

    7. Miltä se nainen tuntuu?

      kun kukaan ei oo ylpee susta?
      Ikävä
      96
      801

    8. Nato on käytännössä kuollut!

      Puolustusliitto Nato on toki natissut liitoksistaan ennenkin, mutta koskaan aiemmin sen vahvin maa Yhdysvallat ei ole uh
      NATO
      265
      799

    9. Nyt se on varmaa tieoa - kuntaliitos

      Alavus ja Ähtäri liitetään Seinäjokeen. Näin on erään edustajan mukaan päätetty ja asia tulee julkiseksi ensi viikolla.
      Ähtäri
      26
      713

    10. Oot mun sielunpuolikas

      Nainen. Harmi vaan että tavattiin väärään aikaan ja synnyttiin tälle planeetalle eri aikaan. 👩‍❤️‍👩❤️
      Ikävä
      39
      704
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt