Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: drejan62 - 03 Haziran 2010, 10:35:03

Başlık: [Çözüldü] Otomatik sayı verme
Gönderen: drejan62 - 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

Başlık: Ynt: Otomatik sayı verme
Gönderen: Orion1 - 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


Başlık: Ynt: Otomatik sayı verme
Gönderen: drejan62 - 03 Haziran 2010, 11:46:39

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

Başlık: Ynt: Otomatik sayı verme
Gönderen: Orion1 - 03 Haziran 2010, 12:09:31

Alıntı yapılan: drejan62 - 03 Haziran 2010, 11:46:39

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

Rica ederim.
İyi çalışmalar. 8)

Başlık: Ynt: Otomatik sayı verme
Gönderen: ommerk - 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

Başlık: Ynt: Otomatik sayı verme
Gönderen: drejan62 - 04 Haziran 2010, 15:31:14

Alıntı yapılan: ommerk - 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

Şö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


Başlık: Ynt: [Çözüldü] Otomatik sayı verme
Gönderen: kara_kediii - 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?

Başlık: Ynt: [Çözüldü] Otomatik sayı verme
Gönderen: noyan.77 - 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