Makro otamatik sayı verme

[ormann]

Sayın arkadaşlar ekteki örnek dosyamda d8 hücresine bir veri girdiğimde d5 hücresine otamatik olarak bir sonraki rakamı butona bağlı olmadan makro ile verebilirmiyiz.yardımcı olurmusunuz saygılar

 

[AS3434]

Sayın ormann

Çalıştığınız sayfanın Kod sayfasına yazın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D8]) Is Nothing Then Exit Sub
[d5].Value = [d5].Value + 1
End Sub

.

 

[ormann]

Sayın hocam d8 hücresini sildiğim zaman da sayı veriyo

 

[AS3434]

Sayın ormann

şöyle deneyin

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d8]) Is Nothing Then Exit Sub
If [d8] > 0 Then
[d5].Value = [d5].Value + 1
End If
End Sub

 

[ormann]

Sayın hocam çok teşekkür ederim . sizden ricam daha olacak ekteki örnek dosyamda bulunan sayfa ikide a sütününda bulanan enson kaydın sayfa birde c3 hücresine kayıt sayısını ve c4 hücresine en son kayıt nosunu yazabilirmi .not:a sunutundaki veriler 65336 olabilir.

 

[AS3434]

Sayın ormann

Sayfa1 C3 hücresine

=EĞERSAY(Sayfa2!A:A;">0")

Sayfa1 C4 hücresine

=ARA(9,99999999999999E+307;Sayfa2!A:A)

Yazın.Herhalde böyle birşey istiyorsunuz..

 

[ormann]

teşekkür ederim sayın hocam