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.
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 2
Vanhimmat
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.