Sütundaki bilgiye göre sıra numarası vermek

[Korhan Ayhan]

Selamlar,

Sayfa üzerinde C sütununa veri girişi yapıyorum. B sütununda ise sıra numarası verdirmek istiyorum fakat aşağıda izah edeceğim şekilde.

Diyelimki C2 ye girdiğim veri C1 ile aynı ise sıra no olmayacak. Ayrıca C2 boş bırakılırsada sıra no olmayacak. Bu şartlar dışındaki durumlarda sıra no bir artarak devam edecek. Bu işlem veri girişindede olabilir bir tuşa basılarakta olabilir.

 

[abazya]

Buradakileri senin için uygunmu

http://www.excel.web.tr/viewtopic.php?t=6175&highlight=s%FCtundaki+bilgiye+g%F6re+s%FDra+numaras%FD+vermek

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına yazarak deneyin.

[vb:1:e1f1569860]Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Offset(-1, 0) = Target Then Exit Sub
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
Target.Offset(0, -1) = WorksheetFunction.CountA(Range("b1:b" & Target.Row - 1)) + 1
End Sub
[/vb:1:e1f1569860]

 

[Necdet]

Sayın COST_CONTROL,

işinizi tam görür mü bilemem ama kur'a çekilişi ile ilgili bir dosyam var.
baya detaylı.
Milli Piyango ile işbirliği içinde kura çekilişi sonucu çıkan kişilerin kaçıncı sırada çıktığını vs söylüyor.

çekiliş sıra no sizin isteğiniz gibi düzenlenmiştir. Umarım İşinize yarar.

Edit : bu siteye bayılıyorum, daha yanıt verirken bir çok yanıtı görüyoum

 

[Korhan Ayhan]

Teşekkürler.