Excelin leikepöytä puhtaaksi

Minulla on tietokanta yhdellä lehdellä. Noin 20:llä lehdellä on kutsuja tietokannasta. Sieltä kopioidaan arvoja vba:lla. Työpöytä täyttyy päivän mittaan.
Miten sen saa tyhjättyä ohjelmallisesti, esimerksi jokaisen suoritetun kopioinnin jälkeen?

3

291

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kiitos ratkaisusta. Kokeilin laittaa tietoja soluihin E7-H7. Makro kopioi ne.
      Laitoin vielä A9 ja A10 jotain tekstiä, että "xlDown pelaa".
      Leikepöytä ei täyty nyt!

      Sub Makro1()
      ' Makro1 Makro
      Range("A9").Select
      Selection.End(xlDown).Select
      ActiveCell.Offset(1, 0).Range("A1").Select
      ActiveCell.Offset(0, 0).Range("A1:D1").Value = _
      Sheets("Taul1").Range("E7:H7").Value
      End Sub

    • turhahan niiä sinne leikepäydälle on siirrellä ja kopioida takasin kun sen voi noin tehdä suoraan ilman leikepäytää, niinkuin koodisi nyt tekee,.


      alla hiukan siitittynä toi sama makro . Siinä poistettu vaan turhia toimintoja ja oletusarvoja.

      Sub Makro1()
      ' Makro1 Makro
      Range("A65536").End(xlUp).Offset(1, 0).Resize(, 4) = Sheets("Taul1").Range("E7:H7").Value
      End Sub


      Keep EXCELing
      @Kunde

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

    Luetuimmat keskustelut

    1. Tiedätkö mihin

      Ominaisuuksiin rakastuin sinussa?
      Ikävä
      79
      4426
    2. Purra on kantanut vastuuta täyden kympin arvoisesti

      Luottoluokituksen lasku, ennätysvelat ja ennätystyöttömyys siitä muutamana esimerkkinä. Jatkakoon hän hyvin aloittamaans
      Maailman menoa
      116
      4132
    3. BOIKOTOIN - Ei mitään Suomi.fi postilaatikoita käyttöön

      Ainakaan minulle! Vai että pitäisi alkaa siellä käyädä katselemassa tammikuusta 2026 siis periaatteessa päivittäin että
      Maailman menoa
      168
      3112
    4. Surullista

      Että menetit sen naisen , tosi surullista ja vielä oman tyhmyyden takia ,ymmärrän että se on masentavaa
      Ikävä
      58
      2557
    5. Muuttunut käytös

      Onko kaivattusi käytös muuttunut? Tiedätkö mistä se johtuu? Haluatko kertoa, mitä tapahtui?
      Ikävä
      67
      2407
    6. 155
      2350
    7. Lasse Lehtonen vaatii persuja pyytämään anteeksi aasialaisilta

      Persut ova romahduttaneet Suomen maakuvan parissa päivässä negatiiviseksi rasismillaan ja se alkaa vaikuttamaan jo Suome
      Maailman menoa
      56
      2199
    8. Väkeä oli liikkeellä

      Nyt leijutaan pilvissä. Kun eläinpuistossa oli porukkaa 😆😆 Olihan siellä kun ilmaiseksi pääsivät. Eiköhän se juuri sik
      Ähtäri
      42
      2107
    9. Hallitus on kaadettava ja Orpon on erottava

      Mikään muu hallitus ei ole oman elämäni aikana tuhonnut näin paljon tämän maan taloutta ja työllisyyttä sekä suomen main
      Maailman menoa
      20
      2093
    10. Oliko kiihkeä

      ensimmäinen yö?
      Ikävä
      52
      2032
    Aihe