Sıra no döngüsü kilitlenmesi hk

[chakistes]

Merhaba arkadaşlar sayfa1 içinde satır 10 ile 30 arasında malzemeleri aktarıyor fakat bir tane malzeme girmeden devam ettiğimizde sıra no verirken kilitlenme yapıyor. bunun yerine uyarı verdirebilirmiyiz yada kilitlenmeyi önleyebilirmisiz
On Error Resume Next
Dim srn
srn = 1
For i = 1 To Range("B30").End(3).Row
If Range("b" & i).Value = "" Then
i = srn + 8
Else
Range("a" & i).Value = srn
srn = srn + 1
End If
Next

 

[Necdet]

Merhaba,

Kodları bir kenara bırakın, örnek dosyanızı ekleyin ve ne yapmak istediğinizi belirtin.

 

[chakistes]

malzeme girişinde sondan itibaren kayıt silince sıra no doğru veriyor fakat
baştan yada ortadan kayıt silince piyasa araştırmasına basınca kilitlenme yapıyor örnek program ektedir.