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

599

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

      Mikä vakava onnettomuus sattunut kisoissa. On peruttu koko kisat. Pelastuskopteri näytti käyvän paikalla.
      Nivala
      10
      5236

    2. Kuinka pitkä välimatka

      on teidän kotien välillä?
      Ikävä
      85
      2875

    3. Eikö me voitais

      Vaan harrastaa seksiä kun muusta ei tule mitään
      Ikävä
      46
      2772

    4. Pitäis vaan lopettaa

      Sinun kanssa yhteydenpito. Alkaa vaan haluamaan enemmän ja tuskin lopulta mikään kohtaisi. Ja ikävä vaan kasvaa ja lähei
      Ikävä
      13
      2140

    5. Oletko huomannut

      Yhden muutoksen?
      Ikävä
      25
      2061

    6. Onko kaivattusi

      …mielestäsi älykäs, tai kenties tyhmä? Oma mielipide.
      Ikävä
      48
      1969

    7. Ikävä uutinen uudesta Unelmia Italiassa -kaudesta

      Unelmia Italiassa -sarja on ollut supersuosittu ja uutta kautta on odotettu. Nyt on tullut se aika, että TV-katsojat pää
      Tv-sarjat
      7
      1873

    8. Epäilen ettet edes

      Kehtaisi liikkua kanssani.
      Ikävä
      42
      1855

    9. Salatut elämät: Lola Odusoga -paljastus - Tämä suosii tiettyjä Salkkarit-faneja!

      Salatut elämät vetää katsojia tv-ruudun äärelle jaksosta, kaudesta ja vuodesta toiseen. Tähän mennessä sarjaa on nähty j
      Salatut elämät
      7
      1791

    10. Lähtisitkö Erikoisjoukot-leirille? Yksi kokelas paljastaa karun totuuden kulissien takaa

      Erikoisjoukot realityssä kokelaat kohtaavat omat henkiset ja fyysiset rajansa. Nyt yksi kokelas paljastaa karun totuuden
      Tv-sarjat
      17
      1791
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt