Runtime Error # 424 - Object Required

Hey

I try to run attached excel file which store customer data (Address).
But I am getting "Runtime Error # 424 - Object Required"
I Am really confused about it.

Can u please Help me?

Regards
Charles

You have disabled "Aip.Txt...

I cannot enter or save the data.

When I open the form it give error mesg " Invalid Row..." I cannot go further.

Please help me.

Regards
Charles

Now I am geting Error # 13

Type Mismatch..

Sir,

It shows me the error:

Runtime Error # 13
Type mismatch...

This error shows in the line no. 126 Column 1

I attach the corrected workbook.

can u help me?

Regds
charles

There is bold line the below code
this line shoe error Runtime Error 13, Type mismatch

is CustomerID.Text = FormatNumber(Cells(r, 1), 0)

Private Sub CommandButton3_Click()
Dim r As Integer

r = RowNumber.Text
r = r + 1
RowNumber.Text = r
With Sheets("Sheet1")
    CustomerID.Text = FormatNumber(Cells(r, 1), 0)
    CustomerName.Text = Cells(r, 2)
    City.Text = Cells(r, 3)
    State.Text = Cells(r, 4)
    Zip.Text = Cells(r, 5)
    DateAdded.Text = FormatDateTime(Cells(r, 6), vbShortDate)

    DisableSave
    End With
End Sub

Now i am getting error the same

Runtime error 13 - type mismatch

@ line DateAdded.Text = FormatDateTime(Cells(r, 6), vbShortDate)

Private Sub CommandButton3_Click()
Dim r As Integer

r = RowNumber.Text
r = r + 1
RowNumber.Text = r
With Sheets("Sheet1")
    CustomerID.Text = Cells(r, 1).Value
    CustomerName.Text = Cells(r, 2)
    City.Text = Cells(r, 3)
    State.Text = Cells(r, 4)
    Zip.Text = Cells(r, 5)
    DateAdded.Text = FormatDateTime(Cells(r, 6), vbShortDate)

    DisableSave
    End With
End Sub

my master

thank you so much. you are so greatful.
i have learned from so much.

the format of date in my sheet is not correct. i think.

otherthan that it is working.

thank you

regards
charles

Sir,

I need to enter the address of the customer in that form.

Can I? When i try to enter the contact i cannot.

Please

Regards
Charles

Depending on the existing situation

Lastrow= Cells.SpecialCells(xlCellTypeLastCell).Row
or
lastrow=cells(rows.count,1).end(xlup).row
or 
lastrow=usedrange.rows.count
or
lastrow=cless(1,1).currentregion.rows.count
or 
lastrow=columns(1).specialcells(2).count
or 
lastrow=columns(1).specialcells(4).cells(1).row-1

But do not use a loop.