Hi All,

I am creating a Userform which makes it easy to store certain details about past customers.

The idea is that this data is as easy to enter as possible, hence the Userform.

The Userform automatically loads when the Worksheet/File is opened, meaning it is just a simple type in and click 'Add Details'.
The Userform loads over the button which you can see in the Worksheet, I just put a button there so if you close the Userform you can re-open it by clicking the button.

Entry Form.png
Spreadsheet.png


At the moment the data is set to enter into the next empty row, but I've now changed my mind and would now like the data to be entered in the top row.

The reason for this is so that you can easily see it by the side of the userform and check to make sure it is correct.

So basically I want it so the newest entry is on the top row, which means that the older the entry, the further down it will be.


My current codeing for the 'Add Details' Command Button is :

Formula: copy to clipboard 
Private Sub Cmdbutton_add_Click()

Dim iRow As Long

Dim ws As Worksheet

Set ws = Worksheets("EmailDatabase")



'find first empty row in database

iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _

    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1



'check for a first name

If Trim(Me.FirstNameTextBox.Value) = "" Then

  Me.FirstNameTextBox.SetFocus

  MsgBox "Please enter a first name"

  Exit Sub

End If



'check for a email address

If Trim(Me.EmailAddressTextBox.Value) = "" Then

  Me.EmailAddressTextBox.SetFocus

  MsgBox "Please enter a email address"

  Exit Sub

End If



'copy the data to the database

'use protect and unprotect lines,

'     with your password

'     if worksheet is protected

With ws

'  .Unprotect Password:="password"

  .Cells(iRow, 1).Value = Me.FirstNameTextBox.Value

  .Cells(iRow, 2).Value = Me.LastNameTextBox.Value

  .Cells(iRow, 3).Value = Me.CompanyNameTextBox.Value

  .Cells(iRow, 4).Value = Me.EmailAddressTextBox.Value

  .Cells(iRow, 5).Value = Me.TelephoneNumberTextBox.Value

'  .Protect Password:="password"

End With



'clear the data

Me.FirstNameTextBox.Value = ""

Me.LastNameTextBox.Value = ""

Me.CompanyNameTextBox.Value = ""

Me.EmailAddressTextBox.Value = ""

Me.TelephoneNumberTextBox.Value = ""



If StagOptionButton.Value = True Then

    Cells(iRow, 6).Value = "Stag"

End If



If HenOptionButton.Value = True Then

    Cells(iRow, 6).Value = "Hen"

End If



If CorporateOptionButton.Value = True Then

    Cells(iRow, 6).Value = "Corporate"

End If



If TeamBuildingOptionButton.Value = True Then

    Cells(iRow, 6).Value = "Team Building"

End If

If ActivityWeekendOptionButton.Value = True Then

    Cells(iRow, 6).Value = "Activity Weekend"

End If

If LocalGroupOptionButton.Value = True Then

    Cells(iRow, 6).Value = "Local Group"

End If

If LocalCompanyOptionButton.Value = True Then

    Cells(iRow, 6).Value = "Local Company"

End If

If OtherOptionButton.Value = True Then

    Cells(iRow, 6).Value = "Other"

End If



End Sub



I'm fairly new to all this Excel VBA, and what I've created above is a result of many hours of searching the internet - unfortunately I can't find anything for what I know want.

Any help would be very much appreciated!

Many Thanks,

James