Excelin leikepöytä puhtaaksi

kevike

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

317

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kevike

      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

    • kunde

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Kansalla on oikeus tietää miksi persut pettävät

      Koko kulunut hallituskausi on kysytty persuilta, minkä vuoksi he ovat pettäneet käytännössä jokaisen vaalilupauksen, ain
      Maailman menoa
      59
      7474

    2. Venäjän armeijan evp-upseeri: Armeija surkeassa tilassa, jonka läpäisee kaiken kattava

      valehtelu. Venäläiset alkaneet pohtia julkisesti maan todellisia tappioita. Z-bloggari ja 3. luokan kapteeni (evp.) Mak
      Maailman menoa
      123
      2906

    3. Minkälaisen viestin

      Laittaisit ikävöinnin kohteelle, jos rohkenisit?
      Ikävä
      142
      1746

    4. Kansalla on oikeus tietää mikä on SDP:n talousohjelma jolla maan talous

      saadaan nousuun? Miksi puolue piilottelee sitä, vai eikö sitä ole? Tähän asti olemme vaan saaneet kuulla hallituksen ha
      Maailman menoa
      65
      1639

    5. Ammattiliitto 900 euroa/vuosi - Työttömyyskassa 72 euroa/vuosi

      Ammattiliitosta eroamalla voi säästää jopa 800 euroa vuodessa. Mitä enemmän tienaat, sitä enemmän maksat liitolle. Esim
      Maailman menoa
      115
      1448

    6. Miten voit olla niin tyhmä

      että et tajunnut että sua vedätettiin? Tietäisitpä miten hyvät naurut on saatu. Naiselle
      Tunteet
      167
      1384

    7. Missä vaiheessa

      Päätit irl luovuttaa minun suhteeni?
      Ikävä
      129
      1116

    8. Millaisena uskot

      Kaivattusi kokevan tunteensa?
      Ikävä
      73
      817

    9. Kyriake=Kirkko

      Kirkko, Kyriake Kirkko-sana tulee kreikankielen sanasta Kyriake=Herran omat, Kristuksen omaksi kastettujen suuri joukko
      Kaste
      47
      802

    10. Mitä haluat eniten

      Kaivattusi kanssa?
      Ikävä
      51
      707
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt