tạo list và tham chiếu bằng vba (1 người xem)

[hongdaisu]

Hi mọi người
Mình có 2 sheet
Sheet1 có 3 cột ( Tên- đơn vị - số lượng)
Sheet2 cũng như vậy.Giờ mình muốn ở sheet2 tại cột Tên tạo list để chọn tên bên Sheet1.Và khi chọn tên thì đơn vị sẽ nhảy theo tương ứng.
Mọi người code giúp với.Thank

 

[khuongvietphong]

Cái này đơn giản là bạn cứ dùng Data Validation cho cột danh sách, rồi dùng Vlookup để dò cho cột số lượng thôi.

 

[hongdaisu]

cái đó mình đã làm rồi bạn.nhưng nhiều công thức nó rất chạy chậm

 

[hongdaisu]

Cái này đơn giản là bạn cứ dùng Data Validation cho cột danh sách, rồi dùng Vlookup để dò cho cột số lượng thôi.

Bạn code giúp mình được ko

 

[khuongvietphong]

Bạn thử đưa File của bạn lên xem mình có thể giúp gì được bạn không

 

[hongdaisu]

mình co dinh kem file o tren do ban

 

[hongdaisu]

Tạo list thì bạn dùng data validation mà làm...(tự tìm hiểu đi cho quen)

Còn việc điền đơn vị và số lượng tương ứng thì paste code sau vào sheet2

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim fRng As Range, Clls As Range
If Target.Row > 1 And Target.Column = 1 Then
    For Each Clls In Target
        If Clls.Value = "" Then
            Clls.Offset(, 1).Resize(, 2) = ""
        End If
    Set fRng = Sheet1.Range("A2", Sheet1.[A65000].End(3)).Find(Clls.Value, , xlValues, xlWhole)
        If Not fRng Is Nothing Then
            Clls.Offset(, 1).Resize(, 2) = fRng.Offset(, 1).Resize(, 2).Value
        End If
    Next Clls
End If
End Sub

Validation thì biết- cảm ơn đoạn code nhé