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ä
      157
      2507
    2. Kun viimeksi kohtasitte/näitte

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

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

      Vai tiedätkö mitä kaivattusi tekee työkseen?
      Ikävä
      72
      1460
    5. Mitä ajattelit silloin kun

      Löysit hänet?
      Ikävä
      76
      1398
    6. 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
      1357
    7. Syksyinen aamuketju suden

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

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

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

      Kysymys otsikossa, aloitukseen ei muuta lisättävää.
      Ikävä
      54
      857
    Aihe