Otomatik Sayılandırma

[noxious]

Arkadaşlarım ve Hocalarım ekte sunduğum örnekte açıklamasını yaptım.

Benim isteğim B sütununa veri girdikçe A sütunu otomatikman 1 sayı artarak sıra numarası versin yardımlarınız için şimdiden teşekkürler

 

[AS3434]

Sayın noxious

A2 hücresine aşağıdaki formülü yazın ve aşağıya çekerek kopyalayın.

=EĞER(B2="";"";SATIR()-1)

Kendi formülünüzü şöyle de düzenleyebilirsiniz.

=eğer(b2="";"";ALTTOPLAM(3;$B$2:B2))

 

[noxious]

Hocam saygılar ben otomatikman aşağıya doğru kendi otomatikman sayı atasın dedim ama sunduğunuz çözüm yolu işimi gördü sizin formülüde kendi formülümüde denedim ve gecenin bu saatinde gösterdiğiniz ilgiden dolayı size müteşekkirim tekrar teşekkürler

 

[AS3434]

Sayın noxious

İsteğinizin makro ile yapılmış hali.

Sayfa1 in kod sayfasına bakın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Dim i As Long, sıra As Long
For i = 2 To [b65536].End(3).Row
If Not Cells(i, 2) = "" Then
sıra = sıra + 1
Cells(i, 1) = sıra
End If
Next
End Sub

 

[noxious]

Hocam sağol süpersin

 

[baydeniro]

Paylaşım İçin Teşekkürler

Paylaşım için teşekkürler.

 

[eedtr1]

Benimde benzeri bir sorunum vardı yaklaşık çözüm oldu ancak ben burada birde b sütununda tekrarlayan isim var ise onlara aynı noyu vermesini istiyorum.Bunu nasıl yapabilirim.

 

[u4selec]

Sayın noxious

İsteğinizin makro ile yapılmış hali.

Sayfa1 in kod sayfasına bakın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Dim i As Long, sıra As Long
For i = 2 To [b65536].End(3).Row
If Not Cells(i, 2) = "" Then
sıra = sıra + 1
Cells(i, 1) = sıra
End If
Next
End Sub

bunu istedigimiz sayıdan nasıl başlatabiliriz ? birde arada satır boşlugu verdikten sonra tekrar istedigimiz sayıdan başlatabilirmiyiz?