Tìm kiếm dữ liệu giữa các sheet (1 người xem)

[ngochien101985]

ai giúp mình vấn đề này với

mình có 2 sheet 1 shet tra còn shet kia la du lieu, minh muon la khi nhập 1 mã vào shet tra thi tên công việc tự động lấy từ shet dữ liệu
mọi người giúp mình với nha
cảm ơn mọi người

 

[thanh_tks]

ai giúp mình vấn đề này với

mình có 2 sheet 1 shet tra còn shet kia la du lieu, minh muon la khi nhập 1 mã vào shet tra thi tên công việc tự động lấy từ shet dữ liệu
mọi người giúp mình với nha
cảm ơn mọi người

Bạn xem bài của huuthang_bd ở đây http://www.giaiphapexcel.com/forum/showthread.php?t=25881
bài này cũng tương tự như của bạn, bạn chỉ cần thay đổi một chút là được.

 

[ngochien101985]

bên bài đó đâu có gì đâu các huynh, mọi người xem lại giúp mình với chứ tìm kiếm của mình không phải tìm 1 dòng mà là tìm nhiều dòng mà, mình muốn là khi nhập một mã nào đó thì sẽ tự động tìm bên bảng tính kia có bao nhieu thì lấy qua hết mọi người à, giúp mình với

 

[thanh_tks]

bạn vào đây nhe! http://www.giaiphapexcel.com/forum/showpost.php?p=176742&postcount=8

 

[ngochien101985]

trời a, mình không muốn viết bằng công thức, vì dữ liệu nhiều nên sẽ khó lắm, với lại khi đã lọc tìm được các công việc theo mã rồi thì mình vẫn tiếp tục nhập mã tiếp theo ở cuối dòng của mã trên và quan trọng ở chỏ nầynnuucc7 là tên công việc mình có thẽ thay dođựơcc tùy vào công việc, vì mã và công việc ben dữ liệu là cố định nhưng vẫn có công việc tương tự vậy, mà nội dung trình bày sẽ khác bạn àh,

ví dụ khi mình gỏ la AA.11212 THÌ CÔNG VIỆC LÀ BÊ TÔNG DẦM NGANG THÌ MÌNH VẪN SỮA LÀ BÊ TÔNG LIÊN KẾT DỌC MÀ VẪN KHÔNG ẢNH HƯỞNG JÌ BẠN GIÚP LẠI MÌNH ĐI,

CẢM ƠN TRƯỚC,

 

[SA_DQ]

Bạn xem trong file kèm theo & cho ý kiến.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [A2]) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range, sRng As Range
   Dim MyAdd As String
 
   Set Sh = Sheets("DuLieu")
   With [B1].Interior
      If .ColorIndex > 41 Then .ColorIndex = 34
      .ColorIndex = .ColorIndex + 1
   End With
   Set Rng = Sh.Range(Sh.[A1], Sh.[a65500].End(xlUp))
 
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      MyAdd = sRng.Address:               [b2].Resize(99, 3).ClearContents
      Do
         [b65500].End(xlUp).Offset(1).Resize(, 3).Value = sRng.Offset(, 1).Resize(, 3).Value
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
   End If
 End If
End Sub

 

[Ba Tê]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [A2]) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range, sRng As Range
   Dim MyAdd As String
 
   Set Sh = Sheets("DuLieu")
   With [B1].Interior
      If .ColorIndex > 41 Then .ColorIndex = 34
      .ColorIndex = .ColorIndex + 1
   End With
   Set Rng = Sh.Range(Sh.[A1], Sh.[a65500].End(xlUp))
 
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      MyAdd = sRng.Address:               [b2].Resize(99, 3).ClearContents
      Do
         [b65500].End(xlUp).Offset(1).Resize(, 3).Value = sRng.Offset(, 1).Resize(, 3).Value
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
   End If
 End If
End Sub

----
Bạn HYen17 gởi kèm tập tin hơi bị nhiễu đó. Có cả các tập tin TKB_GPE ...?

 

[ngochien101985]

vẫn chưa được, cái này chỉ có thể lọc và đưa ra có 1 giá trị thoi ah, mình muon là khi nhập vào cột A chứ không phải click chọn từ danh sách, nhập cột a tra ben dữ liệu hiện lại bên cột B, rồi tiếp tục nhập tiếp nữa. ai có code khác không vậy. chứ code này là lọc mà,

 

[SA_DQ]

!?!

Vẫn chưa được, cái này chỉ có thể lọc và đưa ra có 1 giá trị thoi ah, mình muon là khi nhập vào cột A chứ không phải click chọn từ danh sách, nhập cột a tra ben dữ liệu hiện lại bên cột B, rồi tiếp tục nhập tiếp nữa. ai có code khác không vậy. chứ code này là lọc mà,

Bạn đối chiếu với iêu cầu ở bài 1 của bạn:

mình có 2 sheet 1 shet tra còn shet kia la du lieu, minh muon la khi nhập 1 mã vào shet tra thi tên công việc tự động lấy từ shet dữ liệu

Và nên biết tiết kiệm thời gian của mình cũng như của người khác.

 

[ngochien101985]

xin lổi mọi người vì mình đã không nói rõ vấn đề, mình nghĩ mình gủi file kem theo vì trong file đó mình có nói rõ hơn vấn đề của mình, thành thật xin lỗi cả nhà,

mình xin lỗi nhưng giờ mình lại có thêm một vấn đề nữa mong mọi người giúp đỏ7

mình có 1 file excel khi khởi động lên thì sẽ mỡ 1file excel .xla khác có chứa các sub nhưng sẽ được ản đi, giờ mình tạo 1 form trên file chính xls làm sao khi nhấn 1 button thì button này sẽ gọi 1 sub trong file xla được vậy mọi người mình đã thử dùng Call nhưng chỉ áp dụng khi sub đó nằm cùng file với file chứ form thôi,

mong các bạn hồi âm sớm, thành thật xin lỗi và cảm ơn