[Çözüldü] Otomatik sayı verme

[drejan62]

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

[Orion1]

İlgili sayfanın kod modülüne aşağıdaki kodları yapıştırınız.

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


[drejan62]

Evren Üstat teşekkür ederim
süper

[Orion1]

Evren Üstat teşekkür ederim
süper

Rica ederim.
İyi çalışmalar.

[ommerk]

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

[drejan62]

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


[kara_kediii]

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?

[noyan.77]

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