Dò tìm, đối chiếu, trả kết quả khi dò tìm khớp

[kieuhuy_bmt]

Xin Chào mọi người!
Tôi có 2 sheet. hai Sheet có chung cột mã lọc. yêu cầu tại sheet thứ 2 dò tìm nếu cùng mã lọc thì dán kết quả chỉ định từ sheet 1 qua.
Mọi người sử dụng bằng VBA giúp vì Dữ liệu nhiều, tôi dùng bằng hàm nên máy không thực hiện hiệu quả. (có hướng dẫn trong File).

 

[sealand]

Bạn thử dùng code sau

Private Sub CommandButton1_Click()
Dim Tmp, Tmp1, i, j, n
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
Sheet10.Range("ma_do").Offset(, 1).Resize(, 8).ClearContents
Tmp = Sheet17.Range("cap_moi")
Tmp1 = Sheet10.Range("ma_do").Resize(, 9)
For i = 1 To UBound(Tmp, 1)
If Not Dic.Exists(Tmp(i, 1)) Then Dic.Add Tmp(i, 1), i
Next
For i = 1 To UBound(Tmp1, 1)
If Dic.Exists(Tmp1(i, 1)) Then
j = Dic.Item(Tmp1(i, 1))
Tmp1(i, 2) = "So dong" & j
For n = 3 To 9
Tmp1(i, n) = Tmp(j, n + IIf(n < 6, -1, 1))
Next
End If
Next
Sheet10.Range("ma_do").Resize(, 9) = Tmp1
Set Dic = Nothing
End Sub

 

[kieuhuy_bmt]

Bạn thử dùng code sau

Private Sub CommandButton1_Click()
Dim Tmp, Tmp1, i, j, n
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
Sheet10.Range("ma_do").Offset(, 1).Resize(, 8).ClearContents
Tmp = Sheet17.Range("cap_moi")
Tmp1 = Sheet10.Range("ma_do").Resize(, 9)
For i = 1 To UBound(Tmp, 1)
If Not Dic.Exists(Tmp(i, 1)) Then Dic.Add Tmp(i, 1), i
Next
For i = 1 To UBound(Tmp1, 1)
If Dic.Exists(Tmp1(i, 1)) Then
j = Dic.Item(Tmp1(i, 1))
Tmp1(i, 2) = "So dong" & j
For n = 3 To 9
Tmp1(i, n) = Tmp(j, n + IIf(n < 6, -1, 1))
Next
End If
Next
Sheet10.Range("ma_do").Resize(, 9) = Tmp1
Set Dic = Nothing
End Sub

Quả là đúng ý đệ. cảm ơn Huynh nhé,
Hình như các "name" không được xóa!
Từ K3 đến R3 (Sheet đích), ta nhập thay đổi số liệu ở đây. Vấn đề sửa code làm sao để chúng tự động trả về kết quả tương ứng với số liệu bên (sheet nguồn) khi ta thay đổi các con số tại K3 đến R3. Bác chỉ giúp với!

 

[kieuhuy_bmt]

Bác sealand bận rồi! mọi người ai biết, giúp một tay.

 

[sealand]

Tôi hiểu ý bạn, nhưng nếu làm như vậy phải khống chế thật chặt chẽ việc nhập yêu cầu vào vùng K3:R3 của sheet đích vì nếu nhập sai hay ngoài vùng Tmp thì phát sinh lỗi ngay.

 

[kieuhuy_bmt]

Tôi hiểu ý bạn, nhưng nếu làm như vậy phải khống chế thật chặt chẽ việc nhập yêu cầu vào vùng K3:R3 của sheet đích vì nếu nhập sai hay ngoài vùng Tmp thì phát sinh lỗi ngay.

tại sheet nguồn và đích khống chế mã nhập từ 1 đến 15 có được kg. vùng K3: R3 ta tạo thanh xổ xuống theo khống chế đã mặc định có được kg Bác!

 

[sealand]

Có 1 số vấn đề như sau:
-Tại Sh đích Cot J không thay đổi vì nó là mã đối chiếu. Cột K là cột dùng công thức nên không thể tìm trên Sh nguồn được. Như vậy Sh đích còn 7 cột để tìm và chép.

-Vùng nguồn chỉ có 13 cột để tìm chép:F-S.

-Mã cột Không nên dùng toàn số mà kết hợp với kys tự để tránh sai lẹch

 

[kieuhuy_bmt]

Có 1 số vấn đề như sau:
-Tại Sh đích Cot J không thay đổi vì nó là mã đối chiếu. Cột K là cột dùng công thức nên không thể tìm trên Sh nguồn được. Như vậy Sh đích còn 7 cột để tìm và chép.

-Vùng nguồn chỉ có 13 cột để tìm chép:F-S.

-Mã cột Không nên dùng toàn số mà kết hợp với kys tự để tránh sai lẹch

Em kg rành. Bác giúp em đi.

 

[kieuhuy_bmt]

Có 1 số vấn đề như sau:
-.......

-Vùng nguồn chỉ có 13 cột để tìm chép:F-S.

-Mã cột Không nên dùng toàn số mà kết hợp với kys tự để tránh sai lẹch

khi nào rảnh bác sealand giúp em với nhé!