Data Validation rút gọn danh sách theo điều kiện. (1 người xem)

[Sputnhik]

Gửi các bác
Mình muốn chuyển mục Xuất sang sheet khác , ở đây tác giả khi thay đổi cột Code thì cột Mã thì List Validation sẽ rút gọn theo mã Nhập. Mình thử thay đổi code VBA theo sheet nhưng không được nhờ các bác giúp ạ.
Cám ơn.

 

[Lê Hồng Minh83]

Gửi các bác
Mình muốn chuyển mục Xuất sang sheet khác , ở đây tác giả khi thay đổi cột Code thì cột Mã thì List Validation sẽ rút gọn theo mã Nhập. Mình thử thay đổi code VBA theo sheet nhưng không được nhờ các bác giúp ạ.
Cám ơn.

Nó không chạy là vì cái này

If Cells(i, 2) = Target.Offset(, -1) Then
                k = k + 1
                Arr(k, 1) = Cells(i, 3)

bạn phải khai báo thêm sheet chỉ định nếu không nó lấy ở active sheet
thử

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long, Arr(1 To 1000, 1 To 1), k As Long
If Not Intersect(Target, [H5:H1000]) Is Nothing Then
    If Target.Rows.Count = 1 Then
        For i = 1 To Sheet1.[B65000].End(xlUp).Row
            If Sheet1.Cells(i, 2) = Target.Offset(, -1) Then
                k = k + 1
                Arr(k, 1) = Sheet1.Cells(i, 3)
            End If
        Next
            Sheet2.[A2:A1000].ClearContents
            Sheet2.[A2].Resize(k).Value = Arr
    End If
End If
End Sub

Thực ra thì cái này chỉ cần Data validation thôi, không cần phải code két chi cho rắc rối

 

[Sputnhik]

Cảm ơn bác, mình có tham khảo vài cách. Ở đây cột nhập sắp xếp không theo trật tự từng nhóm, còn theo từng nhóm thì mình thấy dùng offset trong validation.