Ajattelin tehdä macron työkirjaan, joka aina valitsisi avoinna olevasta excelistä oikealta välilehdeltä tietyt tiedot. Avoinna olisi siis vain excel, jossa on tämä macro ja sen lisäksi jokin satunnainen excel, josta tiedot pitäisi saada. Miten saan macron vaikuttamaan avoinna olevaan exceliin ja tiettyyn välilehteen, kun excelien, sekä välilehtien nimet vaihtelevat?
VBA apua
Taas pihalla...
1
217
Vastaukset
muokkaile sopivaksi.
Nyt toimii oikein vain jos 2 työkirjaa auki. Jos on enemmmän auki niin pitää sitten varmistaa mistä noista haetaan ja mitkä ohitetaan. No sen varmaan osaat tehdä...
Koodissaä haetaan toisen työkirjan ekasta taulukosta soluista A20:A25 ja tallennetaan aktiivisena olevan työkirjan tokaan taulukkoon alkaen solusta A1.
moduuliin
Private Sub KopioToisesta()
Dim Työkirja As Workbook
Dim Nimi As String
For Each Työkirja In Workbooks
If Työkirja.Name ActiveWorkbook.Name Then
Workbooks(Työkirja.Name).Sheets(1).Range("A20:A25").Copy ActiveWorkbook.Sheets(2).Range("A1")
End If
Next Työkirja
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Maatalous- ja yritystuet pois, työeläkevaroilla valtion velka pois
Suomi saadaan eheytettyä kädenkäänteessä, kun uskalletaan tehdä rohkeita ratkaisuja. Maatalous- ja yritystuet ovat hait223057- 402674
Mies mä oon ihan helppo
Miehelle johon oon ihastunut. Olen harvoin ihastunut, mutta suhun olen. Ei tarvitse kuin pyytää, niin...381513- 841350
- 631251
Mies olen aika erakko nykyään
Vanhentunutkin olen muutamana viime vuonna parikyt vuotta. Kun en ennenkään kelvannut, niin tuskin nytkään kelpaan. Lisä401009Lavroville taitaa olla jo ikkuna raollaan?
Lavrovin syytä välttää korkeita paikkoja ja ikkunoiden läheisyyttä.Ettei vain keikahda ikkunasta pihalle.125913- 33829
Ylen johdon hulppeat bonukset alkavat taas
Suora kopio Iltalehdestä: "Asiasta kertoo Iltalehdelle Ylen hallituksen puheenjohtaja Matti Apunen. Mitä tulospalkkioi29663Skenaario
Elämä ja kuolema ovat merkillisin nyytti olevaisuutta. Mutta kun kumpaakaan ei ole, syntyy lapsuksia, joita korjaamaan59621