application defined or object-defined error hatası

[Sarigol_937]

Arkadaşlar bu kodla otomatik a sütnuna satır numrası verip, 6 ncı sütünada tarih saat yazdıyordum tc girince ama koda birşey oldu şimdi satır eklediğimde verilerin arasına sayfada hata veriyor."application defined or object-defined error" diye hata verip vba kodlarında Target ofset le başlayan yeri işaretliyor koyu yapıyor

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim s As Long
If Intersect(Target, Range("b2:b65536")) Is Nothing Then Exit Sub

Target.Offset(0, 6) = Format(Now, "dd.mm.yyyy hh:mm")
If Target.Value = "" Then
Target.Offset(0, 6) = ""
End If

For i = 2 To Range("b65536").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
End Sub

 

[Ömer]

Merhaba,

Bende herhangi bir hata vermedi. Tam olarak sırasıyla hangi işlemleri yapınca hata aldınız.

 

[Sarigol_937]

Ömer bey araya satır ekleyince hata vermiyormu

 

[ZorBey_]

Merhaba
Sayın
Sarigol_937
B Sutununa Veri Girince A Sutununa Sıra No Veriyor.
K Sutununa Tarih Ve Saati Yazıyor.
Kodlar Herhangi Bir Hata Vermedi Bilginize.

 

[ZorBey_]

Araya Satır Ekledim Yine Hata Vermedi.

 

[Sarigol_937]

O şekilde hata vermiyor zaten, B4 teki cetvelin üzerinde sağ tuşu tıklayıp araya satır ekle deyince hata veriyor

 

[Sarigol_937]

Araya Satır Ekledim Yine Hata Vermedi.

Kardeş ozaman benim excelde bi sıkıntı olabilir, office silicem ve tekrar yükleyip deneyeceğim.zaman ayırdığınız için teşekkür ederim.

 

[Sarigol_937]

Exceli silip yükleyince hata düzeldi !! Bordro programım tekrar çalışıyor.