Otomatik Sıra Numarası Verme

[Karanlik1]

Üstadlar Merhaba,

Aşağıdaki gibi bir excel dosyasında, veri kolonuna herhangi bir şey girldiğinde sıra kolonuna numara verdirmek istiyorum, baya uğraşmama rağmen yapamadım.

Şimdiden saolun

sıra  ad         soyad      veri
      UMUT       BİLTEKİN
      AYDOĞAN    ÇELİKYOL
      NECMİYE    YILMAZ
      FATMA      ALTUĞ
      HARUN      AKYOL
      OZAN       AKSOY
      HAKAN      DOYMAN
      KEMAL      ÖCAL
      ERKAN      AKTI
      EMRE       KAYA
      OĞUZ       KAHRAMAN
      AHMET      ÖZTOROS
      TÜLİN      BURUL
      TUNCER     GEÇİT
      EMEL       ÖZDEMİR
      VUSLAT     KARTAL
      AYŞE       CEBE
      BURCU      ECE

 

[Ömer]

Merhaba,

Dosyanız ektedir..

 

[talatcd]

sıra no verme

arkadaş Bağ_Değ_Dol_Say ile yaptım dosyan ektedir.

 

[talatcd]

Espiyonajl arkadaşın kodu nu yeni gördüm inceledim fakat boş geçen satır oldumu veya veri girilmeyen bir satır ona da yine numara veriyor. Onun için ben de dediğim gibi bir örnek yaptım. hangisi işine yararsa kolay gelsin

 

[Karanlik1]

Arkadaşlar saolun ama anlatamamışım.

Mesela 12.satırdaki veri kolununa birşey girldiğinde sıra no.sunu 1 yapacak, gidip 60.satırdaki veriye girince onun sırasını 2 yapacak, aynı şekilde devam edip 2.satırdaki veriye girdiğimde onun sırasını 3 yapacak.

Sağolun

 

[talatcd]

sıralama

dosyan ektedir

 

[talatcd]

dosya ekte

dosya gelmedi ekliyorum.

 

[Karanlik1]

Emeğin için saol Dostum ama yine açıkladığım gibi olmamış.. Formulle olacağını sanmıyorum. Sağol

 

[talatcd]

Veri sayfası dolu olan satıra numarayı otomatik olarak verir. Eksiklik neresinde söyle düzeltelim. Yanlış anlamış olabilirz.

 

[Karanlik1]

Mesela 12.satırdaki veri kolununa birşey girldiğinde sıra no.sunu 1 yapacak, gidip 60.satırdaki veriye girince onun sırasını 2 yapacak, aynı şekilde devam edip 2.satırdaki veriye girdiğimde onun sırasını 3 yapacak.

Dostum senin yaptığın dosyada nerden veri girmeye başlarsam başlayım, ilk girdiğimin sıra numarası değişiyor. Örneğe bakarsan daha iyi anlarsın, sağol

 

[talatcd]

tamam zaten öyle yapıyor.

 

[talatcd]

sen küçükten büyüğe göre mi numara vermesini istiyorsun

 

[talatcd]

sırala

dosya ekte

 

[Karanlik1]

talatcd, yardımların için saol ama dediğim gibi formulle yapılabileceğini sanmıyorum. sıra numarasının sabit kalması gerekiyor, senin örneklerinde formul olduğu için değişiyor tabiatıyla

 

[Karanlik1]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then
Cells(Target.Row, 1).Value = Application.Max(Range("A:A")) + 1
End If
End Sub

Yukarıdaki kod tam olarak istediğim işi yapıyor, belki birisine lazım olur,
tekrar saolun