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

100

Ää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. Järkyttävä tieto Purrasta

      Purra tapasi nykyisen miehensä täällä. Suomi24:ssä! Tulipa likainen olo. Nyt loppuu tämä roikkuminen tällä palstalla.
      Maailman menoa
      233
      5260

    2. Näin asia on

      Tiedän ettei hän koskaan aio lähestyä minua eikä niin ole koskaan aikonutkaan, eikä lähesty ja enkä minä enää tee sitä k
      Ikävä
      23
      3700

    3. Taas varoitusta lumesta ja jäästä

      Ai kauhea! Vakava säävaroitus Lumi-/jäävaroitus Varsinais-Suomi, Satakunta, Uusimaa, Kanta-Häme, Päijät-Häme, Pirkanmaa,
      Maailman menoa
      18
      2184

    4. Mikseivät toimittajat vaadi Orpoa vastuuseen lupauksistaan

      Missä ne 100.000 uutta työpaikkaa muka ovat? Eivät yhtään missään. Näin sitä Suomessa voi puhua ja luvata mitä sattuu. E
      Maailman menoa
      279
      2123

    5. Aavistan tai oikeastaan

      tiedän, että olet hulluna minuun. Mutta ilman kommunikointia, tällaisenaan tilanne ja kaikki draama ovat mun näkökulmast
      Ikävä
      46
      1378

    6. Mistä erotat onko joku kiinnostunut vai muuten mukava?

      Voi sekaantua yleiseen ystävällisyyteen vai voiko?
      Suhteet
      161
      1249

    7. Poliisi tahtoo pääsyn 4 miljoonan suomalaisen sormenjälkiin.

      https://www.is.fi/digitoday/art-2000011009633.html Tämä sormenjälkiin poliisin pääsy on erittäin tärkeä rikollisten kiin
      Maailman menoa
      128
      1131

    8. Örebro kuolleet lisääntyy.

      Nyt n, 10. Mitähän vielä. Haavoittuneet?. Kuka on ampuja, salaisuus.
      Maailman menoa
      116
      946

    9. Sulla on upeat pakarahalihakset

      todella hyvä muoto...
      Ikävä
      34
      900

    10. Tiistaipäivää pakkastakin on

      Hyvää päivää huomentakin. Olin vähän kaupungilla käymässä 😊❤️🌞❄️☕
      Ikävä
      196
      804
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt