Hücrelere Otomatik Sayı Girme

Örnek bir dosya ekliyorum.

Bunun en kolay yolu Excel 365 kullanıcılarının faydalanacağı SIRALI fonksiyonu.
Üstteki formül yazdığınız hücreden itibaren birer arttırarak 5000'e kadar otomatik sayı verecektir.

@mbenli,
Ben de bir alternatif öneride bulunayım.
Koddaki F15 1 sayısının yazılacağı ilk hücrenin adresi, 20 sayısı ise kaça kadar sayı yazılacağı.
Bunları ihtiyaca göre değiştirerek istediğiniz sonuç alınır.

Çok teşekkür ederim ilginiz için . Peki bunu aynı sayfadaki hücrelere girdirebilir miyiz? Yani yukarıdan aşağıya aynı sütuna değil de aynı sayfadaki sütunlara sayı girdirebilir miyiz? Örneğin A1 hücresinden başla I50 hücresine kadar sayı gir gibi.

Ömer Abi nin verdiği kod çok kısa ve net, yüklediğim dosyadaki örnekten daha kullanışlı. Çok kısa bir kod olduğu için; Ömer Abi nin tarif ettiği şekilde değişiklik yaparak istediğiniz sonuçlara ulaşırsınız. Mesela sayıları değiştirin, sayıların yerlerini değiştirin; bu şekilde kodun işleyişini çözeceksiniz.

@mbenli
Verdiğim kodla ilgili kısa bir not daha düşeyim.
Kırmızı 1 sayısı veri yazılacak sütun sayısı, yeşil 1 ise ilk başlangıç sayısı olan 1 değerini ifade ediyor.
Tek sütuna değil de; belli sayıda satır ve sütuna veri yazdırılmak isteniyorsa, kodda değişiklik olacak anlamına gelir.

Sub SIRA_NO()
[F15].Resize(20, 1) = Evaluate("Row(1:20)")
End Sub

Ayrıca, şahsen benim pek hazzetmediğim bir yöntem olan;
-- soruların örnek belge üzerinden sorulmaması (örnek belgelerin, gerçek belgenin özel bilgi içermeyen kopyası olması)
-- açılış mesajındaki isteğin karşılığı verildikten sonra, ya şöyle olursa, ya böyle olursa gibi isteğin kapsamını değiştiren yeni/ek soruların gelmesi.

Gerçek belgedeki gerçek ihtiyaç neyse, sorunun örnek belge üzerinden bir kerede ve net olarak sorulması gerekir.
(örnek belge özellikleriyle ilgili olarak, cevabımın altındaki İMZA bölümünü mutlaka okuyunuz)
Yoksa hiç bir sorunun/konunun sonunun gelmesi mümkün olmaz.

Ömer Bey, kusuruma bakmayın exelde pek iyi değilim ama sayenizde öğrenmeye gayret ediyorum. Sorumla ilgili yaptığınız açıklama beni bir yere kadar getirdi. Devamını beceremedim. Tam olarak istediğim sıralama örneğini dosya olarak ekliyorum. Şimdiden teşekkür ederim.