Lấy dữ liệu từ DS chung sang ds riêng. (2 người xem)

[nggiahoang]

Lấy dữ liệu từ DS chung sang ds của sheet 2 .

Trong file e có 3 sheet :

sheet1 ( DS CHUNG ) : gồm ds nhiều lớp và đã có phần lọc ra lớp
sheet2 ( DS ) : ds của 1 lớp , em copy bằng tay từ sheet1 sau khi lọc ra 1 lớp cụ thể .

Anh chị tạo giúp em bằng công thức để lầy dữ liệu qua sheet 2 này với. Cám ơn ACE đã vào đọc và quan tâm !

 

[concogia]

Lấy dữ liệu từ DS chung sang ds của sheet 2 .

Trong file e có 3 sheet :

sheet1 ( DS CHUNG ) : gồm ds nhiều lớp và đã có phần lọc ra lớp
sheet2 ( DS ) : ds của 1 lớp , em copy bằng tay từ sheet1 sau khi lọc ra 1 lớp cụ thể .

Anh chị tạo giúp em bằng công thức để lầy dữ liệu qua sheet 2 này với. Cám ơn ACE đã vào đọc và quan tâm !

Bạn đã viết được code lọc danh sách lớp rồi, sao không viết tiếp đoạn code copy lớp đang lọc ở sheet DS CHUNG đem sang sheet DS cho nó nhẹ nhàng. Dùng công thức cũng được, có nhiều trên diễn đàn rồi mà, bạn thử tìm xem
Nếu mà không tìm được bài tương tự hoặc không viết tiếp đoạn code copy được thì........la lên
Thân

 

[nggiahoang]

Bạn đã viết được code lọc danh sách lớp rồi, sao không viết tiếp đoạn code copy lớp đang lọc ở sheet DS CHUNG đem sang sheet DS cho nó nhẹ nhàng. Dùng công thức cũng được, có nhiều trên diễn đàn rồi mà, bạn thử tìm xem
Nếu mà không tìm được bài tương tự hoặc không viết tiếp đoạn code copy được thì........la lên
Thân

Anh Cò ơi ! em toàn CTRL+C và CTRL+V từ các file gần giống rồi phối hợp lại ấy , chứ có viết được code dâu nà .
ACE xem và giúp được cả 2 thì càng tốt .Cám ơn !!!

 

[ndu96081631]

Lấy dữ liệu từ DS chung sang ds của sheet 2 .

Trong file e có 3 sheet :

sheet1 ( DS CHUNG ) : gồm ds nhiều lớp và đã có phần lọc ra lớp
sheet2 ( DS ) : ds của 1 lớp , em copy bằng tay từ sheet1 sau khi lọc ra 1 lớp cụ thể .

Anh chị tạo giúp em bằng công thức để lầy dữ liệu qua sheet 2 này với. Cám ơn ACE đã vào đọc và quan tâm !

Sửa Sub Macro2 của bạn thành vầy là được:

Sub Macro2()
  Dim cbo As DropDown
  With Sheet1
    Set cbo = .DropDowns("Drop Down 9")
    .Range("IV1").Value = .Range("A4").Value
    .Range("IV2").Value = cbo.List(cbo.Value)
    .Range("A4:H10000").AdvancedFilter 2, .Range("IV1:IV2"), Sheet2.Range("A8:G8")
    .Range("IV1:IV2").Clear
  End With
End Sub

Code dùng Advanced Filter nên đòi hỏi tiêu để ở 2 sheet phải trùng nhau hoàn toàn (tôi đã sửa)

 

[nggiahoang]

Cám ơn thầy NDU đã sửa code giùm em ! và em đã xem file thầy gởi .

Gốc của file ở trên em đính kèm : em đã lọc lớp ngay tại sheet 1 , sheet2 với yêu cầu là sau khi lọc lớp xong thì lấy cả bảng sang sheet 2 để từ đây em sẽ lọc theo từng tên HS bằng nút chọn ở sheet3 đó thầy .Thầy xem lại giùm e .

 

[ndu96081631]

Cám ơn thầy NDU đã sửa code giùm em ! và em đã xem file thầy gởi .

Gốc của file ở trên em đính kèm : em đã lọc lớp ngay tại sheet 1 , sheet2 với yêu cầu là sau khi lọc lớp xong thì lấy cả bảng sang sheet 2 để từ đây em sẽ lọc theo từng tên HS bằng nút chọn ở sheet3 đó thầy .Thầy xem lại giùm e .

Làm hết cho bạn cả rồi... còn sheet loc tên bạn tự mình thêm vào đi
Nêu mục đích cuối cùng của bạn nằm ở sheet "Loc Tên" thì đâu cần phải lọc từng lớp ra riêng làm gì... Từ danh sách chung cũng có thể lọc thằng ra đến sheet "Loc Tên" như thường

 

[nggiahoang]

Một lần nữa cám ơn thầy ! Tối qua về nhà em đã ghép sheet " lọc tên " được rồi.Từ file này em sẽ vận dụng vào nhiều công việc khác nhau cho cả năm chẳng hạn như ds khen thưởng, ds tuyển chọn ,ds hs tham gia vn, .... chỉ thay tiêu đề và nội dung tương ứng ở sh1 mà thôi.

Chúc thầy nhiều sức khoẻ !