Generate a next number

[rajkumar.shukla]

Hi frnds,

I want a simple vba for generate a next number in below the cell. for example. if I enter any data in B1, than vba generate automatically 1 in A1 cell than i enter a data in cell b2 vba generate a next number (ie 2) in cell A2.

 

[Rick Rothstein]

Hi this code run perfectly. but one thing which is not correct. It start with A1. in row 1 contain my heading. I want this code run from the row 2

Give this a try instead...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 [B][COLOR="#0000FF"]And Target.Row > 1[/COLOR][/B] Then
        Application.EnableEvents = False
        Cells(Target.Row, 1).Value = Target.Row
        Application.EnableEvents = True
    End If
End Sub

 

[rajkumar.shukla]

Give this a try instead...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 [B][COLOR=#0000FF]And Target.Row > 1[/COLOR][/B] Then
        Application.EnableEvents = False
        Cells(Target.Row, 1).Value = Target.Row
        Application.EnableEvents = True
    End If
End Sub

this code also start with number 2. In row one my heading is there. now I want number start from 1 but in row row. this code generate number 2 in row 2.

 

[Rick Rothstein]

Give this a try instead...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then
        Application.EnableEvents = False
        Cells(Target.Row, 1).Value = Target.Row[B][COLOR="#FF0000"][SIZE=2] - 1[/SIZE][/COLOR][/B]
        Application.EnableEvents = True
    End If
End Sub

this code also start with number 2. In row one my heading is there. now I want number start from 1 but in row row. this code generate number 2 in row 2.

Sorry, remember, this is not my code... I changed the wrong thing. Try making the change I show in red above.