Hücreye Takvim Uygulaması

[mustafa1205]

Örnekte açıklama yapmaya çalıştım. Birden fazla hücreye takvim uygulaması sorunum var. Teşekkürler

 

[İhsan Tank]

Örnekte açıklama yapmaya çalıştım. Birden fazla hücreye takvim uygulaması sorunum var. Teşekkürler

merhaba
sayfada bulunan

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
UserForm1.Show
End Sub

bu kodu

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B1:B2")) Is Nothing Then Exit Sub
UserForm1.Show
End Sub

bununla değiştirin ve deneyin

 

[mustafa1205]

Hocam çok teşekkürler. Elleriniz dert görmesin.

 

[İhsan Tank]

Hocam çok teşekkürler. Elleriniz dert görmesin.

rica ederim
:yazici: