B sütununa veri girdiğimde A sütunundaki sayı 1 artsın

[voodoograph]

Ekte dosya ve açıklaması iletilmiştir.

No ve Ad şeklinde iki sütunum var. Ben ad sütununa veri girdiğimde No otomatik 1 artacak. Böylece oraya müdehale etmek zorunda kalmayacağım. Nasıl yapılması gerekiyor? Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linki incelermisiniz.

http://www.excel.web.tr/showthread.php?t=34481

 

[Merhum İdris SERDAR]

A2 hücresine:

=IF(B2>0;1;"")

B2 hücresine:

=IF(B3>0;A2+1;"")

Yazın.

Sonra B2 hücresine yazdığınız formülü istediğiniz kadar aşağıya doğru kopyalayın.

IF=EĞER


..

 

[Seyit Tiken]

Aşağıdaki gibi uygulayınız. Kodu ilgili sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then [A2] = 1: Exit Sub
If Target.Column = 2 Then Target.Offset(0, -1) = 1 + Target.Offset(-1, -1).Value
End Sub

 

[voodoograph]

örnekler için teşekkürler

örnekler için teşekkürler arkadaşlar...

Ben aşağıdaki kod ile çözdüm... (Ekte sundum)
A2 ye şu kodu girin ve aşağıya doğru çekin... B boş olduğunda da A sütununda ekleme yapmıyor.
=EĞER(B2<>"";SATIRSAY(A$2:$A3)-1;"")

Bu fonksiyonun bir sonraki aşaması ise hücrenin üzerine gelir gelmez A sütununda artış yapmasını sağlamak istiyorum. Şimdi Seyit Beyin verdiği makroyu da deneyeceğim.

Tekrar teşekkürler...