Kaydedilmiş bir listeye otomatik sayı numarası eklenebilirmi?

[kartal124]

600 satırlık bir liste yaptım .Ama başlarken A sütununa sayı numarası bölümünü eklemedim.Şimdide pişman oldum .Tek tek 1 'den başlayıp yazmammı gerekir yoksa bunun kolay bir yolu varmı acaba?

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kod bölümüne kopyalayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For sut = 1 To [b65536].End(3).Row
Range("a" & sut) = sut
Next
End Sub

 

[kartal124]

teşekkür ederim.
Ama sayfa kod bölümü neresi.
Biraz acemiyim de.

 

[Seyit Tiken]

Makrosuz Çözüm : A1 hücresine 1 yazın > İmleç A1'de olsun > Düzen > Doldur > Seriler > Sütunlar'ı seçili yapın > Son Değer kutucuğuna 600(yada istenilen sayı) yazıp enterleyin.

 

[N.Ziya Hiçdurmaz]

Sayfa sekmesine sağ tuş yapın kod görüntüleye tıklayıp çıkan sayfaya yapıştırın.kodun çalışması için makroları etkinleştirmelisiniz.Bunun içinde araçlar ,makro ,güvenlik orta seviye olarak işaretlemelisiniz.

 

[Skorpiyon]

Sayın kartal124,

Sıra numarası gireceğiniz sütunun ilk hücresine (Yani tahminen A2 hücresine) 1 yazın. Altına da 2 yazın.

Bu iki hücreyi fare ile seçili hale getirin.(Yani A2 ve A3'&#252. Sonra 2 yazdığınız hücrenin sağ alt köşesinde siyah küçük bir kare göreceksiniz. Bu kareciğin üzerine geldiğinizde imleciniz beyaz artı işaretinden siyah artı işaretine dönecektir. Tam bu anda fare ile çift tıklayın. Sayılar en son veriye kadar otomatikman yerleşecektir.

Kolay gelsin, Saygılarımla...

 

[kartal124]

İlgilenen tüm arkadaşlara teşekkürlerimle..

 

[teonet]

Ben de bir şey sorabilir miyim?
Mesala b1 den b2-b3 diye veriler bulunuyor. Benim istediğim de a1 den itibaren sağ hüçre (yani b1) değer girdikçe sol hüçre sıranumarasını otomatik atasın.
Bunu nasıl yaparız.
Şimdiden bilgisini paylaşam arkadaşlara teşekkürler

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b1:b1000]) Is Nothing Then Exit Sub
For sut = 1 To [b65536].End(3).Row
s = s + 1
Range("a" & sut) = s
Next
End Sub