Sıralamada hata

[msanli]

Herkese iyi akşamlar,
Aşağıdaki makroda sorun yaşıyorum. Yaptığım işlem alt alta (a1.a2) birleştirilmiş hücrede aşağıdaki makroyu uyguladımda sıra numarasının 1-3-5... olarak veriyor. If Not Cells(i, 2) = "" Then bu satırı If Not Cells(i, 1) = "" Then olarak değiştirdiğimde ilk komutta makro çalışarak sıralamayı 1-2-3-... olarak düzgün yapıyor, ikinci seerfe ise hiç sıralama yapmıyor. Yardım ederbilirseniz memnun olurum


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Dim i As Long, syra As Long
For i = 9 To [b65536].End(3).Row
If Not Cells(i, 2) = "" Then
sira = sira + 1
Cells(i, 1) = sira
End If
Next
End Sub

 

[Necdet]

Merhaba,

Koddan ziyade dosyayı görmekte yarar var. Birleştirilen hücreleri incelemek için.

 

[msanli]

hocam, ekteki dosyanın conductivity sayfasında bu hatayı yapıyor. Ayrıca kodları yazdıktan sonra makrolar çok yavaş çalışıyor ve bazen kitlenme bile yapıyor.