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

162

    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. Nasima löi Jussille luun kurkkuun

      Nasima kertoi ettei Jussi sovi puhemieheksi, koska sallii rasismin. Mihin toimiin perussuomalaiset ryhtyvät? Kuka nouse
      Maailman menoa
      533
      9004
    2. Razmyar on säälittävä - puhemiehellä ei ole mitään syytä ottaa kantaa tähän "silmäkohuun"

      jonka toimittajat sai aikaan. Asia ei kuulu puhemiehelle millään lailla. Razmyar haluaa taas vaan huomiota. Mutta jos r
      Maailman menoa
      161
      6200
    3. Miten Eerolan silmäkuvat voivat levitä muutamassa tunnissa ympäri maailmaa?

      Seuraako koko maailma persujen ja erityisesti Eerolan somea reaaliajassa? Edes kansanedustajan itsemurha eduskuntatalos
      Maailman menoa
      376
      5263
    4. Siviilipalvelusmies Halla-aho normalisoi rasismin perussuomalaisissa

      SMP:n tuhkille perustettu puolue ei ollut ihmisiä vastaan, vaan instituutiokriittinen. "Missä EU - siellä ongelma", oli
      Perussuomalaiset
      66
      4759
    5. Suomalaisilta vaaditaan valtavasti suvaitsevaisuutta - miksi sitä ei vaadita muslimeilta

      Suomalaisilta vaaditaan kaikkea, pitää olla suvaitsevainen ja hyväksyä vieraiden tavat, rasisti ei saa olla jne. Miksi s
      Maailman menoa
      100
      4381
    6. Juuri Suomen valtamedian toimittajat teki "silmävääntelystä" sen kohun

      ja ilmeisesti ottivat yhteyttä myös ulkomaisiin medioihin, että katsokaas tätä. Mutta Japanin medioissa on asiaan suhta
      Maailman menoa
      166
      4063
    7. SDP:n kansanedustaja Marko Asell: Suomen myönnettävä maahanmuuton ongelmat

      Hänen mielestään Suomen pitää pyrkiä rajoittamaan jyrkästi turvapaikanhakijoiden pääsyä maahan ja hän arvioi, että maaha
      Maailman menoa
      185
      3952
    8. Sinun ja kaivatun nimikirjaimet

      Mitkä ne on ? Meillä H❤️M 👩‍❤️‍👩
      Ikävä
      92
      1916
    9. Onko sinulla ja kaivatulla

      joku yhteinen tärkeä paikka?
      Ikävä
      105
      1445
    10. sä oot ehkä

      maailman omituisin tyyppi
      Ikävä
      47
      989
    Aihe