Otomatik sayac veya numarator olusturma hakkında

[maznun5255]

Merhaba Sn Excel dostlarım.
Rica etsem bir tur sayaç veya numarator hazırlanması konusunda bana yardımcı olur musunuz ?
Şimdiden bayramınızı kutlar teşekkür ederim.

 

[veyselemre]

Sayfanın kod modülüne ekleyin. Çift tıklayarak çalışır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Intersect(Target, Range("B2:D2")) Is Nothing Or Target.Count > 1 Then Exit Sub
    If IsNumeric(Target.Value) Then
        Target.Value = Target.Value + 1
    End If
End Sub
Sub sil()
    Range("B2:D2").ClearContents
End Sub

 

[maznun5255]

Cok teşekkür ederim.Elleriniz dert görmesin.