otomatik sıra yardım

[bestof]

4000 kişiden oluşan veri tabanı hazırladım. Bunların belli özelliklerine göre sorgu ve raporlar hazırladım. Yalnız bu raporumda veya sorguma seçilmişlere otomatik sıra numarası vermek istiyorum. Yani 45. 55. 80. üç kişiyi seçtim sıra no da bana 1. 2. ve 3. kişi olarak göstersin. Yardımlarınız için şimdiden teşekkürler.

 

[isakarakus]

merhaba
bu kod seçili olan hücrelere sırayla numara verir.

Sub nover()
num = 0
For Each c In Selection.Cells
num = num + 1
c.Value = num

Next c

End Sub

 

[erhan1988]

sayın karakuş bende yaptığım projede form üzerinde süzdürdüğüm kayıtlara 1 den başlayarak sıra numarası versin istiyorum. Fakat formum sürekli form olduğu için bilinen tüm deyimleri denedim. [CurrentRecord] deyimi tek formlarda başarılı sizin verdiğiniz Sub nover'() örneğini uyğuladım ama çalıştıramadım belkide bir yalnışlık yapıyorumdur . Bu kodu sürekli formlara nasıl uygularım ve nereye yazmalıyım burada çok açıklayıcı gelmedi .yardımlarınızdan dolayı teşekkürler. :icelim:

 

[Levent Menteşoğlu]

Sanırım Sn isakarakus başlıkları karıştırdı. Verilen o kod Excel için geçerlidir.

 

[jale]

Günaydın :hey:

Aşağıdaki linke bakınız.

http://www.excel.web.tr/viewtopic.php?t=4015

 

[altuntas78]

http://www.excel.web.tr/showthread.php?t=3154&page=2