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. Törkeä petosepäily Suomussalmella

      Uutisoi maikkari. Uhrin nimiin on nostettu pankkilainaa, hänet on saatu sijoittamaan hevosiin ja ostamaan autoja. Ei ta
      Suomussalmi
      33
      1432

    2. Vieläkö se tarjous

      On voimassa?
      Ikävä
      68
      906

    3. Kysymys miehille ...

      Kertokaapas miehet, että miksi monille miehille on niin hirveän tärkeää määritellä mitä mies saa tehdä ja mitä ei ja mil
      Sinkut
      290
      809

    4. Ttp:llä kuontalot ojennukseen

      Ttp n yrittäjä ilmoitti facessa, että ttp: n tiloihin tulee lokakuun eka vkl parturi. Se tulee parturoimaan vähävaraiste
      Haapavesi
      74
      744

    5. Poliisi etälamautti, sitten pahoinpiteli

      Vaikeasti kehitysvammaisen niin vakavasti että kuoli pian sairaalassa. Ei osannut kehitysvammainen heti noudattaa polii
      Maailman menoa
      256
      687

    6. Hyvää yötä.....M

      Miten me edettäs...............
      Ikävä
      66
      660

    7. Itsensäpaljastelija

      Mikä juttu tämä nyt on. Ulkomaalainen ahdistelee naisia simpsiöllä Ei pysty lukea Lapuansanomista juttua loppuun asti. O
      Lapua
      39
      615

    8. Oot kaunis ja fiksu

      Ja pidän susta kovasti. Tiiäppä se.
      Ikävä
      32
      579

    9. Mies, olen pahoillani kun olen kuvitellut

      Että pitäisit minusta. En sitä mistään tähdistä kuitenkaan lukenut, mulle vaan tuli jostain semmoinen tunne, kun itse ty
      Ikävä
      51
      544

    10. Mikä sua vaivaa

      @?
      Ikävä
      70
      536
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt