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 xlsm

Dosyayı indir Test xlsm

dosya.co

 

[pNouma]

Dosya ekte.

İndir Test xlsm

Dosyayı indir Test xlsm

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