Hallo, I need help. I have my code writen but I have big problem. On my New button (on form) I can get that next entry go to next empty row. I have searched all over internet, but any solution don work for me. I am new in VBA so I please for help....Thx 
Private Sub cmdNoviUnos_Click()
If UserForm1.red.Value + 1 > 35 Then
MsgBox ("Unijeli se maskimaslni broj redova!")
Else
ActiveWorkbook.Save
UserForm1.red.Value = UserForm1.red.Value + 1
Worksheets("Izvještaj").Range("A" & UserForm1.red.Value).Select
UserForm1.OdabirProjekta.Value = ""
UserForm1.ComboBox2.Value = ""
UserForm1.ComboBox2.Value = Sheets("Izvještaj").Range("H2").Value
UserForm1.ComboBox3.Value = ""
UserForm1.ComboBox4.Value = ""
UserForm1.ComboBox5.Value = ""
UserForm1.ComboBox6.Value = ""
UserForm1.ComboBox7.Value = ""
UserForm1.ComboBox7.Value = Sheets("Izvještaj").Range("D2").Value
UserForm1.ComboBox8.Value = ""
UserForm1.Mjesec.Value = ""
UserForm1.Mjesec.Value = Sheets("Izvještaj").Range("E2").Value
UserForm1.TextBox1.Value = ""
UserForm1.TextBox2.Value = ""
End If
End Sub
Bookmarks