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
 

Adsense sponzor



MICROSOFT EXCEL 2007 - Kako zbrojiti vrijednosti između dva datuma uz uvjet - Zbroj vrijednosti između datuma

Kako automatski kopirati ćeliju
nakon pritiska na tipku ENTER

Search This Web Site



Automatsko kopiranje vrijednosti nakon pritiska na tipku ENTER
(Automatically copy the value after you press ENTER key)

Općenito o zbrajanju brojeva u Excelu pogledajte na linku KOPIRANJE U EXCELU

Ako imate potrebu da se nakon unosa nekog podatka u ćeliju nakon pritiska na tipku Enter isti podatak kopira u neku određenu ćeliju tada iskoristite ovu VBA makronaredbu.

Ovaj problem automatskog kopiranja nakon upisa broja i pritiska na tipku ENTER možemo riješiti i sa VBA makronaredbom.
Primjer obuhvaća stupac A i C. Raspon podataka koje mijenjamo nalazi se u stupcu A.

Nakon dodavanja ili izmjene neke od vrijednosti u stupcu A automatski nakon pritiska na tipku ENTER dotična vrijednost kopira se u stupac C na posljednje mjesto u rasponu C2:C11. Ostale prethodne vrijednosti u rasponu C2:C11 pomjeraju se prema gore i izbacuju prvu vrijednost sa popisa. Ovim načinom imamo i kronološki slijed upisa ili promjene vrijednosti.

Automatically copy the value after you press ENTER key

Na Sheetu na kojem nam se nalazi tablica na kojoj mijenjamo vrijednosti kliknite desnu tipku miša na naziv Sheet1 => View Code => i u polje za unos macro code kopirajte ovu makronaredbu.

.

Adsense sponzor



Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
'deklariranje
Set C = ActiveCell.Offset(-1, 0)
'pomjeranje selekcije prema gore u odnosu na selektiranu aktivnu celiju nakon Entera
If Target.Column <> 1 Or Target.Row > 30 Or Target.Count > 1 Then Exit Sub
'range stupac A do tridesetog reda
Application.EnableEvents = False
Range("C3:C11").Copy
'selektiranje range C3:C11
Range("C2").PasteSpecial Paste:=xlValue
'paste prethodno selektiranog range
Range("C11").Value = C.Value
'zadnji unos automatski se upisuje u C11
C.Select
'ostaje selektirana celija nakon pritiska na Enter
Application.EnableEvents = True
End If
End Sub

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




Adsense sponzor




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