Row address when cell is filled

[KestutisTower]

Hello everyone. I'm looking for a vba code to fill column "C" with row address when data is entered in column "A". And when I delete a row , they would change accordingly. Data is entered automatically via userform.

Before row deleted:

Book1
	A	B	C
1	name	product	row number
2	John	apple	2
3	Linda	plum	3
4	Peter	apple	4
Sheet1

After :

Book1
	A	B	C
1	name	product	row number
2	John	apple	2
3	Peter	apple	3
Sheet1

 

[Candyman8019]

The easiest way is likely to have your VBA enter the following formula into column C at the same time it adds data in column A and B:
=if(A2<>"",ROW(),"")
This way it will update the row numbers as you delete rows.

So your VBA might look something like:

range("C2").formula = "=if(A2<>"",ROW(),"")"

 

[KestutisTower]

Thanks @Candyman8019 for quick respond. I have tried to adjust and add this line of code to mine, but with no success. My submit code is:

Sub Submit() 

   Dim sh As Worksheet
   Dim iRow As Long
   Dim eur As String
   eur = ChrW(8364)
   
   Set sh = ThisWorkbook.Sheets("Pardavimai")
   iRow = [Counta(Pardavimai!B:B)] + 1
   
   With sh
      
       
       .Cells(iRow, 1) = UserForm1.txtKlientas.Value
       
       .Cells(iRow, 2) = UserForm1.txtPreke.Value
       
       .Cells(iRow, 3) = UserForm1.txtKiekis.Value
       
       .Cells(iRow, 4) = UserForm1.txtKomentaras.Value
       
       .Cells(iRow, 5) = Val(UserForm1.txtVienetoKaina) * Val(UserForm1.txtKiekis.Value)
       
       .Cells(iRow, 6) = UserForm1.txtVienetoKaina.Value
       
       .Cells(iRow, 10) = UserForm1.txtPreke.Value & "   " & UserForm1.txtKiekis.Value & " vnt." & "   " & UserForm1.txtKomentaras.Value & " - " & Val(UserForm1.txtVienetoKaina) * Val(UserForm1.txtKiekis.Value) & eur
       
       .Cells(iRow, 11) = [Text(Now(), "MM-DD-YYYY")]
       
                  
   End With
   
   
End Sub

the row number would have to go in column 12 ("L"), in the last row.

 

[Candyman8019]

I haven’t tested but try something like this:
.cells(iRow, 12).formula = "=if(A” & iRow & ”<>"",ROW(),"")"