Nhờ giúp Lọc danh sách các nhà cung cấp (1 người xem)

[army88]

Mình có 1 list danh sách rất nhiều nhà cung cấp. Mình muốn nhờ mọi người giúp dùm 1 vấn đề:
- Từ 1 sheet khác mình search các nhà cung cấp dựa trên thông tin sản phẩm dịch vụ của họ để in ra khi cần.
Mong mọi người giúp đỡ dùm mình. Xin chân thành cảm ơn.

 

[ChanhTQ@]

- Từ 1 sheet khác mình search các nhà cung cấp dựa trên thông tin sản phẩm dịch vụ của họ để in ra khi cần.

Để làm được việc đó bạn fải rõ hết sản fảm & dịnh vụ của toàn thể các khách hàng. Hoặc bạn fải lên danh sách các SF hay dịch vụ của họ;
Khi đó bấm chọn 1 dịch vụ hay SF trong danh sách thì macro sẽ tìm & liệt kê hết tất thảy các khách hàng có SF hay dịch vụ đó cho bạn thôi;

Nếu ưng í này, mình hay ai đó sẽ viết cho bạn 1 macro, vô tư đi!

 

[army88]

Để làm được việc đó bạn fải rõ hết sản fảm & dịnh vụ của toàn thể các khách hàng. Hoặc bạn fải lên danh sách các SF hay dịch vụ của họ;
Khi đó bấm chọn 1 dịch vụ hay SF trong danh sách thì macro sẽ tìm & liệt kê hết tất thảy các khách hàng có SF hay dịch vụ đó cho bạn thôi;

Nếu ưng í này, mình hay ai đó sẽ viết cho bạn 1 macro, vô tư đi!

Xin cảm ơn nhiều. Đây cũng là ý của mình muốn. Trong danh sách của mình có nhiều nhà cung cấp có trùng sản phẩm và dịch vụ với nhau nên khi muốn search mình muốn ra hết các nhà cung cấp đó. Mình xin gửi file làm ví dụ. Nếu có thể mong mọi người giúp dùm.

 

[ChanhTQ@]

Bạn xem thêm trong file & tự bổ sung nha

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [h1]) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range, sRng As Range
   Dim MyAdd As String:             Dim MyColor As Byte
   
   Set Sh = Sheets("DSKH"):         MyColor = [A1].Interior.ColorIndex + 1
   [B1].CurrentRegion.Offset(1, 1).ClearContents
   Set Rng = Sh.Range(Sh.[c1], Sh.[c65500].End(xlUp))
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlPart)
   If Not sRng Is Nothing Then
      MyAdd = sRng.Address
      Do
         With [B65500].End(xlUp).Offset(1)
            .Value = sRng.Offset(, -1).Value
            .Offset(, 1).Value = sRng.Value
            .Offset(, 2).Value = sRng.Offset(, 1).Value
            .Offset(, 3).Value = sRng.Offset(, 2).Value
         End With
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
   If MyColor > 41 Then MyColor = 34
   [A1].Interior.ColorIndex = MyColor
   End If
 End If
End Sub

 

[army88]

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [h1]) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range, sRng As Range
   Dim MyAdd As String:             Dim MyColor As Byte
   
   Set Sh = Sheets("DSKH"):         MyColor = [A1].Interior.ColorIndex + 1
   [B1].CurrentRegion.Offset(1, 1).ClearContents
   Set Rng = Sh.Range(Sh.[c1], Sh.[c65500].End(xlUp))
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlPart)
   If Not sRng Is Nothing Then
      MyAdd = sRng.Address
      Do
         With [B65500].End(xlUp).Offset(1)
            .Value = sRng.Offset(, -1).Value
            .Offset(, 1).Value = sRng.Value
            .Offset(, 2).Value = sRng.Offset(, 1).Value
            .Offset(, 3).Value = sRng.Offset(, 2).Value
         End With
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
   If MyColor > 41 Then MyColor = 34
   [A1].Interior.ColorIndex = MyColor
   End If
 End If
End Sub

Cảm ơn bạn. Trong file của bạn mình muốn search theo thong tin sản phẩm nhưng trong list sản phẩm mình chỉ search được sản phẩm đầu tiên, còn sản phẩm thứ 2 trở đi thì nó không hiện ra được. Mình có sửa lại file danh sách nhà cung cấp cho dễ theo dõi. Mình muốn khi search bất kỳ sản phẩm nào thì nó sẽ hiện ra các nhà cung cấp (bao gồm đầy đủ thông tin) có chung sản phẩm đó trong dịch vụ của họ. Mong bạn và mọi người giúp dùm mình.

 

[ChanhTQ@]

(1) Trong file của bạn mình muốn search theo thong tin sản phẩm nhưng trong list sản phẩm mình chỉ search được sản phẩm đầu tiên, còn sản phẩm thứ 2 trở đi thì nó không hiện ra được.
(2) Mình có sửa lại file danh sách nhà cung cấp cho dễ theo dõi. Mình muốn khi search bất kỳ sản phẩm nào thì nó sẽ hiện ra các nhà cung cấp (bao gồm đầy đủ thông tin) có chung sản phẩm đó trong dịch vụ của họ. Mong bạn và mọi người giúp dùm mình.

(1) Bạn chưa xem kỹ mà!; Các dóng 3 & 8 cũng có sản fẩm hay dịch vụ hiện ra

(2) . . . . !

 

[army88]

Cảm ơn nhiều, đây là những gì mình muốn. Cho mình hỏi thêm 1 câu nữa là nếu mình muốn add thêm danh sách các nhà cung cấp và sản phẩm của họ vào phần search nữa thì phải dùng cách nào. Thông cảm mình không biết gì về phần macro này hết. Cảm ơn rất nhiều.

 

[ChanhTQ@]

nếu mình muốn add thêm danh sách các nhà cung cấp và sản phẩm của họ vào phần search nữa thì phải dùng cách nào.

(1) Thêm dữ liệu vô trang DSKH, là điều hiển nhiên;

(2) Thêm sản fẩm hay dịch vụ vô danh sách có name là SF_DV

Lúc đó trong danh sách ở [H1] của trang tính 'GPE' mới có nó để ta tra cứu.

Muốn tìm hiểu thêm danh sách tại [H1] ta cần biết về CF,. . . .

 

[army88]

Cảm ơn rất nhiều, mình đã add thêm được rồi.

 

[zenluro]

(1) Bạn chưa xem kỹ mà!; Các dóng 3 & 8 cũng có sản fẩm hay dịch vụ hiện ra

(2) . . . . !

Bác Chanh cho em hỏi,
em cũng đã làm theo bác Add Tên nhà cung cấp và sản phẩm vào DSKH và SF-DV nhưng khi vào ô "H1" thì vẫn không thấy chạy ra.Bác chỉ em với. em cảm ơn!