Double_Click olayında iki farklı işlem Hk.

[EKREM1661]

Tüm Arkadaşlarımıza selam ile...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
On Error Resume Next
If Target = "" Then
Target = Date
Target.Offset(0, 1).Select
End If

If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
On Error Resume Next
Cancel = True
UserForm1.Show

End Sub

Arkadaşlar..! Yukarıda; C sütununda çift tıklamakla günün tarihini oluşturuyorum.
Bunun yanında B sütununa çift tıklayınca da UserForm1' i görüntüye getirmek isteyince çalışmıyor, önde olan kodu çalıştırıyor.. Yol gösterebilir misiniz..

 

[Huseyinkis]

Ekteki gibi denermisiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B:C]) Is Nothing Then Exit Sub
On Error Resume Next

If Intersect(Target, [C:C]) Is Nothing Then GoTo adım2:
If Target = "" Then
Target = Date
Target.Offset(0, 1).Select
End If

adım2:

If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
On Error Resume Next
Cancel = True
UserForm1.Show
End Sub

 

[EKREM1661]

Sayın Huseyinkis..! tekrar tekrar teşekkür ederim, başarılar dilerim..