CountA(Range("A:A")) + 1 ?

[lezawang]

Hi
I have this code part of a form to enter first and last name and the form has 3 buttons: enter, clear, and search. the code below is when user click on "enter". the code makes sure the data will be entered in next empty like. The part i do not understand is this

x = WorksheetFunction.CountA(Range("A:A")) + 1

Can you please explain to me what this code suppose to do?

Thanks you so much.
+++

Private Sub enter_Click()
Dim x As Long
x = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(x, 1) = first.Value
Cells(x, 2) = last.Value
first.Value = ""
last.Value = ""
Me.first.SetFocus
End Sub

 

[nardagus]

This function counts non empty cells in a column A, then adds 1 to the result. Which gives the address of the next row where new data from your form should be put.

Oh. Btw. CountA can sometime give false results which can overwrite a data or skip one row.
Imo this is better:

with activesheet
        x = .Range("A" & Rows.Count).end(xlUp).Row + 1
end with

 

[Norie]

It's meant to count the no of values in column A and from that work out the last row with data, then 1 is added to get the first empty row.

It's one of various techniques to do this, i.e. find the next empty row.

 

[Chowayut]

This function counts non empty cells in a column A, then adds 1 to the result. Which gives the address of the next row where new data from your form should be put.

Oh. Btw. CountA can sometime give false results which can overwrite a data or skip one row.
Imo this is better:

with activesheet
        x = .Range("A" & Rows.Count).end(xlUp).Row + 1
end with

Solution of CountA give false result which can overwrite a data ,just you change RC (row,column) reference (not use RC) in excel.