Adet kadar sayı ilave etmek

[eedtr1]

Merhaba.
Yaptığım bir çalışmada 3 ayrı seri numarası olan defterlerim var ve herbir sutundaki defter bir kişiye ait.Defter bitimlerini kontrol etmem gerekiyor.A sütununda ana seri numarası ,B sütununda başlangıç seri numarası;C sütununda son seri numarası,D sütununda kaç adet olduğu yazılı.Kontrol yapabilmem için başlangıç ve son seri numaralarının arasındaki numaralarıda bilmem gerekiyor.Örneği ilave ediyorum.
Sorum:B sütunundaki numara ile C sütunundaki numara (ikiside dahil) arasındaki sayıları aynı satırda E sütunundan itibaren tek tek yazdırabileceğim kısa bir yol.
Şimdiden teşekür ederim.

 

[muygun]

Merhaba;
E2 hücresine;
=EĞER($B2+SÜTUN()-5<=$C2;$B2+SÜTUN()-5;"")
Formülünü uygulayıp sağa doğru çoğaltın.
İyi çalışmalar.

 

[Orion1]

Dosyanız ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, say As Long
If Intersect(Target, [D2:D65536]) Is Nothing Then Exit Sub
On Error Resume Next
say = Target.Offset(0, -2).Value
For i = 5 To Target.Value + 5
    Cells(Target.Row, i) = say
    say = say + 1
Next i
End Sub

 

[eedtr1]

Teşekkür ederim her ki çözüm içinde.Sorunum çözüldü ellerinize sağlık.