Hỏi vấn đề Userform Modeless

[sxuan244]

Em chào các bác, em là newbie, tập tành code để phục vụ công việc, các bác giúp em với ạ

Em design 1 userform chạy modeless, tuy nhiên có vấn đề như sau:

Private Sub TWS_U1_C1_B_Click()
    Dim u1 As TWS_U1_1
    Set u1 = New TWS_U1_1
    TWS_U1.Hide
    u1.Show 0
    If u1.TWS_U1_1_T.Value <> "" Then
        TWS_U1_C1_T.Value = TWS_U1_C1_T.Value & "+" & Selection.Address
    End If
End Sub

Userform1 là TWS_U1, Userform2 là TWS_U1_1. Khi Userform2 show modeless thì code hiểu là Userform2 đã Unload và tiếp tục chạy.

Nhờ các bác tư vấn giúp em ạ. Em cảm ơn các bác

 

[HeSanbi]

Đặt Dim u1 ra ngoài, lên trên đầu code thôi.