IZBORNIK HOME FORUM ACCESS 2003 EXCEL 2003 WORD 2003  .
   
   
HOME
FORUM Win Tips&Tricks
   
KAKO INSTALIRATI
WINDOWS XP ?
Kako instalirati Win XP sa USB STICKA
Kako instalirati WINDOWS 7 ?
Naučite za 15 minuta raditi u Windows XP
Naučite Internet Explorer i Outlook Express
za 15 minuta
Kako kreirati BOOT CD za instalaciju Win95
   
MS OFFICE 2003
MS OFFICE 2007
   
   
HOME NETWORK
tutorijal za mreže
Network Windows 7 - XP
   
ZANIMLJIVI LINKOVI
BROJEVNI SUSTAVI
(DEC, OKT, BIN, HEX )
CMD - Command Prompt
CISCO - CCNA tutoriali
VLSM and SUBNETTING
   
Tutorijali za phpBB forum
JAVASCRIPT
VISUAL BASIC 6.0
AUTOCAD 2007
 
 
MICROSOFT EXCEL 2007 - Upis, kopiranje i trajno pamćenje u Excelu 2007

Upis, prijenos i trajno pamćenje u Excelu 2007
(automatsko nizanje unesenih vrijednosti)

Search This Web Site

Adsense sponzor






Kako prilikom upisa podatka i pritiska na tipku Enter možemo automatski prenijeti (kopirati) uneseni podatak i trajno ga zapamtiti, uz automatsko brisanje i oslobađanje ćelije za upis novog podatka.

U ovom primjeru pokazat ću kako možemo prilikom upisa nekog podatka u jednu ćeliju automatski kopirati dotični podatak u drugi stupac i trajno ga zapamtiti. Ovu radnju omogućit će nam Macro (Makronaredba) koja je priložena ovdje u tutorijalu

Uzmimo za primjer da u ćeliji nekog radnog lista (Sheet1) npr: A1, imamo potrebu upisivati (unositi) nekakve bilo brojevne vrijednosti ili tekstualne podatke.

Želimo da nakon upisa i pritiska na tipku Enter automatski se upisani podatak prenese u slijedeću praznu ćeliju nekog stupca (u ovom slučaju stupac B).

Pogledajte sliku desno.

Za rješavanje ovog problema i zahtjeva potrebno je slijedeći Macro kod ispod kopirati u VBE na radni list Sheet1 ili već kako nam je imenovan radni list na kojem vršimo unos vrijednosti ili podataka.

Private Sub Worksheet_Change(ByVal Target As Range)
' kopiranje i trajno pamcenje
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If WorksheetFunction.CountA(Range("A1")) <> 1 Then Exit Sub
If Not IsNumeric(Range("A1")) Then Exit Sub 'ako zelimo omoguciti brojeve i tekst ovu liniju koda uklonimo
unos
End Sub

Private Sub unos()
Dim i As Integer
i = Cells(Rows.Count,
2).End(xlUp).Row + 1 'broj 2 označava redni broj stupca, u ovom slučaju je to B stupac
                                                           'ide do zadnjeg reda pa se vraca gore do prvog popunjenog,
                                                           'pa silazi jedan red dolje (+1) - prvi prazan

Range("A1").Copy Destination:=Cells(i,
2)  'broj 2 označava redni broj stupca, u ovom slučaju je to B stupac
Range("A1") = ""
Range("A1").Select
End Sub

Ako želite ovaj Macro koristiti u drugačijem rasporedu promijenite adresu ćelije za unos podatka (vrijednosti) i redni broj stupca A=1, B=2, C=3, D=4 itd...

Dakle navedeni Macro kod kopirajmo na slijedeći način. Kliknimo DTM na naziv radnog lista (jezičak) => pa potom klik na View Code (ili preko ALT+F11 otvorimo VBE i klik na naziv radnog lista). Download za Macro pri kraju ove stranice tutorijala.

Zalijepimo ovaj Macro kod u Window Code. Obratite pažnju na liniju koda crvenom bojom. Ako želimo ograničiti samo na upis brojeva tada je ova linija koda potrebna ako želimo omogućiti upis brojevne vrijednosti i tekstualnog podataka tada ovu liniju koda obrišemo



Umetanje Macro koda u VBE Excela

Vratimo se nazad u Excel klikom prozor otvorene datoteke na Taskbaru i upišimo željene podatke. Nakon klika na Enter tipku podatak nam se automatski prenosi u ćelije redom od B2 pa naniže. To bi trebalo izgledati kao na slici ispod.
Download Macro koda OVDJE

Adsense sponzor



Unos i trajno pamćenje u jednom redu

Ako želite podatke prenositi u jednom redu u stupce tada iskoristite ovaj Macro ispod. U ovom slučaju podatak se unosi u ćeliju A1 a nakon pritiska na tipku Enter automatski se vrši prijenos u istom redu u stupce tj. ćelije B1, C1, D1, E1 ...

Private Sub Worksheet_Change(ByVal Target As Range)
' kopiranje i trajno pamcenje
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If WorksheetFunction.CountA(Range("A1")) <> 1 Then Exit Sub
If Not IsNumeric(Range("A1")) Then Exit Sub 'ako zelimo omoguciti brojeve i tekst ovu liniju koda uklonimo
Call unos
End Sub

Private Sub unos()
Dim i As Integer
i = Cells(
1, Columns.Count).End(xlToLeft).Column + 1 'ide do zadnjeg stupca
                                                                      
 'pa se vraca lijevo do prvog popunjenog
                                                                        'pa ide jedan desno (+1) - prvi prazan

Range("A1").Copy Destination:=Cells(
1, i) 'broj 1 označava redni broj reda, u ovom slučaju je to Row 1
Range("A1") = ""
Range("A1").Select
End Sub


Adsense sponzor




©- 2006 - 2018 - IvanC  - Sva prava pridržana.  ic.ims.hr