• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

otomatik satır numarası verme

C

cebelitarık

Katılım
12 Kasım 2007
Mesajlar
327
Excel Vers. ve Dili
excel 2003
Merhaba arkadaşlar

A1 hücresinde sıra numarası olmak üzere A2 ile H2 aralığına kişilere ait bilgileri girmek istiyorum. Böylece her satıra bir kişi için bilgi girilecek. Ancak her satıra bilgi girildikçe sıra numarasının A1 sütununa otomatik olarak verilmesini ve veri giriş sayfasından aradan bir satır komple silindiğinde satır numarasının otomatik olarak yeniden sıralanmasını istiyorum.
Bu kodu yazamadım. Yardımcı olacak arkadaşlara minnettar kalacağım.
İlgilenecek arkadaşlara şimdiden teşekkürler.
 
merhaba

dediğiniz üsere örnek bir çalışma yapıp gönderdim ekli dosyada inşallah isrtediğiniz gibi olmuştur. kendi çalışmanıza uyarlayabilrsiiiz
 
SAYIN UDENTR 2002
ilgine çok teşekkür ederim.
Ancak benim istediğimden biraz farklı olmuş
benim istediğim. A1 hücresine yazdığım bu formül normelde işimi görüyor ancak ben bunu formülle değilde kodlarla yapılmasını istemiştim.
=EĞER(D2="";"";ALTTOPLAM(3;$D$2:D2))

yani D sütunundaki hücrelere verileri list boxla değilde direkt olarak elle girdiğmde A sütununda A2 hücresinden itibaren numaraları otomatik olarak verdirmek istiyorum. komle satır sildiğimde numaraların yine bi,rbirini takip etmesini istiyorum. D sütunda bir hücreyide sildiğimde karşılığındaki sıra numarasının silinmesini ancak aşağıdaki numaralarında buna uygun olarak devam etmesini istiyorum. dosyayı ekledim yeşil sutuna yazdığım zaman sarı sütunda numaralar otomatik sıralanacak bu işler geri planda formül yerin kodl ayapılsın istiyorum.
Kusura bakma bende çok şey istiyorum galiba emeğine teşekkür ederim.
 
abazya hocam sanırım sen doğrusunu anlamışsın özür :)
 
sayın abazya sizede çok teşekkür ederim
ancak dediğim gibi bu işi kolarala yapmak istiyorum sayfada formül bulunmasın
çünkü verileri excelden anlamayan acemi kişiler doldurup getirecekler.
 
Sayın cebelitarık

Çalıştığınız sayfanın kod sayfasına aşağıdaki kodları yazın.

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d:d]) Is Nothing Then Exit Sub
Dim i As Long, sr As Long
[a2:a65536].ClearContents
For i = 2 To [d65536].End(3).Row
If Not Cells(i, 4) = "" Then
sr = sr + 1
Cells(i, 1) = sr
End If
Next
End Sub

Örnek dosyayı inceleyin.


/
 
Tamam.
Yapılmasına yapılırda Veri 30.000 - 40.000 satıra ulaştığında ne olacak.Her yeni veri girildiğinde döngü çalışacak ve işlem yavaşlayacak.Yani bu tür isteklerde bulunan arkadaşlar bunlarıda göz önüne almaları gerekiyor.
Bende hatırlatması.:cool:
 
Sayın As3434 ve Orion2 ilginiz için teşekkür ediyorum.
zaten veri gişim 1000 satırı geçmeyeceği için işimi gördü.
problemim çözülmüş oldu.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst