Dear Sir,
i have the formula for auto serial number with auto insert row.
i m getting problem when i click on insert new row button serial number getting changes.
please help me, and see the below formula and code for the same.
IF(COUNTA(C4:O4)>0,"01"&ROW(B4)-2,"")
Please Login or Register to view this content.
Last edited by Fotis1991; 04-23-2014 at 02:30 AM. Reason: pls use code tags for your codes!
Try changing your macro to:
Please Login or Register to view this content.
Dear Sir,
thank you for your quick reply, but column P and column Q formula not updating!!!!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim O As Range
Set O = Range("O:O")
If Intersect(Target, O) Is Nothing Then Exit Sub
Application.EnableEvents = False
roow = Target.Row
Cells(roow + 1, 1).Value = Cells(roow, 1).Value + 1
Cells(roow + 1, 2).Select
Rows(Target.Row + 2).Insert
Application.EnableEvents = True
End Sub
Sorry, this looks like a different problem to what you had in the first post - could you explain what is supposed to happen with the new workbook?
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks