BeforeDoubleClick hakkında

[imdatsaral]

Arkadaşlar

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
Selection.Copy
makro1
End Sub

Yukarıdaki BeforeDoubleClick aynı sayfada başka sütun kullanabilirmiyim. örneğin yukarıdaki BeforeDoubleClick B:B sütunudaki hücreye çift tıkladığımda makro1 çalışıyor.
F:F sütunundaki hücreye çift tıkladığımda makro2 çalışsın veya H:H sütunundaki hücreye çift tıkladığımda makro20 çalışsın. Kısacası aynı sayfada birden çok sütunda çift tıklayarak farklı makrolar çalıştırabilir miyiz.

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, Range("B:B")) Is Nothing Then GoTo hata1
MsgBox "1.Makro"
hata1:
If Intersect(Target, Range("C:C")) Is Nothing Then GoTo hata2
MsgBox "2.Makro"
hata2:
If Intersect(Target, Range("D:D")) Is Nothing Then GoTo hata3
MsgBox "3.Makro"
hata3:
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki şekilde yapabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Selection.Copy
makro1
End If

If Not Intersect(Target, Range("F:F")) Is Nothing Then
Selection.Copy
makro2
End If
End Sub

 

[imdatsaral]

Seyit Tiken ve dalgalikur
Çok teşekkür ederim sağolun var olun.