Hücreye çift tıklayınca 1 artırma

[Metin Karaağaç]

Selamlar.
Kod arşiv programında işime yarayacak bir kod var. Hücreye çift tıklayınca değeri 1 artırıyor.
Ancak sadece 2. sütun için bunu yapıyor. Bu kodu, D3;AG32 arasını kapsayacak şekilde nasıl değiştiriyoruz?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
       As Range, Cancel As Boolean)
  Cancel = True   'Get out of edit mode
  If Target.Row = 1 Then Exit Sub
  [color=red]If Target.Column <> 2 Then Exit Sub  'Require Col B[/color]
  On Error Resume Next
  Application.EnableEvents = False
  Target.Value = Target.Value + 1
  Application.EnableEvents = True
  If Err.Number <> 0 Then
     MsgBox "Unable to add 1 to value in cell " _
       & Target.Address(0, 0)
  End If
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
       As Range, Cancel As Boolean)
  Cancel = True   'Get out of edit mode
  If Target.Row = 1 Then Exit Sub
  [COLOR="Blue"]If Intersect(Target, [D3:AG32]) Is Nothing Then Exit Sub[/COLOR]
  On Error Resume Next
  Application.EnableEvents = False
  Target.Value = Target.Value + 1
  Application.EnableEvents = True
  If Err.Number <> 0 Then
     MsgBox "Unable to add 1 to value in cell " _
       & Target.Address(0, 0)
  End If
End Sub

 

[Metin Karaağaç]

Buldum

Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
       As Range, Cancel As Boolean)
  Cancel = True   'Get out of edit mode
If Intersect(Target, Range("D3:AG32")) Is Nothing Then Exit Sub
  On Error Resume Next
  Application.EnableEvents = False
  Target.Value = Target.Value + 1
  Application.EnableEvents = True
  If Err.Number <> 0 Then
     MsgBox "Unable to add 1 to value in cell " _
       & Target.Address(0, 0)
  End If
End Sub

 

[Metin Karaağaç]

Çok teşekkür ederim Sn.Hiçdurmaz.
Gerçi çözüme ben de ulaştım ama ilginiz için tekrar teşekkürler.