userform göster gizle

[YILDIZ YAĞMURU]

aşağıdaki kod belirli sütunlarda bir hücre seçince userformu açıyor. bu koda bir ek yapıp belirlenmiş sutunların harıcınde bir hücreye tıklayınca userformu kapatabilirmiyiz acaba ..?

ilginiz için çok teşekkürler

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("E5:E155,F5:H155,K5:K155,N5:N155,L5:L155,S5:S155")) Is Nothing Then Exit Sub
UserForm1.Show 0

End Sub

 

[Orion1]

Buyurun.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("E5:E155,F5:H155,K5:K155,N5:N155,L5:L155,S5: S155")) Is Nothing Then
    Unload UserForm1
    Exit Sub
End If
UserForm1.Show 0

End Sub

 

[YILDIZ YAĞMURU]

çok teşekkürler

Buyurun.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("E5:E155,F5:H155,K5:K155,N5:N155,L5:L155,S5: S155")) Is Nothing Then
    Unload UserForm1
    Exit Sub
End If
UserForm1.Show 0

End Sub

ellerine sağlık