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

133

Ää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. Mitään järkeä?

      Että ollaan erillään? Kummankin pää on kovilla.
      Ikävä
      119
      1682

    2. Noniin rakas

      Annetaanko pikkuhiljaa jo olla, niin ehkä säilyy vienot hymyt kohdatessa. En edelleenkään halua sulle tai kenellekään mi
      Ikävä
      99
      1508

    3. Lasten hyväksikäyttö netissä - Joka 3. nuori on saanut seksuaalisen yhteydenoton pedofiililtä

      Järkyttävää! Lapsiin kohdistuva seksuaalinen hyväksikäyttö verkossa on yhä pahempi ongelma. Ulkolinja: Lasten hyväksikäy
      Maailman menoa
      37
      963

    4. Multa sulle

      Pyörit 24/7 mielessä, kuljet mun mukana, mielessä kyselen sun mielipiteitä, vitsailen sulle, olen sydän auki, aitona. M
      Ikävä
      29
      889

    5. Kumpi vetoaa enemmän sinuun

      Kaivatun ulkonäkö vai persoonallisuus? Ulkonäössä kasvot vai vartalo? Mikä luonteessa viehättää eniten? Mikä ulkonäössä?
      Ikävä
      38
      841

    6. Nainen, olen tutkinut sinua paljon

      Salaisuutesi ei ole minulle salaisuus. Ehkä teimme jonkinlaista vaihtokauppaa kun tutkisimme toisiamme. Meillä oli kumm
      Ikävä
      50
      806

    7. Mies, eihän sulla ole vaimoa tai naisystävää?

      Minusta tuntuu jotenkin, että olisit eronnut joskus, vaikka en edes tiedä onko se totta. Jos oletkin oikeasti edelleen s
      Ikävä
      43
      758

    8. Olet myös vähän ärsyttävä

      Tuntuu, että olet tahallaan nuin vaikeasti tavoiteltava. En tiedä kauanko jaksan tätä näin.
      Ikävä
      37
      750

    9. Okei nyt mä ymmärrän

      Olet siis noin rakastunut, se selittää. Onneksesi tunne on molemminpuolinen 😘
      Ikävä
      56
      748

    10. Onko sulla empatiakykyä?

      Etkö tajua yhtään miltä tämä tuntuu minusta? Minä ainakin yritän ymmärtää miltä sinusta voisi tuntua. En usko, että olet
      Ikävä
      37
      720
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt