Haluaisin tehdä makron joka siirtää kopioidut solut totoiseen taulukkoon (taul2) jossa on jo tietoja esim soluissa a1:d6. Haluan kopioida ja siirtää taul1:n rivin a1:d1 taul2:n riville 7 ja seuraavan kerran riville 8 jne.... Tein joskus kyseisen makron ja siinä oli komento wend mutta muuta en muista.
Rivin kopioiminen ja liittäminen seuraavalle tyhjälle riville.
2
1213
Vastaukset
- Anonyymi
Sheet1:n rivit C-E voi kopioida sheet2:n riveille G-I seuraavasti:
Sheets("sheet1").Range("C:E").Copy Sheets("sheet2").Range("G:I")
Sheet2:n ensimmäisen tyhjän rivin löytää:
tyhja = Sheets("sheet2").Range("A" & rows.count).End(xlUp).Row 1
Jälkimmäistä voi sitten soveltaa ensimmäiseen. Kiitos nopeasta vastauksesa
Kirjoitin varmaan epäselvästi tarkoitukseni.
Haluan siis kopioida (Taul1) rivillä 1 soluisssa A-D olevat tiedot (Taul2):een vaikka samalle paikalle kuin taulukossa 1.
Seuraavan kerran haluan tehdä saman mutta makron pitäisi etsiä taulukossa 2 vapaana oleva rivi, koska edellisellä kerralla se kopioi jo riville 1. Joten seuraava vapaa olisi rivi kaksi.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kalajoen hukkuneet pojat olivat tummaihoisia
Jälleen kerran, hukkuneet tai heikon uimataidon vuoksi vaaraan joutuneet olivat muita kuin suomalaisia. Turha viisastell3217012Kysymys muille miehille
Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss714198- 2083145
Kohta katson sun kuvaasi
ja päästän ajatukseni liitämään. Jo kuvasi näkeminen rauhoittaa, ja pistää hyrräämään vähän muutakin. Ihanan kaunista sa242917- 741952
- 1491761
Ahneus iski Fazeriin, suklaalevy kutistuu 180 grammaan
Kun mikään ei riitä. Shrinkflaatio. Mitä isot (Marabou) edellä, sitä pienet (Fazer) perässä. Pienikin voi siis olla a2101732Jos kaivattusi on perääntynyt lähestyessäsi
jossain tilanteessa, ymmärrätkö miksi hän saattoi tehdä sen?1651550Minkä asian haluaisit muuttaa kaivatussasi?
Mikä kaivattusi luonteessa tai ulkonäössä ärsyttää sua?1201538- 891428