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

583

Ää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. Persujen VigeIius noIasi taas itsensä

      Kun uhriutui vuonna 2024 (siis persujen "vahtivuorolla") Tampereella aloittaneen perheryhmäkodin toiminnasta. ”Leviää k
      Maailman menoa
      38
      2396

    2. Persut ei kestä heidän johtajistaan tehtyä huumoria

      Laajalti tiedostettu tosiasia on, että autoritaariset johtajat ja erinäiset diktaattorit eivät kestä heidän kustannuksel
      Maailman menoa
      48
      2020

    3. Kuka omistaa entisen Veljeskodin?

      Kenellä on varaa pitää hiljattain remontoitua rakennusta tyhjillään? Tehdäänkö siitä Suomen kallein kirpputori vai mikä
      Ähtäri
      9
      1956

    4. Vasemmistoliitto peruisi sosiaaliturvan heikennykset

      He palauttaisivat työttömyysturvan ja asumstuen suojaosat, eli saisi jälleen tienata 300 euroa kuukaudessa ilman tukien
      Maailman menoa
      42
      1671

    5. Jos voisit kysyä

      Kaivatultasi vielä yhden kysymyksen, mikä se olisi? Aloitan: Mitä sinä halusit minusta?
      Ikävä
      139
      1408

    6. Oli kiva nähdä sut

      vaikkakin kaukaa ja nopeasti. Tiedän kyllä tasan tarkkaan missä mennään, joten anteeksi jos pilasin päiväsi, ei ollut mi
      Suhteet
      24
      1046

    7. Lamppu syttyi

      Tiedätkö mitä mies, olen aivan yhtä rakastunut suhun. Kyllä. Koita jaksaa eiköhän me kohta nähdä ❤️
      Ikävä
      67
      886

    8. Välillä kyllä naurattaakin tämä kahden aikuisen meininki

      Se nyt on aivan selvä asia että kumpikin on päälakeensa myöten rakastunut, ja sinä se olet koko ajan ollutkin. 😘
      Ikävä
      62
      883

    9. Talk Show isäntä Jimmy Kimmel sai kenkää

      Vasurina heitti sopimatonta läppää murhatusta Charlie Kirkistä tai oikeammin murhaajan poliittisesta taustasta ja kuinka
      Maailman menoa
      119
      878

    10. Jos voisit palata yhteen risteykseen

      ..mikä se elämässäsi olisi?
      Ikävä
      67
      866
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt