Otomatik Sıra Numarası Verme

[mrtztrk40]

Arkadaşlar yeni bir ekders çizelgesi hazırlıyorum satır eklemeyi makro ile çozdüm fakat sıra numarasını da otomatik vermesini istiyorum mormül ile yapmaya çalıştım ancak 3 satırdan sonrasını hepsini 4 olarak numaralandırıyo makrosu konusundea yardımcı olursanız sevinirim

 

[Huseyinkis]

Arkadaşlar yeni bir ekders çizelgesi hazırlıyorum satır eklemeyi makro ile çozdüm fakat sıra numarasını da otomatik vermesini istiyorum mormül ile yapmaya çalıştım ancak 3 satırdan sonrasını hepsini 4 olarak numaralandırıyo makrosu konusundea yardımcı olursanız sevinirim

satır ekle kodlarını ekteki ile değiştirin
ve aşağıdaki formulu A8 hücresine yapıştırıp mevcut satır kadar aşağı çekin.

Sub SATIR_EKLE()
SATIR = [B65536].End(3).Row + 1
Rows(SATIR).Copy
Rows(SATIR + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Range("B" & SATIR + 1 & ":K" & SATIR + 1).ClearContents
End Sub

=HÜCRE("sat";A8)-7