Makro solujen täyttämiseen yllä olevalla tiedolla

Mara-75

Hei!
Osaisiko joku viisas neuvoa, miten tehdään seuraavanlainen makro?
Esim. solussa B1 on teksti, vaikkapa nyt "Andorra". Alempana B-sarakkeessa (ei siis tiedetä vielä tässä vaiheessa, missä solussa) on toinen teksti, vaikkapa "Belgia". Edelleen vielä alempana B-sarakkeessa (ja taaskaan ei tiedetä, missä solussa tarkalleen) on seuraava teksti, vaikkapa "Chile". Ja niin edelleen. Ja lopuksi jossakin B-sarakkeen solussa lukee vaikkapa STOP. Tämä solu on B-sarakkeen soluista alimmainen, jossa lukee mitään. Muut kuin tähän asti mainitut solut Andorran ja STOPin välillä B-sarakkeessa ovat tyhjät.
Nyt teksti Andorra pitäisi saada kopioitua kaikkiin B-sarakkeen soluihin, jotka ovat tyhjiä ja Belgian yläpuolella. Belgia taas pitäisi kopioida niihin tyhjiin B-sarakkeen soluihin, jotka ovat alkuperäisen Belgian ja Chilen välissä. Ja niin edelleen. Kopioiminen päättyy, kun solussa lukee se STOP, eli sitä ei enää kopioida.
Tietysti tämän pystyy tekemään helpoimmin, kun vain maalaa Andorran (tai muun solun jossa on tietoa) sekä sen alapuolella olevat tyhjät solut ja painaa CTRL-D, mutta jos näitä kopioitavia on kymmeniä ja tätä joutuu tekemään usean kerran viikossa, niin alkaa kyllästyttää...
Jonkun verran makroista tiedän minäkin, mutta tätä en ole keksinyt... :(

3

164

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ORCL

      moduuliin:

      Sub TäydennäAlas()
      Dim VikaRivi As Integer
      VikaRivi = Range("B1048576").End(xlUp).Row
      Range("B1:B" & VikaRivi).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
      Range("B1:B" & VikaRivi).Value = Range("B1:B" & VikaRivi).Value
      End Sub

    • Mara-75

      Hienoa, toimii!
      Kiitoksia kovasti, voisinpa kiittää paljon kuin tästä oli apua!

    • Auttaminen

      "Voisinpa kiittää....." No pyydä sinua auttaneen tilinumero ja ...

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Suomen kansa haluaa Antti Lindtmanista pääministerin

      Lindtman on miltei tuplasti suositumpi kuin etunimikaimansa Kaikkonen. Näin kertoo porvarimedian teettämä kysely. http
      Maailman menoa
      237
      4185

    2. Vain 21% kannattaa Lindtmania pääministeriksi

      se on selvästi vähemmän kuin puolueen kannatus, mites nyt noin?
      Maailman menoa
      113
      2643

    3. Miten löydän sinut

      Ja saan sanottua kaiken mitä haluan sinulle kertoa? Ja kuinka kuuntelisit minua sen hetken? Kuinka voin ilmaista sen mit
      Ikävä
      41
      2392

    4. Vaikea tilanne

      Hieman kolkuttaa omatuntoa, kun on osoittanut kiinnostusta väärää naista kohtaan. En ymmärrä miten toinen on voinut te
      Ikävä
      116
      1436

    5. Yöllinen autolla kaahari Heinolan seudulla

      Asukkaita häiriköivän nuoren herran autokaahaus keskustelu poistettu, onko jokin hyvävelijärjestelmä käytössä ?
      Heinola
      81
      1436

    6. Milloin kaivatullasi

      .. on nimipäivä?
      Ikävä
      48
      1179

    7. Kehtaisitko näyttäytyä

      kaivattusi seurassa?
      Ikävä
      78
      1097

    8. Ne viimeiset kerrat

      Kun katsoit minua niin lämpimästi. En unohda sitä ❤️
      Ikävä
      59
      963

    9. Missä kunnassa kaivattusi asuu

      Kuinka tarkkaa uskalla sanoa?
      Ikävä
      45
      946

    10. Emme koskaan keskustelleet kasvotusten syistä välirikollemme

      Enkä voisi kertoa perimmäistä rehellistä syytä. Kerroin sinulle pintapuolisen ”paketin” ja otin tavallaan omalle vastuu
      Ikävä
      58
      931
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt