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- Kako nakon unosa podatka i pritiska na tipku Enter kopirati upisani podatak u prvu ćeliju desno u istom redu

Automatsko kopiranje podatka
u ćeliju desno u istom redu




Kako nakon unosa podatka i pritiska na tipku Enter kopirati upisani podatak u prvu ćeliju desno u istom redu

Uzmimo situaciju da imate jednu ćeliju (u ovom primjeru je to ćelija A1) u koju kontinuirano trebate unositi (upisivati) nekakav podatak (vrijednost). Nakon pritiska na tipku Enter želite da se taj podatak kopira u prvu slobodnu ćeliju desno od ćelije u koju unosite podatak. Ponovnim upisom drugog podatka u istu ćeliju isti se kopira opet u prvu slobodnu ćeliju desno. Takvim načinom unosa podataka imate kronološki slijed upisa podataka.



kronološki slijed upisa podataka

Ovu VBA makronaredbu ispod umetnite u VBE dotičnog Sheeta na kojem radite. (DTM klik na naziv sheeta => View Code => Zalijepite macro)
Pošto je funkcija deklarirana kao "Private" onda mora biti u istom modulu/sheetu kao i procedura iz koje se poziva.

Kod VBA makronaredbe, kopiranje u prvu slobodnu ćeliju desno



Kod VBA makronaredbe

Private Sub Worksheet_Change(ByVal Target As Range)
' kopiranje i trajno pamcenje
' IvanC za ic.ims.hr

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
'pozivanje procedure UNOS
End Sub

Private Sub UNOS()
Dim i As Integer
i = Cells(1, Columns.Count).End(xlToLeft).Column + 1
'destinacija prvi stupac desno u istom redu
Range("A1").Copy Destination:=Cells(1, i)
'kopiranje podatka iz A1 i destinacijsku celiju
'Range("A1") = ""
'opcija za brisanje nakon unosa podatka
Range("A1").Select
'ostaje selektirana celija A1
End Sub

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










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