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?
Excelin leikepöytä puhtaaksi
3
349
Vastaukset 3
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 Subturhahan 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
- 831059
- 73892
Jasmin Vähäkangas paljastelee
Eilinen päivä on heillä kulunut biitsillä niin silloin tuo äiti ihminen on intoutunut paljastelemaan kunnolla. Laittanut110653- 57650
- 43595
- 30562
Miehet lähtevät itse pois deittailumarkkinoilta
Ovat saaneet tarpeekseen naisista. Tyypillisin poistuja on: Koulutettu, työssäkäyvä, etsii pitkäaikaista parisuhdetta.171553Kangaskylän alkoholi-hurjastelijat
Oppi olkoon että autollessa etanoli kuuluu pääasiassa 95 E10 polttoaineseen, siihenkin vain enimmillään 10% vahvuisena t4546Olen pahoillani mies ihan kaikesta
Et sinä ole edes tehnyt mitään väärää. Eihän kenestäkään ole pakko tykätä. Pyydän anteeksi kaikkea häiriköintiä, joka on61535Oikea nainen
On äärimmäisen naisellinen, pienikokoinen, kapeaharteinen, pienet kapeat kasvot, paksut huulet, kauniit hiukset, upeat t136528