Userform hk.

[recepkull]

Arkadaşlar userform hakkında iki konuda yardımınıza ihtiyacım var. Birincisi eklediğimiz şekli yada resimde Kenarları Parlat ve Bulanıklaştır özelliği oluyor aynı özellik userformda var mı var ise nasıl uyguluyoruz ? İkincisi userform açıldıktan sonra herhangi bir hücreye tıklandığında usferformun kapanmasını nasıl sağlayabilirim.

 

[YUSUF44]

Birinciyi bilmiyorum.

İkinci muhtemelen şöyle, userformun ShowModal özelliği False olmalı. Sonra sayfanın worksheetSelectionChange olayına

unload userform1

satırı eklemelisiniz.

 

[recepkull]

Hocam ilgilendiğiniz için teşekkür ediyorum. Acaba ilk sorunun cevabı yok mu yani usferformun böyle bir özelliği yok mu ?

 

[Korhan Ayhan]

Küçük bir tavsiye;

Bence ilk önce userformunuzun işlevselliğine önem verin. Sonrasında görsellik katarsınız.

 

[recepkull]

Birinciyi bilmiyorum.

İkinci muhtemelen şöyle, userformun ShowModal özelliği False olmalı. Sonra sayfanın worksheetSelectionChange olayına

unload userform1

satırı eklemelisiniz.

Yusuf hocam söylediklerinizi denedim tam olarak istediğim gibi oldu teşekkür ederim. Sormak istediğim bir şey daha var. Userform penceresindeki çarpı işaretine komut ekleyebiliyor muyuz ? Yani çarpı işaretine tıklandığında hep pencereyi kapatacak hemde yazdığımız komutu yerine getirecek bu mümkün müdür ? Bu konuda da yardımcı olursanız çok sevinirim.

 

[YUSUF44]

Fikrim yok maalesef.

 

[Haluk]

.....Userform penceresindeki çarpı işaretine komut ekleyebiliyor muyuz ? Yani çarpı işaretine tıklandığında hep pencereyi kapatacak hemde yazdığımız komutu yerine getirecek bu mümkün müdür ? Bu konuda da yardımcı olursanız çok sevinirim.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        MsgBox "Çarpı işaretinden kapandı"
'        Diger kodlar.....
'        .....
'        ...
    End If
End Sub

.

 

[recepkull]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        MsgBox "Çarpı işaretinden kapandı"
'        Diger kodlar.....
'        .....
'        ...
    End If
End Sub

.

Teşekkür ederim hocam.