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.

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