Tıklanınca adet arttırma yardım

[3gzotik]

Merhaba arkadaşlar aşağıda yapmaya çalıştığım girişte onay sütunundaki onaya tıklayınca adet 1 artıcak ve s sütununa o anın tarihi atanıcak.

http://s3.dosya.tc/server9/9h8fc7/Kitap3.zip.html

Şimdiden herkese teşekkür ederim.

 

[turist]

Sayfa Kodundakini aşağıdaki gibi uygulayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("P5:P10000")) Is Nothing Then
If Target.Offset(0, -1) = "" Then
 Cancel = True
 Exit Sub
 End If
           Target.Offset(, -1) = Target.Offset(, -1).Value + 1
           Target.Offset(, 3) = CDate(Date)
            MsgBox "İşleminiz Onaylandı"
        End If
    Cancel = True
    End Sub

 

[3gzotik]

Sayfa Kodundakini aşağıdaki gibi uygulayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("P5:P10000")) Is Nothing Then
If Target.Offset(0, -1) = "" Then
 Cancel = True
 Exit Sub
 End If
           Target.Offset(, -1) = Target.Offset(, -1).Value + 1
           Target.Offset(, 3) = CDate(Date)
            MsgBox "İşleminiz Onaylandı"
        End If
    Cancel = True
    End Sub

Adet boş değer olduğu zaman çalışmıyor hocam

Düzenleme: Yaptım hocam tekrardan teşekkürler.