Rakam girdikçe yan hücreye sıra numarası verecek

[sirkülasyon]

O20 hücresine rakam girdikçe Q20 hücresine 1, 2, 3 gibi rakam artırarak kayıt edecek bir formüle ya da makroya ihtiyacım oldu. Yardımcı olabilir misiniz?

 

[muygun]

Merhaba;
İlgili sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [O20]) Is Nothing Then Exit Sub
[Q20] = [Q20] + 1
End Sub

İyi çalışmalar.

 

[sirkülasyon]

muygun abi

Option Explicit
Dim İLK_VERİ As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [O1919]) Is Nothing Then Exit Sub
If Target = "" Then
İLK_VERİ = Empty
Exit Sub
End If
If IsNumeric(Target) Then
Application.EnableEvents = False
Target = İLK_VERİ + Target
Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
İLK_VERİ = Target
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [O20]) Is Nothing Then Exit Sub
[Q20] = [Q20] + 1
End Sub
Muygun abi;
ilk makro korhan abinin kodu. Şİmde ben bunun ikisini nasıl birleştireceğim.
O beceri bende yok. Bu konuda rica etsem yardımcı olabilir misiniz?