Sıra numarasına göre satır açma ve numaralandırma

[yyhy]

Sıra numarasına göre satır açma ve numaralandırma yapabilir miyiz?

 

[uzmanamele]

Merhaba

Bu kodu deneyiniz.

Sub SatirEkle()
On Error Resume Next
For i = [b65536].End(3).Row To 3 Step -1
eksik = Cells(i, 2) - Cells(i - 1, 2)
If eksik > 1 Then
ekle = eksik - 2
Rows(i & ":" & i + ekle).Insert Shift:=xlDown
End If
Next i
For i = 3 To [b65536].End(3).Row
Cells(i, 2) = i - 2
Next
End Sub

 

[yyhy]

Teşekkürler

Sayın Uzmanamale ihtiyaca cevap verdi. Elinize sağlık. Yalnız başka kitaplarda da kullanabilmem için şu satırı mı değiştirmem gerekir.
" For i = 3 To [b65536].End(3).Row "
Teşekkürler iyi çalışmalar.