User form açılması

[sedat2161]

Hayırlı sabahlar arkadaşlar. Herhangi bir sayfaya da herhangi bir hücreye tıkladığımda user form açılma imkanı var mı acaba. İyi çalışmalar diliyorum.

 

[Ömer]

Merhaba,

Tek ve çift tıklamayla ilgili 2 örnek ekledim. Size uyanı kullanırsınız.
A2:A10 aralığı için çalışmasını belirledim. Bu aralığı kendinize uyarlarsınız.
Kodları "BuÇalışmakitabı" kod bölümüne kopyalayın.

'çift tıklamayla açılır
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(Target, Range("A2:A10")) Is Nothing Then Exit Sub
    UserForm1.Show
End Sub

'tek tıklamayla açılır
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(Target, Range("A2:A10")) Is Nothing Then Exit Sub
    UserForm1.Show
End Sub

 

[sedat2161]

Merhaba,

Tek ve çift tıklamayla ilgili 2 örnek ekledim. Size uyanı kullanırsınız.
A2:A10 aralığı için çalışmasını belirledim. Bu aralığı kendinize uyarlarsınız.
Kodları "BuÇalışmakitabı" kod bölümüne kopyalayın.

'çift tıklamayla açılır
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(Target, Range("A2:A10")) Is Nothing Then Exit Sub
    UserForm1.Show
End Sub

'tek tıklamayla açılır
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(Target, Range("A2:A10")) Is Nothing Then Exit Sub
    UserForm1.Show
End Sub

Hocam çok teşekkür ederim. emeğinize sağlık. iyi çalışmalar diliyorum.