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!
Siirtomakro
1
258
Vastaukset
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ä.
Luetuimmat keskustelut
Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1533010En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois951614- 1431537
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1241435Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3741423Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.991225Anna 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 tunnet15941On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s48862Palstan ylivoimaisesti suosituin keskustelunaihe
Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks259815- 60805