IZBORNIK HOME FORUM ACCESS EXCEL WORD KAZALO
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

Search This Web Site

Adsense sponzor






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

Adsense sponzor





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

Adsense sponzor




Copyright 2008 - 2018 - IvanC - ic.ims.hr