Hücre tıkladığında form_Takvim.show açılması

[ayagiz44]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 Then Exit Sub
If Target.Column = 2 Then
Form_Takvim.Show 0
Else
Unload Form_Takvim
End If
End Sub

Selamlar B8:C19 hücre aralığına yapamadım teşekkürler

 

[YUSUF44]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [B8:C19]) is Nothing Then
        Form_Takvim.Show 0
    Else
        Unload Form_Takvim 
    End If
End Sub

Şeklinde deneyin.

 

[ayagiz44]

Teşekkürler saygılar