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

286

Äänestä

    Vastaukset

    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. Kelekkakisat

      Mikä vakava onnettomuus sattunut kisoissa. On peruttu koko kisat. Pelastuskopteri näytti käyvän paikalla.
      Nivala
      10
      4966

    2. Kuinka pitkä välimatka

      on teidän kotien välillä?
      Ikävä
      77
      2667

    3. Eikö me voitais

      Vaan harrastaa seksiä kun muusta ei tule mitään
      Ikävä
      46
      2602

    4. Pitäis vaan lopettaa

      Sinun kanssa yhteydenpito. Alkaa vaan haluamaan enemmän ja tuskin lopulta mikään kohtaisi. Ja ikävä vaan kasvaa ja lähei
      Ikävä
      13
      1990

    5. Ikävä uutinen uudesta Unelmia Italiassa -kaudesta

      Unelmia Italiassa -sarja on ollut supersuosittu ja uutta kautta on odotettu. Nyt on tullut se aika, että TV-katsojat pää
      Tv-sarjat
      7
      1723

    6. Onko kaivattusi

      …mielestäsi älykäs, tai kenties tyhmä? Oma mielipide.
      Ikävä
      47
      1710

    7. Epäilen ettet edes

      Kehtaisi liikkua kanssani.
      Ikävä
      42
      1655

    8. Oletko huomannut

      Yhden muutoksen?
      Ikävä
      22
      1646

    9. Lähtisitkö Erikoisjoukot-leirille? Yksi kokelas paljastaa karun totuuden kulissien takaa

      Erikoisjoukot realityssä kokelaat kohtaavat omat henkiset ja fyysiset rajansa. Nyt yksi kokelas paljastaa karun totuuden
      Tv-sarjat
      17
      1641

    10. Salatut elämät: Lola Odusoga -paljastus - Tämä suosii tiettyjä Salkkarit-faneja!

      Salatut elämät vetää katsojia tv-ruudun äärelle jaksosta, kaudesta ja vuodesta toiseen. Tähän mennessä sarjaa on nähty j
      Salatut elämät
      7
      1631
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt