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

327

Ää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. Suomessa on meneillään boomereiden kosto

      1990-luvun lamassa osumaa saaneet sukupolvet toivovat sen jälkeen syntyneille sukupolville kärsimystä porvareita äänestä
      Maailman menoa
      45
      2418

    2. Petteri Orpon kommentti persujen väkivaltaan?

      Hiirenhiljaa taas on, kun Tampereella persulahkon ääriosasto pahoinpiteli kantasuomalaisen tytön. Missä on pääministeri
      Maailman menoa
      39
      1700

    3. Onko sinulla jalostettu koira? Nämä tekijät altistavat koiran sairastumiselle

      Moni Suomessa suosittu koirarotu on sairas ulkonäkökeskeisen jalostuksen ja ääripiirteiden vuoksi. Erityisesti tietyt t
      Koirat
      24
      1453

    4. Mitä ikävöit eniten

      kaivatussasi? 🫶
      Ikävä
      89
      1432

    5. IPCC romahtaa

      Mitenkäs tässä nyt näin kävi? Ilmastohourimoinnin tukijalka myöntää, ettei mitään ilmastokatastrofia olekaan. Eikös tääl
      Ilmastonmuutos
      32
      1171

    6. Miten voit vain

      Olla kuin mitään ei olisi?
      Ikävä
      135
      1125

    7. Anabaptismin kirous

      Uudestikastetut lahkolaiset joutuvat valheen kierteeseen. He joutuvat herjaamaan lapsena saamaanssa kastetta nimeen Isä
      Kaste
      417
      1082

    8. Pelolla pakottaminen

      Kristinusko on tuovinaan valoa ja toivoa, mutta ensin pitää olla pimeyttä ja toivottomutta jotta joku valoa ja toivoa ha
      Kaste
      624
      926

    9. Robotiikka korvaa tulevaisuudessa seurustelusuhteet

      Haluan herättää keskustelua aiheesta. Asiantuntijoiden mukaan robottien kehitys on 10-15 vuoden päässä siitä että voidaa
      Sinkut
      240
      911

    10. kamera hakokylässä

      kamera kuvaamassa yleistä tietä laittomasti ristauksessa hakokylä-raatevaara!
      Hyrynsalmi
      17
      853
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt