Lọc dữ liệu từ 1 file A và điền các cột còn lại cho file B

[concogia]

Hiện tại mình cần đưa ra dữ liệu như sau:
Khi nhập MST vào ô C5 ở file No, sheet 2009
Thì các các ô I2, I3, Ô C4 đưa ra Mã địa bàn quản lý.
Mã số thuế nhập vào ô C5 là MST có trong cột A ở file DTNT.
Giả sử khi mình nhập một Mã số thuế trong cột A file DTNT thì các ô I2, I3, C4 sẽ đưa ra các trường tương ứng với mã số thuế đó.
Hiện tại theo công thức mình làm thì các trường ở ô I2, I3, C4 hoặc là đưa ra giá trị không đúng, hoặc là không đưa ra được giá trị mặc dù Mã số thuế đó vẫn có trong Cột A ở file DTNT.

Bi giờ bạn làm từng bước theo mình nhé
Vào file DTNT sheet DB chọn vùng $A$2:$A$4364 ==> đặt tên là cot, chọn vùng $A$2:$Q$4364 ==> đặt tên là bang ( nếu chưa biết cách đặt tên thì nhập trực tiếp địa chỉ cũng được, nhớ giá trị tuyệt đối nhé)
Ở file No sheet N2O09 cell C2 bạn nhập =(COUNTIF(DTNT.xls!cot,$C$5)=0,"",VLOOKUP($C$5,DTNT.xls!bang,9,0))
Ở cell C4 =IF(COUNTIF(DTNT.xls!cot,$C$5)=0,"",VLOOKUP($C$5,DTNT.xls!bang,12,0))
cell I2 =IF(COUNTIF(DTNT.xls!cot,$C$5)=0,"",VLOOKUP($C$5,DTNT.xls!bang,2,0))
cell I3 =IF(COUNTIF(DTNT.xls!cot,$C$5)=0,"",VLOOKUP($C$5,DTNT.xls!bang,3,0))
cell K4 =IF(COUNTIF(DTNT.xls!cot,$C$5)=0,"",VLOOKUP($C$5,DTNT.xls!bang,14,0))
Hy vọng giúp được bạn, mình thử "zồi"
"xó zì" nó là $Q$4336
Thân
Cách đặt tên: chọn A2:A4364 ==> nhìn lên góc trái màn hình chỗ hiện địa chỉ ô A2 bạn nhập vào đó bang hay tên gì tùy thích ( thí dụ LONG cũng được), tương tự cot cũng làm thế

 

[nvlong82]

Cách đặt tên như bạn nói là sao nhỉ? Mình chưa làm bao giờ.
Tại sao cùng một vùng dữ liệu mà lại đặt 2 tên khách nhau.
Để mình thử hàm của bạn bằng địa chỉ vậy.

 

[nvlong82]

=IF(COUNTIF('D:\QLN\[DTNT.xls]DB'!$A$2:$A$6000,$C$5)=0,"",VLOOKUP($C$5, 'D:\QLN\[DTNT.xls]DB'!$A$2:$A$6000,2,0))
Mình đã thử nhưng sao vẫn báo giá trị Value.

 

[concogia]

=IF(COUNTIF('D:\QLN\[DTNT.xls]DB'!$A$2:$A$6000,$C$5)=0,"",VLOOKUP($C$5, 'D:\QLN\[DTNT.xls]DB'!$A$2:$A$6000,2,0))
Mình đã thử nhưng sao vẫn báo giá trị Value.

Bài của bạn đây
Thân

 

[nvlong82]

Cảm ơn bạn đã giúp đỡ mình nhé. Để mình xem lại xem thế nào.
Đúng là có làm mới biết cần phải học hỏi nhiều.

 

[concogia]

=IF(COUNTIF('D:\QLN\[DTNT.xls]DB'!$A$2:$A$6000,$C$5)=0,"",VLOOKUP($C$5, 'D:\QLN\[DTNT.xls]DB'!$A$2:$A$6000,2,0))
Mình đã thử nhưng sao vẫn báo giá trị Value.

Sửa lại tý nhé ( phần in đậm, chư màu tím)và coi cách đặt tên mình hướng dẫn bạn ở bài trên
=IF(COUNTIF('D:\QLN\[DTNT.xls]DB'!$A$2:$A$6000,$C$5)=0,"",VLOOKUP($C$5, 'D:\QLN\[DTNT.xls]DB'!$A$2:$Q$6000,2,0))
Thân

 

[nvlong82]

Trời, mình làm như bạn mà vẫn sai mơi skhổ chứ.
Lấy file của bạn gửi lại, thay mã số khách thì báo Value hết.

 

[concogia]

