increment numbers in columns based on entering of adjacent cell

Alaa  (nice to see you back).

Using the file you posted after help from Willie, I'd suggest you just simply number each new row added to the chosen sheet, assuming previous rows have been numbered by your macro (changes in bold):

Private Sub CommandButton1_Click()
Dim lr As Long, sh As Worksheet

Set sh = Sheets(ComboBox1.Value)

With sh
    ' display that sheet
    .Activate
    lr = .Range("A" & .Rows.Count).End(xlUp).Row

    .Range("B" & lr + 1) = TextBox1.Value
    .Range("C" & lr + 1) = TextBox2.Value
    .Range("D" & lr + 1) = TextBox3.Value
    .Range("E" & lr + 1) = TextBox4.Value
    ' commented out controls not present yet
    '.Range("F" & lr + 1) = TextBox5.Value
    '.Range("G" & lr + 1) = TextBox6.Value

    '.Range("A2:A" & lr).Value = .Evaluate("Row(1:" & .Rows.Count & ")")
    .Range("A" & lr + 1) = lr

    .Columns(1).NumberFormat = "General"
End With



End Sub

I've done that in the attached file (with some test data you can erase).

If you really want to renumber all rows (starting from row 2), you could use the simple loop (within the With... End With) instead of your Evaluate statement:

Dim Cl As Range


    For Each Cl In .Range("A2:A" & lr + 1)
        Cl.Value = Cl.Row - 1
    Next Cl

You might want to start your macro with this:

' test a sheet was chosen
If ComboBox1.Value = "" Then Exit Sub

(before the Set line)

Hope this fixes things for you.

Hello Alaa and welcome,

You haven't included a sample file so I can only guess at what is going wrong.

The problem lies in your syntax.

First: you have a period in front of "Parent" and the last "Rows" - remove these:  .Columns(1).Value = Parent.Evaluate("Row(1:" & Rows.Count & ")")

Second: Columns(1) refers to the entire column "A" - change this to reference the single cell where you want the result to be entered.

I made these changes in a test file and got no errors.

Hope this helps

Cheers   :-)