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
-
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
-
İlgili sayfanın kod modülüne aşağıdaki kodları yapıştırınız. 8)
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
-
Evren Üstat teşekkür ederim
süper :alkis
-
Evren Üstat teşekkür ederim
süper :alkis
Rica ederim.
İyi çalışmalar. 8)
-
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
-
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,
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
-
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?
-
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