Help with VBA code update

[Lukma]

Hi Guys

Can someone help to update this code which i found but i don't no how to include the Auto Serial number code along with the code
after inserting the code it works fine but i need the column B to general Serial Numbers but i guess i cant

Appreciate if anyone could assist

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rInt As Range
    Dim rCell As Range
    Dim tCell As Range

    Set rInt = Intersect(Target, Range("B:B"))
    If Not rInt Is Nothing Then
        For Each rCell In rInt
            Set tCell = rCell.Offset(0, -1)
            If IsEmpty(tCell) Then
                tCell = Now
                tCell.NumberFormat = "mmm d, yyyy hh:mm"
            End If
        Next
    End If
End Sub

 

[offthelip]

try this:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rInt As Range
    Dim rCell As Range
    Dim tCell As Range
    rowno = Target.Row
    Set rInt = Intersect(Target, Range("B:B"))
    If Not rInt Is Nothing Then
        For Each rCell In rInt
            Set tCell = rCell.Offset(0, -1)
            If IsEmpty(tCell) Then
                Application.EnableEvents = False ' turn off events because we are writing into column B and stop triggering this sub twice
                tCell = Now
                tCell.NumberFormat = "mmm d, yyyy hh:mm"
                rowno = Target.Row
                mx = Application.WorksheetFunction.Max(Range(Cells(1, 2), Cells(rowno, 2)))
                rCell = mx + 1
                Application.EnableEvents = True
            End If
        Next
    End If
End Sub

 

[Fluff]

Duplicate to: Excel and VBA code that could generate a Date& Time Stap and Serial Number

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.