Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: [Çözüldü] Otomatik sayı verme  (Okunma sayısı 29828 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
[Çözüldü] Otomatik sayı verme
« : 03 Haziran 2010, 10:35:03 »
Merhabalar
Sayfa1 de b sütununa veri giriyorum.
İstediğim B sütununa veri girdikçe a sütununda artan şekilde sıra no vermesini yapan bir makro.
Örnek
B2 hücresine veri girdiğimde a2 hücresine 1 desin, daha sonra b sütnunu her ver girdiğimde aynı satırda a sütnunua 2-3-4 gibi sıra numarası verecek

Teşekkürler
« Son Düzenleme: 26 Temmuz 2010, 15:03:41 Gönderen: Bülent Öztürk »

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Otomatik sayı verme
« Yanıtla #1 : 03 Haziran 2010, 11:27:21 »
İlgili sayfanın kod modülüne aşağıdaki kodları yapıştırınız. 8)
Kod: [Seç]
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Offset(0, -1).Value = Target.Row - 1
End Sub

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Otomatik sayı verme
« Yanıtla #2 : 03 Haziran 2010, 11:46:39 »
Evren Üstat teşekkür ederim
süper :alkis

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Otomatik sayı verme
« Yanıtla #3 : 03 Haziran 2010, 12:09:31 »
Evren Üstat teşekkür ederim
süper :alkis
Rica ederim.
İyi çalışmalar. 8)

Çevrimdışı ommerk

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: omer kk
  • İl / İlçe: ankara/mamak
Ynt: Otomatik sayı verme
« Yanıtla #4 : 04 Haziran 2010, 15:05:01 »
boyle bır makroya benımde ıhtıyacım vardı.
benım aradıgım ozellık soyle:
ben verı gırmeye b5 hucresınden baslıyorum
b5 hucresıne ılk verı gırdıgımde a5 hucresıne 1
b6 hucresıne verı gırdıgımde a6 hucresıne 2

konuda verılen makroyu uyguladıgımda b5 hucresıne makro gırdıgımde a5 hucresıne 4 yazıyor

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Otomatik sayı verme
« Yanıtla #5 : 04 Haziran 2010, 15:31:14 »
boyle bır makroya benımde ıhtıyacım vardı.
benım aradıgım ozellık soyle:
ben verı gırmeye b5 hucresınden baslıyorum
b5 hucresıne ılk verı gırdıgımde a5 hucresıne 1
b6 hucresıne verı gırdıgımde a6 hucresıne 2

konuda verılen makroyu uyguladıgımda b5 hucresıne makro gırdıgımde a5 hucresıne 4 yazıyor

Şöyle birşey yapılablir,
Kod: [Seç]
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Offset(-1, -1).Value = "" Then
Target.Offset(0, -1).Value = 1
Else
Target.Offset(0, -1).Value = Target.Offset(-1, -1).Value + 1
End If

End Sub

Çevrimdışı kara_kediii

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: elif yeşil
  • Doğum Yılınız: 1984
  • İl / İlçe: muğla/fethiye
Ynt: [Çözüldü] Otomatik sayı verme
« Yanıtla #6 : 08 Ocak 2014, 11:50:44 »
teşekürler işime çok yaradı yalnız bişey daha sorabilir miyim? ben excelde dolu bir listeye araya satır eklediğimde sıra numaralarının  otomatik olarak değişmesini istiyorum bunu yapmak mümkün mü acaba?

Çevrimdışı noyan.77

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: noyan noyan
  • Doğum Yılınız: 1977
  • İl / İlçe: izmir
  • İşletim Sisteminiz: bornova
Ynt: [Çözüldü] Otomatik sayı verme
« Yanıtla #7 : 17 Eylül 2015, 16:24:39 »
Merhaba arkadaşlar
bana birbirinden farklı  iki adet sıra numarası lazım
d2 ye deger girdimde a2 ye  otomatık sıra numarası verecek fakat a2 yılı devırene kadar sırayla artıcak yıl bıtınce tekrar 1 den başlayacak.
b2 ye ise otomatık sıra numarası verecek fakat b2 ayı devırene kadar sırayla artıcak icinde bulundugumuz ay bıtınce tekrar 1 den başlayacak.
c2 senenin yılını otomatık yazdıracak

biraz karısık ama

yardımlarınız için tesekkurler