1	Pokretanje-zatvaranje Microsoft Excel-a 2003
2	Izgled prozora Microsoft Excela 2003
3	Podešavanje Excela
4	Otvaranje novog dokumenta
5	Spremanje dokumenta
6	Zatvaranje dokumenta
7	Pregled LISTA prije ispisa
8	Određivanje margine Radnog lista
9	Kreiranje Zaglavlja i Podnožja Radnog lista
10	Ispisa Lista-tablice
11	Kreiranje mapa u Excelu
12	Kretanje radnom tablicom
13	Označavanje ćelija
14	Matematički operatori
15	Unos podataka u ćelije
16	Unos i obrada teksta u ćelijama
17	Promjena podataka i brisanje sadržaja ćelije
18	Spajanje i dijeljenje ćelija
19	Automatska ispuna - brzi unos podataka
20	Ispuna ćelija posebnim znakovima
21	Naredbe Poništi i Ponovi poništeno
22	Premještanje i Kopiranje sadržaja ćelije
23	Umetanje i brisanje Ćelija, Stupaca i Redova
24	Promjena veličine Ćelija, Stupaca i Redova
25	Umetanje Simbola u tablicu
26	Umetanje slika u tablicu
27	Radnje vezane uz Radni List
28	Apsolutna i relativna adresa ćelije s imenom
29	Izrada Grafikona
30	Oblikovanje radnih tablica
31	Kreiranje LISTE - Baze podataka
32	Sortiranje podataka
33	Zamrzavanje dijela prozora Radnog lista
34	Filtriranje podataka
35	Oblikovanje Datuma
36	Zaključavanje ćelija
37	Zaštita dokumenta
38	Popis svih FUNKCIJA u Excelu
-	Primjeri često korištenih formula
-	Primjeri zadataka za ECDL
39	Sve alatne trake u Excelu
40	Pomoć u Excelu
41	Oporavak dokumenta
42	Ograničenja u Excelu
43	Tipkovni prečaci
44	Razno

.

MICROSOFT EXCEL - ispunjavanje uplatnice u Excelu, ispis na pisaču i kopiranje arhiviranje podataka o uplati

KOPIRANJE PODATKA IZ JEDNE ĆELIJE U NOVI RED

Kopiranje promjenjivog podatka u novi red na drugom listu (sheet-u)

U koliko ste ikada imali slijedeću situaciju:
U jednoj ćeliji stalno vršite unos podataka (ili više njih) a željeli ste te podatke stalno dodavati na drugi list u novi red i na kraju imati nekakav zbroj ili "sumarum" podataka.

Isto možete učiniti pomoću Makronaredbe i gumba za kopiranje na novi list u novi red.

Uzet ćemo primjer sa Uplatnicom za plaćanje iznosa (virmanom). Vi možete ovaj primjer prilagoditi svojim potrebama.
Na prvom listu (sheet-u) koji ćemo nazvati "Uplatnica" unosimo standardne podatke a na drugom listu (sheet-u) koji ćemo nazvati "kronologija" svi kopirani podaci uvijek će se dodavati u novi red , pa ćemo imati kronološki poredane vrijednosti.

Na prvom listu (Uplatnica) izradite tablicu u koju dnevno (višekratno) unosite standardne podatke

Popunjavanje uplatnice u Excelu

Na drugom listu (kronologija) izradite tablicu redoslijedom kako će izgledati uneseni i kopirani podaci nakon klika na gumb za UNOS.

Pritisnite kombinaciju tipki ALT+F11 da bi otvorili Microsoft Visual Basic.
Kliknite na Insert => Module, selektirajte na lijevom izborniku Module1.

Sada u desnom prozoru utipkajte ovaj source-code

Option Explicit ' + enter

Potom utipkajte ovaj source code

Sub Prenesi()
' Kopiranje sadrzaja celija sa uplatnice obojanih zuto
' u prvi prazan red
' na drugom listu - kronologija

Dim rw As Long
Dim cl As Integer
Dim Dest As Range

'Postavlja prvi stupac za upis
cl = 1 ' A stupac
'Nalazi prvi prazni red u stupcu A
rw = ActiveWorkbook.Sheets("kronologija").Cells(65535, cl).End(xlUp).Row + 1
' Ovdje se moze promijeniti gdje se kopira
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl) ' Gdje je Dest1
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("A2") ' Upis prve vrijednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 1) ' Gdje je Dest2
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("A5") ' Upis druge vrijednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 2) ' Gdje je Dest3
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("A10") ' Upis trece vrijednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 3) ' Gdje je Dest4
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("C1") ' Upis cetvrte vrijednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 4) ' Gdje je Dest5
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("B6") ' Upis pete vrijednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 5) ' Gdje je Dest6
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("C6") ' Upis seste vrijednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 6) ' Gdje je Dest7
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("B7") ' Upis sedme vrijednosti
End Sub

Snimite upisane promjene (ako treba snimite cijelu radnu knjigu) i zatvorite je pa ponovno otvorite. Prihvatite Makronaredbe.

Sada na listu Uplatnica treba kreirati gumb za kopiranje i pridružiti mu Makronaredbu (koja ima naziv Prenesi).
Ako pritisnete kombinaciju tipki ALT+F8 vidjet će te naziv Makronaredbe koja se nalazi u Radnoj knjizi.

Idemo kreirati GUMB.
Pogled (View) => Alatne trake (Toolbars) => Obrasci (Forms). Time aktiviramo Alatnu traku sa koje ćemo kreirati gumb.

Kreiranje vršimo tako što ćemo kliknuti na gumb koji je pravokutnog oblika (podsjeća na gumb) i pokazivač miša će nam se tada promijeniti iz "strelice" u znak "plusa". Kliknemo na listu (sheetu) gdje želimo kreirati gumb i po sistemu "pritisni-razvuci-pusti" (drag and drop) kreiramo gumb željene veličine.

Nakon otpuštanja LTM, pojavit će nam se prozor "Dodijeli Makronaredbu" i naziv naše makronaredbe. Kliknemo na naziv Makronaredbe a potom na gumb U redu (OK). Sada smo dodijelili Makronaredbu gumbu. Za promjenu naziva gumba kliknite desnom tipkom miša (DTM) na njega a potom promijenite naziv. Snimite klikom na File => Save

Zatvorite datoteku i pokrenite je ponovno, prihvatite "Omogući makronaredbe" a potom upišite podatke u žuto obojane ćelije. Kliknite na gumb Unos i pogledajte drugi list.

Ako želite ovu datoteku iz primjera možete skinuti OVDJE (u zip formatu)

Na jednom mjestu popis svih tema vezanih za kopiranje (copy) u Excelu: Tutorijali vezani za radnje kopiranja u Excelu