Hücredeki numara artsın...

[cengizhantunga]

Tabloda da açıklayıcı olarak yazdım bir hücredeki sayının en son iki rakamını attırdığımda hemen altındaki hücrede de son iki rakam ona bağlı olarak artabilir mi?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz.

Option Explicit
Dim Eski_Veri
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("F16")) Is Nothing Then Exit Sub
    If Target <> "" And Eski_Veri <> Target Then
        Range("F17") = Range("F17") + 1
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Eski_Veri = Range("F16")
End Sub

 

[cengizhantunga]

Hocam biraz geç oldu kusura bakmayın ama uyguladım olmadı