Kaydedilmiş bir listeye otomatik sayı numarası eklenebilirmi?

Katılım
5 Ekim 2007
Mesajlar
6
Excel Vers. ve Dili
2000
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

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
yanıt

Sayfa kod bölümüne kopyalayınız.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For sut = 1 To [b65536].End(3).Row
Range("a" & sut) = sut
Next
End Sub
 
Katılım
5 Ekim 2007
Mesajlar
6
Excel Vers. ve Dili
2000
teşekkür ederim.
Ama sayfa kod bölümü neresi.
Biraz acemiyim de.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
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.
 
S

Skorpiyon

Misafir
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'ü). 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...
 

teonet

Altın Üye
Katılım
20 Kasım 2005
Mesajlar
397
Excel Vers. ve Dili
Ofis 2010 Türkçe
Altın Üyelik Bitiş Tarihi
09-05-2029
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

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
yanıt

Kod:
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
 
Üst