Kuinka saan openofficessa tehtyä makron joka kopioi taulukosta 1, rivin 1, taulukkoon 2 seuraavalle tyhjälle riville. Olen kyllä onnistunut joko saamaan koko taulukon täyteen tai sitten kopioitua yhdelle ja samalle riville. Lisäksi taulukkoa 2 ei tulisi pystyä muokkaamaan muuten.
Makron tekeminen
Makrot
1443
0Äänestä
Muut lukivat myös
Luetuimmat keskustelut
- Tekisin SINUT ONNELLISEKSI NAINENMutta EHKÄ onni EI OLE mitä HALUAT.
- Mitähän sitä...Tsuumailin vähän muuallekin välillä ja törmäsin ajatuksiin, että miehen tulee suojella naista kaikelta pahalta. Mutta yhtään ei oltu eritelty mitä se kaikki paha on, jolta suojella. Jotenpas kysynkin kyselyikäni kyselyn…
- Hävettävä käytösHävettääkö sinua jokin?
- Kuka murtautu illalla kipparilleJotaki hampuusia kannettu ambulanssiin ja kipparin iso ikkuna palasina..Mitä tapahtunu??
- Kuvittelin että oltiin läheisempiäYstäviä, tavallaan. Mutta ei sitten oltukaan sun näkökulmasta. Pettymys, mutta totun kyllä asiaan vähitellen.
- Susilauma KorkatissaKahdeksan suden lauma käynyt repimässä Hankosen Antin lampaat Korkatissa torstain vastaisena yönä. Mahtavaa luonnon Monimuotoisuutta. ViherVasemmisto ja Greenpeace kiittää.
- Myönnä poisLoukkaannuit mulle silloin aikoinaan? Ne viestit, väärinymmärrykset, kaikki. Miehelle
- Omapahan on vikasi jos jää loppuelämän romanssi välistä kun haluat olla itsepäinen jääräJa tuomita, jotain mitä et kykene ymmärtämään, antamatta edes mahdollisuutta, vaikka olen tehnyt parhaani elämäni edistämiseksi ja oikeasti yrittänyt!! Itken tyynyyn... tuskin edes yhtä vuotta ilman itsetuhoisia ajatuks…
- Tule sunnuntaina juna-asemalleKello kymmenen aikaan, tavataan siellä. Ainoa ja viimeinen tilaisuus tavata. Jos et tule niin et enää koskaan näe minua. En halua kirjoitella mitään, en halua kuulla selityksiä. Haluan tavata.
- Onko se sinun mielestäsiminun syyni, että tilanne on se mikä se on? En tiedä. Toisaalta, en pysty uskomaan että millään minun tekemisilläni olisi ollut juurikaan merkitystä.
- Eiköhän tämä ole jo tässäParivuotta hukkaan heitetty.
- kunnioitan tahtoasiEn tule sinua enää lähestymään.
- Onko tarkoitus ottaa ihmisten eläkevarat valtion käyttöön?Vai mistä tässä eläkeiän nostossa hamaan tappiin on kyse? Eihän moni sitten saisi käytännössä eläkettä koskaan vaikka eläkemaksuja koko elämänsä olisi maksellutkin.
- Perjantai jälleen bläähViikonloppuna sataa, mitä meinaatte tehdä? Pian on syyslomakin, suunnitelmia tähän säähän? Mulla olis pihahommaa vielä, mutta en helvetissä mene sateeseen kastumaan. Kasvoi vähän kyr*äkin otsaan kelin takia. Eikö nyt vo…
- Tiedätkö yhtäkään näistä "julkkiksista"? Elämäni biisi vieraslista la 10.10. hämmästyttääElämäni Biisissä on totuttu näkemään suomalaisia julkisuuden henkilöitä, jotka ovat koko kansalle tuttuja. Vieraita on ollut mm. viihteen, taiteen, tieteen, urheilun, politiikan ja kulttuurin saralta. Jos on ollut koko …
- Haluan sanoa sulle miesEttä pysytään molemmat pois täältä palstalta. Maltetaan olla pois, koska olosi on silloin parempi. Minä en kirjoittele enää, joten voit unohtaa tämän. Ottaisitko minuun yhteyttä muuta kautta, jos haluat. Olisin onnessan…
- Mitä enää haluat??Tätä on kestänyt liian kauan!
- Paras paikka asua?Mikä olisi paras paikka asua Suomussalmella,kun ulkopaikkakuntalainen sinne muuttaa. Suomussalmen kk viehättää, mutta olisiko Ämmänsaari parempi ja mikä alue siellä? Nyt saa kehua ja haukkua, mutta apuja päätöksentekoon…
- Vappu Pimiä lataa suorat sanat MasterChef-kritiikistä: "Tee niin tai näin, niin se on aina..."Vappu Pimiä liittyi viime MasterChef Suomi -kaudella arvovaltaiseen tuomaristoon. Pimiän rinnalla tuomaroivat Helena Puolakka ja Henri Alén. Pimiä toi tuomarikolmikkoon näkemystä ja kulmaa huippuravintoloiden keittiöide…
- Oon haaveillut vaan susta...Sinkku oon ollut kokoajan...
Vastaukset 1
Vanhimmat
sub kopioi
arkki1="Sheet1"
arkki2="Sheet2"
dim Controller as object
dim document as object
dim dispatcher as object
Controller = ThisComponent.getcurrentController
document = Controller.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Sheets = ThisComponent.Sheets
Sheet1 = Sheets.getByName(arkki1)
Controller.setActiveSheet(Sheet1)
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
dispatcher.executeDispatch(document, ".uno:GoRightToEndOfDataSel", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
Sheet2 = Sheets.getByName(arkki2)
Controller.setActiveSheet(Sheet2)
Sheet2.unprotect("")
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args7(1) as new com.sun.star.beans.PropertyValue
args7(0).Name = "By"
args7(0).Value = 1
args7(1).Name = "Sel"
args7(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args7())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args7())
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
Sheet2.protect("")
end sub