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 - How to automatically add a new row above in Excel by pressing the Enter key, Add row Up after pressing enter key and select cell above,
Kako automatski dodati novi red iznad u Excelu nakon pritiska na tipku Enter

Kako automatski dodati novi red iznad u Excelu nakon pritiska na tipku Enter

Search This Web Site




How to automatically add a new row above in Excel by pressing the Enter key

Jedna interesantna situacija u Excelu koja se može pojaviti kada unosite brojeve ili vrijednosti je insertiranje ili umetanje ili dodavanje novog reda iznad onog reda u koji unosimo podataka ali tek nakon što pritisnemo tipku Enter. Automatski nam ostaje i selektirana nova ćelija za unos iznad reda u koji smo prethodno upisali podatak. Dakle nakon upisa podatka u ćeliju automatski svi ostali podaci (redovi) se pomjeraju prema dolje i spremni ste za unos novog podatka ili vrijednosti.

Dakle za ovu situaciju ili problem koristit ćemo VBA makronaredbu ispod koja će nakon pritiska na tipku enter automatski pokrenuti makronaredbu

Ovu makronaredbu kopirajte u dotični Sheet na kojem radite. Vodite računa da će ova makronaredba uvijek dodati red iznad onoga u koji upišete podatak bilo gdje da pritisnete Enter u bilo kojem redu ili bilo kojoj ćeliji.

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target.Value) Then
Application.EnableEvents = False
Rows(Target.Row).Insert
Application.EnableEvents = True
End If
Target(0, 1).Select
End Sub

Adsense sponzor





.

Adsense sponzor



Ova druga makronaredba automatski dodaje novi red iznad nakon upisa podatka i pritiska na Enter tipku ali samo ako unos podataka radite u drugom stupcu (Column 2) i u prvom redu (Row 1)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 1 Then Exit Sub
'specificira prvi red u koji unosimo podatak
If Target.Column <> 2 Then Exit Sub
'specificira drugi stupac u koji unosimo podatak
If Len(Target.Value) Then
Application.EnableEvents = False
Rows(Target.Row).Insert
'dodaje novi red
Application.EnableEvents = True
End If
Target(0, 1).Select
'odredjuje adresu celije koju ce selektirati nakon Entera u ovom slucaju B1
End Sub

Dakle, modificiranjem ili preuređenjem ove makronaredbe možete sami odrediti ili specificirati range u kojem radite unos podataka a tako i automatsko dodavanje novog reda iznad unosa. Download datoteke s primjerom imate na linku Insert New Row After Press Enter Key

How to automatically add a new row above in Excel by pressing the Enter key

Adsense sponzor



Adsense sponzor







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