Tarih değiştirildikçe sıra no bir artsın

[vuranoğlu]

excel de hazırlanan teslim fişinde işlem tarihi değiştirildiğinde fiş numarası bir artsın istiyorum başlangıç noktası 1.1.2016 =1 formda yaptığım araştırmada uygun çalışma bulamadım .Bu çalışma makroy la veya formülle yapılabilir mi?
İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfasının kod bölümüne yapıştırın,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "V10" Then Exit Sub
    Range("V9") = Range("V9") + 1
End Sub

. . .

 

[vuranoğlu]

İlginiz için teşekkürler.

 

[vuranoğlu]

İlginize teşekkürler.

Tarih değişince verilen sıra no sütunlara yanlış atıyor.Ayrıca tarih hücresine çift tıklayınca ve imleç diğer hücreye tıklayınca tarih değişmediği halde sıra no değişiyor. Formülde nerede hata var?

 

[Merhum İdris SERDAR]

.

1 No'lu mesajınızdaki dosyada formül dediğinizi yapıyor. Nasıl bir şey istiyorsunuz.

.

 

[Merhum İdris SERDAR]

.

Böyle bir şey mi?

=V10+1-42370

.

 

[vuranoğlu]

1 nolu mesajdaki sorun çözüldü
diğer sorumda tarih değişiyor ve değişen tarih ve no diğer sütunlar kaydedilecek.
Dosyada kullanılan formüller tam çalışmıyor
Tarih değiştiğinde sıra no değişiyor sıra no bir artıyor tarih ve sıra no h g sütunlarına kaydediliyor fakat sırano bir eksik atıyor.

Tarih hücresi çift tıklandığında ve herhangi bir diğer hücreye imleci tıkladığında tarih değişmediği halde sıran o ilerliyor.

 

[vardar07]

Sizdeki kodlar ile aşağıdakini değiştirip denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Target = "" Then Exit Sub
  If Target.Address <> "$B$10" Then Exit Sub
  Range("B9") = Range("B9") + 1
  Range("g65536").End(3)(2, 1) = Range("b10")
  Range("h65536").End(3)(2, 1) = Range("b9")
End Sub