VBA apua

Taas pihalla...

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?

1

194

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Anna minulle anteeksi

      Anna minulle anteeksi. Minä pyydän.
      Ikävä
      159
      2366
    2. Kun viimeksi kohtasitte/näitte

      Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
      Ikävä
      136
      1895
    3. Olet kyllä vaarallisen himokas

      Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
      Ikävä
      106
      1725
    4. Mikä on hän on ammatiltaan?

      Vai tiedätkö mitä kaivattusi tekee työkseen?
      Ikävä
      74
      1364
    5. Anna vielä vähän vihreää valoa

      Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet
      Ikävä
      21
      1337
    6. Mitä ajattelit silloin kun

      Löysit hänet?
      Ikävä
      72
      1322
    7. Syksyinen aamuketju suden

      Hyvää huomenta ja kaunista syyspäivää. 🌞🍁🍂☕
      Ikävä
      228
      1086
    8. Oletko tutustunut muihin

      Samalla tavalla kuin häneen?
      Ikävä
      71
      874
    9. Miksi homous puhuttaa konservatiiveja vuodesta toiseen?

      Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv
      Luterilaisuus
      213
      830
    10. Uskotko että kohdataan vielä?

      Kysymys otsikossa, aloitukseen ei muuta lisättävää.
      Ikävä
      46
      800
    Aihe