Sıra no silme sorunu

[YILDIZ YAĞMURU]

Aşağıdaki kod ... B sütununa veri girince A sütnuna sıra no atıyor fakat B sutunundaki veriyi silince sıra no yu silmiyor neden kaynaklanıyor acaba yardımcı olurmusunuz rica etsem

Ayşe YILDIZ

On Error Resume Next
Dim s As Long
If Intersect(Target, Range("b5:b55")) Is Nothing Then Exit Sub
For i = 5 To Range("b55").End(3).Row
If Cells(i, 2).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i

 

[YILDIZ YAĞMURU]

Yardım edecek bir arkadaş yokmu acaba

Bir türlü olmuyooorrr..

 

[Ziynettin]

Merhaba,
.........

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Dim s As Long
        If Intersect(Target, Range("b5:b55")) Is Nothing Then Exit Sub
            For i = 5 To Range("b55").End(3).Row
                If Cells(i, 2).Value <> "" Then
                    s = s + 1
                Cells(i, 1).Value = s
            End If
        Next i
    If Target.Value = "" Then
    Target.Offset(0, -1).ClearContents
    End If
End Sub

 

[YILDIZ YAĞMURU]

tasmed çok teşekkürer

Merhaba,
.........

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Dim s As Long
        If Intersect(Target, Range("b5:b55")) Is Nothing Then Exit Sub
            For i = 5 To Range("b55").End(3).Row
                If Cells(i, 2).Value <> "" Then
                    s = s + 1
                Cells(i, 1).Value = s
            End If
        Next i
    If Target.Value = "" Then
    Target.Offset(0, -1).ClearContents
    End If
End Sub

Harikasın ..