Giúp mình VBA Link tới các sheets từ Combobox (1 người xem)

[hoang0569]

Mình gửi kèm File, các bạn xem giúp, xin cảm ơn.

 

[ndu96081631]

Mình gửi kèm File, các bạn xem giúp, xin cảm ơn.

Đại khái code trong UserForm thế này:

Private Sub UserForm_Initialize()
  Dim wks As Worksheet, idx As Long
  ReDim arrWs(1 To Worksheets.Count)
  Me.ComboBox1.RowSource = Empty
  For Each wks In ThisWorkbook.Worksheets
    idx = idx + 1
    arrWs(idx) = wks.Name
  Next
  Me.ComboBox1.List = arrWs
End Sub
Private Sub ComboBox1_Click()
  Dim wks As Worksheet
  On Error Resume Next
  Set wks = Worksheets(Me.ComboBox1.Value)
  On Error GoTo 0
  If Not wks Is Nothing Then
    If wks.Visible = xlSheetVisible Then
      Application.Visible = True
      wks.Select
      Unload Me
    End If
  End If
End Sub

Tự load tên sheet vào ComboBox khi mở form chứ ai lại đặt RowSource "cứng" như vậy chứ? Bạn thêm hoặc xóa sheet thì sao?

 

[hoang0569]

Cảm ơn anh, em muốn khi chọn sheet trong combobox rồi Clik button mới vào sheet và khi thoát sheet sẽ hiện Userform lại, a giúp em với nhé.