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

250

    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. Epäily: Oppilas puukotti kolmea Pirkkalan koululla

      Tämänhetkisen tiedon mukaan ainakin kolme oppilasta on loukkaantunut puukotuksessa Pirkkalan Vähäjärven koululla. Myös e
      Pirkanmaa
      164
      4292
    2. Jos olisit täällä

      Tosin en tiiä miks oisit. (Ja hävettää muutenkin kun ei muka muulla tavoin osaa kertoa tätäkään) Jos jollain pienellä
      Ihastuminen
      37
      2494
    3. Tämän hetken

      Terveiset kaivatullesi ⬇️
      Ikävä
      155
      2151
    4. Kesän odotuksia hyrynsalmella

      Kyllä kesällä hyrynsalmellakin on mahdollisuus osallistua kylän menoon monella tavalla . On kaunislehdon talomuseolla
      Hyrynsalmi
      16
      1699
    5. Vieläkö sä toivot

      Meidän välille jotain?
      Ikävä
      81
      1308
    6. Voi Rakas siellä

      Olet ollut mun ajatuksissa taas koko päivän. Olet ihmeellinen kertakaikkiaan ja arvostan sinua niin paljon❤️Minulla ei o
      Tunteet
      24
      1261
    7. Ohhoh! KAJ laukoi suorat sanat somessa - V-sana mainittu!

      Ohhoh! Mitäs mieltä olet tästä huumoriryhmä KAJ:sta? Bara bada bastu on kyllä aikamoinen korvamato... Lue lisää: https
      Euroviisut
      31
      1162
    8. Pirkkalan koulussa puukotus, oppilas puukotti kolmea

      Ilmeisesti tyttöjä ollut kohteena.
      Maailman menoa
      144
      1132
    9. Erika selvisi hienosti ennakkosuosikin paineista

      Hienostihan se meni. Erika jätettiin yksin, eikä häntä tuettu, oli euroviisukiusattu, silti suoriutui ensiluokkaisesti.
      Maailman menoa
      103
      935
    10. Pirre vaatii nyt karhuja ammuttavaksi

      Ylellä taas hauskaa lieksa uutista. Karhujen kannan­hoidollinen metsästys on Lieksan kaupungin mielestä välttämätöntä.
      Lieksa
      115
      860
    Aihe