Trời, mình làm như bạn mà vẫn sai mơi skhổ chứ.
Lấy file của bạn gửi lại, thay mã số khách thì báo Value hết.

"Zị" mình cũng "tèo" luôn, mình thay gần 20 mã mà vẫn chạy "vèo vèo"
Khó hiểu "wá", bạn xem lại đường dẫn ổ đĩa==> thư mục ==> tập tin sau khi down về máy bạn xem có sai chỗ nào hông?
Bài đơn giản "Zị" mà không giúp được bạn, buồn thật
Thân

 

[nvlong82]

Mình down về, copy vào ổ D, thì đường dẫn không thể nào khác được.
Mình cũng đã kiểm tra.
Không biết hay do máy mình bị làm sao???

 

[SA_DQ]

Loai hoay rồi cũng tìm ra khuyết tậc

Mình cũng đang cố gắng đây, chứ công việc mà quản lý 4000 Người nộp thuế mà cứ làm theo kiểu truyền thống thi mệt lắm.
Mình thì đã có ý tưởng phải làm gì, nhưng cái chính là những bước đầu phải được giải quyết thì mới tiếp làm những bước sau được.
Không biết có cao thủ nào hiểu được lý do tại sao không giúp mình với.
Cảm ơn Concogia đã độngv iên mình nhé, hi vọng tìm tòi học hỏi sẽ có ngày thành công.

Mình có vài góp í với bạn:

Trước tiên chỉ ra những chổ sai & những chổ chưa hợp lý:

(*) Sai: Cột mã số thuế trong trang danh bạ lúc thì chuỗi, lúc thì số có mà tìm đúng hết được; Sẽ bị dị dạng như anh đi cà nhắc thôi!

(*) Trong trường hợp trên 500 records mình khuyên bạn không nên xài VLOOKUP(); Nếu bạn đồng ý ta chuyển sang macro với phương thức tìm kiếm!
(Nói thêm: hiện giờ mà bạn dùng phương thức tìm kiếm có trong menu êxcel cũng sẽ có lúc tìm ra, lúc tìm chẳng ra!)
Việc sửa dữ liệu này mình có thể giúp bạn 1 macro; Nhưng mình sẽ không làm; Bạn sẽ tự làm lấy để tự trừng phạt mình! (Cũng những mong bạn khá hơn sau việc đó!)
Chỉ khi nào bạn xong việc trừng phạt mình & đưa lại dữ liệu lên thì chúng ta tiếp

(*) Chưa hợp lí: Như mình thì file Danh bạ cũng chỉ là 1 trang tính trong file nơ thuế mà thôi;
Nếu sợ mất mác hay hư hỏng thì trước khi mở trang tính nợ thuế, ta có con macro copy file này sang file nơ thuế & cuối buổi làm việc với 'Nợ thuế', chúng ta xoá nó đi thôi! (Việc này có thể thực hiện bằng 1 macro)

Chú í nhỏ: Tên trang tính không nên có khoảng trắng & xài Việt ngữ có dâu, tuy Excel không cấm; Cũng giống như không ai cấm bạn đi bộ 1 chân dưới lòng đường 1 chân trên vĩa hè; Tuy không cơ quan chức năng nào cấm bạn làm việvc đó!
(Đây cũng là góp í muốn nhắc đến bạn)

Chờ tin bạn & chúc vui hết tuần!

 

[SA_DQ]

Bạn xem thêm trong file

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [c5]) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range, sRng As Range
   Dim Rw As Long
      
   Set Sh = Sheets("DB"):           Set Rng = Sh.Range(Sh.[A1], Sh.[A65500].End(xlUp))
   Rng.NumberFormat = "#"
   Set sRng = Rng.Find(Format(Target.Value, "#"), , xlValues, xlWhole)
   If sRng Is Nothing Then
      MsgBox "Chua Co Ma Nay:", , "GPE Xin Luu Y Ban:"
   Else
      Rw = sRng.Row
      [i2].Value = sRng.Offset(, 1).Value
      [i3].Value = sRng.Offset(, 2).Value
      [C2].Value = sRng.Offset(, 9).Value
      
      [c4].Value = Sh.Cells(Rw, "L").Value
      [c3].Value = Sh.Cells(Rw, "I").Value
      [F4].Value = Sh.Cells(Rw, "N").Value
   End If
 End If
End Sub

 

[nvlong82]

Cảm ơn bạn Hyen đã giúp đỡ mình. Nhưng mình chưa thạo về VBE lắm, cũng ko hay sài Macro nên không thạo lắm.
Mình chỉ mới tọc tạch vào để làm thôi.
Bạn có thể hướng dẫn cụ thể giúp mình được không?
Dạo này bận đi tập văn nghệ, cả ngày đi làm, tối về khuya nên làm việc được ít lắm.