Tıklanan nesnenin adını bulma

[ragnorak]

Public Function GENEL(ByVal argForm As UserForm)

Dim cursorPos As Long
Dim Container As Object

Set Container = argForm
Set Container = Container.ActiveControl

    With Container.Name
    cursorPos = .SelStart
    .Value = UCase(Replace(Replace(.Value, "ı", "I"), "i", "İ"))
    .SelStart = cursorPos
    End With

End Function

Private Sub TextBox1_Change()
Call Module3.GENEL(Me)
End Sub

Buradaki sorunum Textbox ; Frame nesnesi (veya multipage - frame nesnesi içindeyse "Container.Name" Frame veya multipage nesnesinin adını veriyor.
Container.Name'in tıkladığım nesnenin adını vermesini nasıl sağlayabilirim

 

[ragnorak]

ekli dosyada çözümü vardır