Nhờ giúp đỡ tìm kiếm và cập nhật (1 người xem)

[serenadec22]

Hi các bác!

Mình có file bao gồm 7 sheet như file đính kèm, trong đó sheet 1 là THÔNG TIN CHUNG mình nhập hàng ngày. Mình muốn dựa vào cột F (thông tin về location) mà phân loại ra ở các sheet tiếp theo.

Hiện tại mình chỉ nhập tay vào từng sheet, như vậy nếu nhiều quá thì sẽ thiếu sót. Mong các bác giúp mình cài công thức để chỉ cần nhập vào sheet 1 thì tất cả thông tin sẽ TỰ LIINK vào các sheet còn lại, location nào về đúng chỗ location ấy.

Cám ơn tất cả các bác rất nhiều!!!

 

[SA_DQ]

Bạn thử dùng macro này

Option Explicit
Sub CopyToShs()
 Dim Sh As Worksheet, Rng As Range
 
 Set Rng = Cells(Selection.Row, "F")
 For Each Sh In Worksheets
   If Sh.Name = Rng.Value Then
      With Sh.[A65500].End(xlUp).Offset(1)
         .Resize(, 7).Value = Cells(Selection.Row, "A").Resize(, 7).Value
         Exit For
      End With
   End If
 Next Sh
 Rng.Offset(, 2).Interior.ColorIndex = 34 + Rng.Row Mod 6
End Sub

Cách sử dụng:

(*) Gán cho macro 1 tổ hợp fím như {CTRL}+{SHIFT}+C

(*) Sau khi nhập xong dữ liệu của 1 hàng; Vẫn ấn chọn ô nào bất kỳ trên dòng đó & bấm tổ hợp fím của bạn để chạy macro

(*) (Nếu cảm thấy chưa thích hợp, hãy nêu cách khác mà bạn cho là tối ưu!)

 

[ndu96081631]

Option Explicit
Sub CopyToShs()
 Dim Sh As Worksheet, Rng As Range
 
 Set Rng = Cells(Selection.Row, "F")
 For Each Sh In Worksheets
   If Sh.Name = Rng.Value Then
      With Sh.[A65500].End(xlUp).Offset(1)
         .Resize(, 7).Value = Cells(Selection.Row, "A").Resize(, 7).Value
         Exit For
      End With
   End If
 Next Sh
 Rng.Offset(, 2).Interior.ColorIndex = 34 + Rng.Row Mod 6
End Sub

Cách sử dụng:

(*) Gán cho macro 1 tổ hợp fím như {CTRL}+{SHIFT}+C

(*) Sau khi nhập xong dữ liệu của 1 hàng; Vẫn ấn chọn ô nào bất kỳ trên dòng đó & bấm tổ hợp fím của bạn để chạy macro

(*) (Nếu cảm thấy chưa thích hợp, hãy nêu cách khác mà bạn cho là tối ưu!)

Sư phụ nhầm chăng? Code này chỉ trích có 1 record ---> 1 Location có thể có nhiều record mà
Nếu em đoán không lầm thì bài này phải dùng AutoFilter hoặc Advanced Filter mới xong!
-----------------
Mà cần gì nhiều sheet đến thế nhỉ? 1 sheet chung và 1 sheet trích là đủ ---> Cần Location nào, ta chọn Validation list rồi trích là xong! (chỉ 2 sheet)

 

[hoangminhtien]

Bạn xem trong file có được không nhé!

 

[ndu96081631]

Cám ơn các bác nhiều. Có thể hướng dẫn ngay trên file giúp mình được ko ạ?

Tôi gữi bạn file này xem thử nhé
Hướng dẩn:
- Vì file dùng code VBA nên đầu tiên bạn phải:

a) Khởi động Excel
b) Vào menu Tools\Macro\Security và đánh dấu mục "Medium.... "
c) Đóng Excel lại
​

- Mở file đính kèm của tôi, một cảnh báo xuất hiện, bạn bấm nút Enable macros
- Bấm nút "CHẠY CODE" để code làm công việc trích lọc
- Sang các sheet bên để xem kết quả
----------------------
Đúng ra phải nên thiết kế file Excel như bạn Hoangminhtien thì mới hiệu quả (quá nhiều sheet là không cần thiết)
Code của Hoangminhtiennên chỉnh lại chút cho "đẹp trai"

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$E$4" Then
    Range("A7:G10000").Clear
    With Sheets("General info (master)").Range("A7").CurrentRegion
      .AdvancedFilter 2, [E3:E4], [A7]
    End With
  End If
End Sub

Cũng có thể dùng AutoFilter

 

[serenadec22]

Hi các bác,
Em đã thử 2 cách của 2 bác Hoangminhtien & ndu96081631. Cách nào cũng okie hết!

Cho em hỏi thêm chi tiết sau:
- Vì file của em chưa hoàn thiện nên nếu mỗi ngày em đếu nhập thêm dữ liệu vào (cả hàng lẫn cột) thì phải cài hàm lại như thế nào để thông tin trích lọc tự nhảy ra ạ?

 

[ndu96081631]

Hi các bác,
Em đã thử 2 cách của 2 bác Hoangminhtien & ndu96081631. Cách nào cũng okie hết!

Cho em hỏi thêm chi tiết sau:
- Vì file của em chưa hoàn thiện nên nếu mỗi ngày em đếu nhập thêm dữ liệu vào (cả hàng lẫn cột) thì phải cài hàm lại như thế nào để thông tin trích lọc tự nhảy ra ạ?

Bao nhiêu cột cũng được, chỉ cần cấu trúc dữ liệu giống y chang như file bạn đưa lên là OK tuốt!
Còn nếu như code chạy không được ở file mới, bạn vui lòng đưa file lên đây ---> Dữ liệu nhiều có thể xóa bớt 1 số dòng rồi hẳn post file

 

[serenadec22]

hi bác. Em đính kèm file đã sửa lại. Bác giúp em sửa code lại 1 ít để lấy thông tin từ cột D (Demand) qua sheet 2 nhe. Mỗi ngày em sẽ nhập thêm vào danh sách.
cám ơn rất nhiều!!!

 

[hoangminhtien]

Bạn xem trong file có được không nhé!

 

[serenadec22]

thanks iu rất nhìu!!! sẽ "làm phiền" các bác dài dài!!!