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

87

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

    Luetuimmat keskustelut

    1. Minua odottaa

      Joku todella ihana nainen jossain tulevaisuudessa. Siihen uskon ja luotan. 🤗❤️✨
      Sinkut
      219
      4217
    2. Miten toivoisit

      Teidän välien olevan tällä hetkellä? Tässä tilanteessa?
      Ikävä
      121
      4056
    3. Keksitkö keinon

      Miten voin nähdä ihastusta joka ei myönnä tunteitaan.
      Ikävä
      48
      3662
    4. Haluaisitko nähdä

      Hänet alastomana?
      Ikävä
      67
      3079
    5. Hilirimpsistä

      Hyvää huomenta ja kivaa päivää. Ilmat viilenee. Niin myös tunteet. 🧊☕✨🍁❤️
      Ikävä
      200
      2771
    6. Nainen lopeta pakoon luikkiminen?

      Elämä ei oo peli 😔😟
      Ikävä
      22
      2568
    7. Älä elättele

      Toiveita enää. Ihan turhaa. Sotku mikä sotku.
      Ikävä
      49
      2548
    8. Olet täällä. Mutta ei minulle.

      Nyt olen tästä 100% varma. Satuttaa. T: V
      Ikävä
      20
      2426
    9. T- miehelle....

      Kuka sua rakastaa? Kertoi rakastavansa....
      Suhteet
      41
      2319
    10. Kuule rakas...

      Kerrohan minulle lempivärisi niin osaan jatkaa yhtä projektia? Arvaan jo melkein kyllä toki. Olethan sinä aina niin tyyl
      Ikävä
      41
      2275
    Aihe