Makronaredbu možete koristiti za kopiranje podataka s jednog Excel radnog lista na drugi list u istoj radnoj knjizi
Želite li prenijeti sadržaj područja s jednog radnog lista na drugi? To je lako učiniti interaktivnom upotrebom programa Excel. Ali kako obaviti posao s makronaredbom? Napravite petlju koja ponavlja sve ćelije koje želite kopirati. Ovako izgleda makro:
Područje podkopije ()
Dim Quelltab kao radni list
Zatamnite ciljnu karticu kao radni list
Dim Cell As Range
Dim Counter As Long
Brojač = 1
Raspon = "A1: A10"
Postavi karticu izvora = ActiveWorkbook.Worksheets ("Tablica1")
Postavi ciljnu karticu = ActiveWorkbook.Worksheets ("Tablica 2")
Za svaku ćeliju u SourceTab.Range ("A1: A10")
Ciljna tablica Stanice (brojač, 1) = ćelija
Brojač = brojač + 1
Sljedeća ćelija
Kraj podm
U definiciji varijable "Kartica Izvor" navodite naziv izvorne tablice unutar radne knjige. Ovo je radni list s kojeg želite kopirati podatke. U makronaredbi to je list "Tablica1".
Oznakom "Ciljna kartica" definirajte naziv radnog lista u koji želite kopirati podatke.
Područje A1: A10 kopira se u makronaredbu. Ako želite koristiti drugo područje, prema tome prilagodite makronaredbu.
Oznaku "Brojač" koristite za kontrolu retka u ciljnoj tablici u kojoj počinje umetanje ćelija. Podaci se kopiraju jedan ispod drugog u ćelije
Za unos makronaredbe pritisnite ALT F11 u Excelu da biste otvorili VBA editor. Pomoću naredbe INSERT - MODULE umetnite prazan list modula. Za pokretanje makronaredbe izravno iz programa Excel upotrijebite kombinaciju tipki ALT F8.
Kopirajte cijeli radni list u radnu knjigu
Također imate mogućnost kopiranja cijelog radnog lista unutar radne knjige pomoću makronaredbe. Da biste kopirali aktivni list trenutne radne knjige na kraj radne knjige, upotrijebite sljedeću makronaredbu:
Sub CopyActiveTable ()
ActiveSheet.Copy After: = Radni listovi (Worksheets.Count)
Kraj podm
Nakon pokretanja makronaredbe radni list dodaje se aktivnoj radnoj knjizi. Ovo je kopija radnog lista koji je bio aktivan pri pozivanju makronaredbe. Kako bi razlikovao dva radna lista jedan od drugog, Excel stvara uzastopni broj iza kopiranog radnog lista. Sljedeća slika prikazuje kako to izgleda u tabličnom registru nakon kopiranja radnog lista "Prodaja":
