Siirtomakro

Siirtelijä (makro)

Hei,


Osaisiko joku tehdä makron, joka siirtää excel-taulukosta solut A1, D3, E3 ja F4 tiedot toiselle excel-taulukolle (c://ABC.xls) ja laittaa ne riville 1. toisen kerran kun siirtoja tekee (siis excel taulukko 2) niin tiedot siirtyy riville 2 ja kolmannella kerralla ku ajaa makron ((siis excel taulukko 3) niin tiedot siirtyy seuraavalle riville jne. Elikkä idea olisi se, että yhteen taulukkoon voisi helposti kerätä eri taulukoiden tiedot helposti ja ne siirtyvät taulukkoon ABC aina allekkain.
Tietenkin se voisi pahatua ylhäältä alaspäin. Niin että ensimmäiselle riville tehtäisiin uusi rivi johon uudet tiedot siirtyvät ja muut tiedot ovat sen alapuolle.
Mutta kuitenkin niin, että missä tahansa taulukossa ajan makron tiedot siirtyvät taulukkoon ABC:hen.

Jos joku viitsisi auttaa, niin olisin hyvin kiitollinen!

1

297

Äänestä

    Vastaukset 1

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      oli vissiin termit hukassa kun puhuttiin työkirjaa taulukkona ja taulukkoa taulukkona, joten ajattelin mennä aidan matalimmasta kohtaa yli...
      siis samassa työkirjassa kopioi ABC taulukkoon kaikki muut taulukon
      määritellyt alueet
      Sub Siirrä()
      Dim ws As Worksheet
      Dim vika As Long
      On Error Resume Next
      Application.ScreenUpdating = False
      With Worksheets("ABC")
      .Activate
      .Cells.Clear
      End With
      vika = 0
      For Each ws In ActiveWorkbook.Sheets
      If Not ws.Name = "ABC" Then
      ws.Range("A1").Copy Range("ABC!A1").Offset(vika, 0)
      ws.Range("D3").Copy Range("ABC!A1").Offset(vika, 1)
      ws.Range("E3").Copy Range("ABC!A1").Offset(vika, 2)
      ws.Range("F4").Copy Range("ABC!A1").Offset(vika, 3)
      vika = vika 1
      End If
      Next
      Application.ScreenUpdating = True
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Puukotus Kajaanissa

      Kuka puukotti ja ketä? https://yle.fi/a/74-20247765 Vähemmän yllättäen päihteet mainittu
      Kajaani
      50
      1168

    2. Taas henkirikos

      Kuka lienee nyt asialla.
      Ilomantsi
      16
      815

    3. Tulisitko huomenna mun luo?

      🤗
      Ikävä
      68
      732

    4. Mitä söpö

      Mies mietit?
      Ikävä
      63
      725

    5. Miten uskallan sua nähdä

      Kun vaikutat suuttuneelta :(
      Ikävä
      47
      694

    6. Nainen, tässä olen kahden vaiheilla

      Toinen pitäisi valita ja kummassakin on hyvät ja huonot puolensa. Toinen olisi sellainen pysyvä mutta työläs. Toinen taa
      Ikävä
      69
      688

    7. Hyvä on sitten, jos et sitä s*ksiä halua kanssani.

      Rakastetaan vaan toisiamme, voin käydä muualla tyydyttämässä fyysisenpuolen tarpeet. Puhumalla tämäkin olisi selvinnyt.
      Ikävä
      131
      615

    8. Suloinen ja herkkä

      Toiset huomioiva, räväkkä, yllättävä. Ei sellaisesta voi olla pitämättä.
      Rakkaus ja rakastaminen
      31
      585

    9. Humalassa autolla ajo.

      Tuhti humala hyydytti kuljettajan Suomussalmella -sammui rattiin ,uutisoi Ylä-Kainuu.
      Suomussalmi
      9
      540

    10. Minä muistan

      Minä muistan sinut nauravana. Sellaisena, joka sai tavallisenkin hetken tuntumaan vähän kevyemmältä, kuin huoneeseen ol
      Ikävä
      45
      508

    11. Tiesitkö? Jorma Uotisen EX-rakas on Helena Lindgren - Nämä ovat välit nyt: "Me ollaan..."

      Jorma Uotinen ja Helena Lindgren olivat avoliitossa v. 1982-1999. Pariskunta oli aikansa näyttävä julkkispari, missä i
      Kotimaiset julkkisjuorut
      8
      500

    12. Hurja pako Kuhmossa

      19 vuotias kaahasi humalassa jalkakäytävälle tänään. Kuka mitä häh.
      Kuhmo
      4
      472

    13. Jäljitelmä Birginit

      Ei jumaleisson, Jeffin vaimo kertoo et nää Hermesit olikin jäljitelmiä ja timangit labrarääsää. Anna mun kaikki kestää �
      Kotimaiset julkkisjuorut
      104
      469

    14. Hyvää yötä hurmuri

      Iltaa haaveeni! Kauniita unia😘 Jospa me vielä nähtäis ja juteltais, suukoteltais ja halittais, siliteltäis ja hyväiltä
      Ikävä
      24
      463

    15. Pitäisikö seksille asettaa huvivero?

      (ja jos hankkisi todistuksen sen harrastamisesta velvollisuudesta tai lisääntymistarkoituksessa, saisi siitä vapautuksen
      Sinkut
      113
      434

    16. Olet pelottava ilme vakavana

      Sitä alkaa ajatella äkkiä kaikenlaista. Synkkiäkin juttuja. Kai tässä oma mielikuvitus kun laukkaa. 🤔😳
      Ikävä
      26
      427

    17. Mä voisin rakastua noihin tähti silmiin

      Katseesi on niin lumoava nainen💚.
      Ikävä
      16
      421

    18. Kaduttaako kun jätit vastaamatta

      Vai oliko tarkoitus satuttaa?
      Ikävä
      34
      404

    19. Jos tullaan toisiamme vastaan, niin

      pitäiskö pysähtyä ja onnitella?
      Ikävä
      35
      399

    20. Taidat olla

      Luovuttanut jo minun suhteeni osalta?
      Ikävä
      31
      389
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt