Aktif olan (üzerinde çalışılan) userform'u öğrenme ...

[pNouma]

Kıymetli Hocalarım selamlar, saygılar
Dosyada biribirine benzeyen bir çok Userform var,
Aşağıdaki kodlar modul içerinde yazılı; ve userform üzerinden tetikleniyor.
LstSevis prosedürü çalışmaya başlayınca hangi Userform' un aktif olduğunu nasıl öğrenebiliriz?

Sub LstSevis()
    Dim Form As MSForms.UserForm
    Set Form = .....
   Aksiyon form
End Sub

Sub Aksiyon(form As MSForms.UserForm)
    MsgBox form.Caption
End Sub

yardımlarınız için şimdiden teşekkür ederim,
iyi pazarlar ..

 

[Muzaffer Ali]

Merhaba.
Object değişkene atayın.

Sub Aksiyon(form As object)
    MsgBox form.Caption
End Sub

 

[pNouma]

Merhaba.
Object değişkene atayın.

Sub Aksiyon(form As object)
    MsgBox form.Caption
End Sub

Hocam sorun zaten atamayı yapabilmek, bunu beceremedim

Set Form = .....

"active UserForm" olarak bu atamayı nasıl yapabilir

ilginize teşekkürler,
iyi pazarlar.

 

[Muzaffer Ali]

Dosya ekte.

İndir Test

Dosyayı indir Test

dosya.co

 

[pNouma]

Dosya ekte.

İndir Test

Dosyayı indir Test

dosya.co

Muzaffer hocam çok teşekkür ederim.
Ben de vermiş olduğunuz kodları ekteki gibi düzenledim,
bu şekilde olmasının bir dezavantajı olur mu?

https://dosya.co/ry8x1qcuu69n/Test_(1).xlsm.html

iyi pazarlar dilerim.

 

[Muzaffer Ali]

Tek farkı bir satırda olacak şeyi uzatmış oluyorsunuz.

Sorun olmaz bu şekilde de kullanabilirsiniz. Bu sizin için daha anlaşılır ve kolaysa bunu kullanmanız daha doğru olur.

 

[dEdE]

Soru sormadan önce, Formda arama yapmayı alışkanlık haline getirmek lazım.

Aktif Userform

Merhaba, Bir Userform üzerinden (Userform1) başka bir bir userform (Userform2) , oradan başka bir userform açtığımızda (Userform3); Üst-üste 3 adet userform olabiliyor. Öğrenmek istediğim, en üstte yer alan userform' un adını nasıl öğrenebiliriz? Modül içine yazacağım bir kontrol ile eğer...

www.excel.web.tr