nhờ anh chị sửa code double kick trong listbox (1 người xem)

[ngocvaneahleo]

nội dung như tiêu đề, vấn đề lỗi ở đây là code chỉ chạy được trên sheet1, qua bên sheet2, sheet3..... thì bị lỗi, anh chị sửa giúp em với. cụ thể là nếu đang ở sheet2, sheet3.... mà double kick vào listbox thì kết quả sẽ hiện qua bên sheet1 luôn được không ạ. em cảm ơn anh chị nhiều.

 

[hungpecc1]

nội dung như tiêu đề, vấn đề lỗi ở đây là code chỉ chạy được trên sheet1, qua bên sheet2, sheet3..... thì bị lỗi, anh chị sửa giúp em với. cụ thể là nếu đang ở sheet2, sheet3.... mà double kick vào listbox thì kết quả sẽ hiện qua bên sheet1 luôn được không ạ. em cảm ơn anh chị nhiều.

thử thêm dòng đo đỏ này vào code tại userform xem thế nào :

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim MyID As String
    MyID = ListBox1.List(, 0)
    Unload Me
[COLOR=#ff0000][B]    Sheet1.Activate[/B][/COLOR]
    Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp)) _
    .Find(MyID, LookIn:=xlValues, LookAt:=xlWhole) _
    .Resize(, 10).Select
End Sub

 

[ngocvaneahleo]

thử thêm dòng đo đỏ này vào code tại userform xem thế nào :

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim MyID As String
    MyID = ListBox1.List(, 0)
    Unload Me
[COLOR=#ff0000][B]    Sheet1.Activate[/B][/COLOR]
    Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp)) _
    .Find(MyID, LookIn:=xlValues, LookAt:=xlWhole) _
    .Resize(, 10).Select
End Sub

ok chạy được rồi, em cám ơn anh nhiều nha