Sıra Numarası Verme

[Bakigemlik]

Merhaba,

"B15" hücresine bir sayı değeri veriyorum, buraya verdiğim sayı değeri kadar "E2" den başlayarak "E" sütununa 1-2-3-4-.... diye sıra numarası vermesini istiyorum,

Desteğinizi rica ederim,

Teşekkürler,

 

[Erdem Akdemir]

Dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "B15" Then Exit Sub
For i = 1 To Range("B15")
Cells(i + 1, "e") = i
Next i
End Sub

 

[Bakigemlik]

Ok çok teşekkürler çalışıyor ama şöyle bir sorun var hücre değeri 6 yazıldığında 1,2,3....6 sıralıyor ama bu değer 5 düşürüldüğünde 6 silmesi mümkün mü,

Teşekkürler

 

[Erdem Akdemir]

Örnek dosyanıza bakarak çözüm geliştirmek daha doğru olur. E sütununda sıralamadaki sayılardan başka altında bir alan yada veriler var mı?

 

[Bakigemlik]

Örnek dosyanıza bakarak çözüm geliştirmek daha doğru olur. E sütununda sıralamadaki sayılardan başka altında bir alan yada veriler var mı?

her hangi bir alan ya da veri yok B15 deki sayı kadar sıra numarası vermesi gerekli, F sütunu burda ki rakama göre işlem yapıyor sadece E sütunu için B15 deki kadar sıra numarası oluşturması yeterli,

 

[Erdem Akdemir]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "B15" Then Exit Sub
Range("E:E").ClearContents
For i = 1 To Range("B15")
Cells(i + 1, "e") = i
Next i
End Sub

 

[Bakigemlik]

Çok ama çok teşekkürler sorunsuz çalıştı

 

[engin_pala]

Formül ile aşağıdaki gibi yapılabilir.

B15 hücresine 6 yazın.
E1 hücresine aşağıdaki formülü yazın ve istediğiniz kadar aşağıya doğru çoğaltın.

=IF(ROW()<=$B$15;ROW();"")