Cần hỗ trợ về việc tìm kiếm và sắp xếp dữ liệu...

[soidaubac]

Mình có up 1 bài sáng nay, với nội dung "Cần sự giúp đỡ của các ACE", đến trưa vào lại thì ko còn bài viết ... ko hiểu có bị sai qui định gì ko nữa. Giờ đành phải ngồi đánh lại để tìm sự giúp đỡ của mọi người.

Mình có file Excel (đính kèm) với 2 Sheet: Tong Hop & Chi Tiet.
Tại Sheet! Chi Tiet mình muốn lấy dữ liệu có tính liên tục như file hình minh hoạ (đính kèm) và dữ liệu vẫn sẽ đồng bộ khi mình thay đổi "Mã Khu Vực" hoặc "Mã Hàng".

Mình rất kém VBA nên mọi người ráng giúp mình giải quyết vấn đề này bằng công thức nha.

Rất cám ơn mọi ng đã quan tâm và giúp đỡ.

 

[dat_butmuc]

Mình có up 1 bài sáng nay, với nội dung "Cần sự giúp đỡ của các ACE", đến trưa vào lại thì ko còn bài viết ... ko hiểu có bị sai qui định gì ko nữa. Giờ đành phải ngồi đánh lại để tìm sự giúp đỡ của mọi người.

Mình có file Excel (đính kèm) với 2 Sheet: Tong Hop & Chi Tiet.
Tại Sheet! Chi Tiet mình muốn lấy dữ liệu có tính liên tục như file hình minh hoạ (đính kèm) và dữ liệu vẫn sẽ đồng bộ khi mình thay đổi "Mã Khu Vực" hoặc "Mã Hàng".

Mình rất kém VBA nên mọi người ráng giúp mình giải quyết vấn đề này bằng công thức nha.

Rất cám ơn mọi ng đã quan tâm và giúp đỡ.

Mần Pivot hỉ
Coi file hir

 

[SA_DQ]

Bạn xài con macro sự kiện này xem sao:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Rng As Range, Sh As Worksheet
  
 Set Sh = Sheets("TONG HOP")
 If Not Intersect(Target, [c4]) Is Nothing Then
   Set Rng = Sh.Range(Sh.[B2], Sh.[B2].End(xlDown))
   [B6].Resize(5, 3).ClearContents
   GPE Rng, Target.Value, 12
 ElseIf Not Intersect(Target, [C13]) Is Nothing Then
   Set Rng = Sh.Range(Sh.[B14], Sh.[B14].End(xlDown))
   [B15].Resize(5, 3).ClearContents
   GPE Rng, Target.Value, 22
 End If
End Sub

Sub GPE(Rng As Range, Targ As String, Rws As Long)
 Dim sRng As Range:        Dim MyAdd As String
 
 Set sRng = Rng.Find(Targ, , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
   MyAdd = sRng.Address
   Do
      With Cells(Rws, "B").End(xlUp).Offset(1)
         .Resize(, 3).Value = sRng.Offset(, 1).Resize(, 3).Value
      End With
      Set sRng = Rng.FindNext(sRng)
   Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
 End If
End Sub

 

[concogia]

Mình có up 1 bài sáng nay, với nội dung "Cần sự giúp đỡ của các ACE", đến trưa vào lại thì ko còn bài viết ... ko hiểu có bị sai qui định gì ko nữa. Giờ đành phải ngồi đánh lại để tìm sự giúp đỡ của mọi người.

Mình có file Excel (đính kèm) với 2 Sheet: Tong Hop & Chi Tiet.
Tại Sheet! Chi Tiet mình muốn lấy dữ liệu có tính liên tục như file hình minh hoạ (đính kèm) và dữ liệu vẫn sẽ đồng bộ khi mình thay đổi "Mã Khu Vực" hoặc "Mã Hàng".

Mình rất kém VBA nên mọi người ráng giúp mình giải quyết vấn đề này bằng công thức nha.

Rất cám ơn mọi ng đã quan tâm và giúp đỡ.

Mình rất kém VBA nên mọi người ráng giúp mình giải quyết vấn đề này bằng công thức nha.
Có ai không học mà giỏi ngay đâu, đừng sợ VBA, cứ lao vào nó là nó sợ ta thôi (nếu nó chưa sợ thì....kệ nó, cũng chẳng hại gì ta)
Bài này theo mình làm như Thầy Sa là "con gà đen" rồi, học thêm cái "thằng" Pivot theo cách của bạn Datbutmuc cũng tốt, còn nếu bạn sợ 2 cái đó mà đòi công thức thì công thức đây, trên tinh thần học hỏi lẫn nhau mình chỉ làm cho bạn một nửa, cái nửa kia "ang chi" cái nửa này, bạn tự tìm hiểu rồi làm lấy nhé

 

[soidaubac]

3 ng 3 cách và cách nào cũng đều hữu dụng và rất tuyệt khi áp dụng.

@dat: Pivot thì tiện lợi và dễ lọc đó nhưng in ra sẽ bị xấu
@SA: Soi rất thik VBA, nhưng chắc ko đc thiên phú về nó nên cứ mỗi lần nhìn nó là thấy nhức đâu
@concogia: đâu cần phải ẩn công thức vào trong Define Name ^_^

Chân thành cảm ơn mọi ng đã nhiệt tình hỗ trợ và giúp đỡ. Thank rất nhiều