Xin giúp cách trích dữ liệu sang Sheet khác (9 người xem)

[dosontung86]

Mình muốn trích dữ liệu từ Sheet Tổng hợp sang sheet DS với các ĐK sau:
- Trích dữ liệu có giá trị là 1 trong cột G lấy các số liệu từ cột A tới F.
Tương tự với các cột còn lại ạ.
Có thể có lệnh trích được toàn bộ các cột từ G đến P đc không ạ?

Em có ví dụ bằng tay trong file đính kèm ạ

 

[dosontung86]

File dưới này mới chuẩn ạ

 

[SA_DQ]

Bài này bạn hoàn toàn có thể dùng fương thức AdvancedFilter

Tất nhiên là fải thiết kế lại CSDL chút đĩnh, như
Số liệu tính tổng ở các ô [G44] cần đem đi chổ khác thích hợp như [G11]
Ta thay vô đó có thể là [G22] hay [G33] cũng được

Bạn tìm hiểu kỹ về vấn đề lọc này đi; Rất có ích cho chúng ta đó bạn!

 

[dosontung86]

Đúng là khi trích cần phải thiết kế lại CSDL, nhưng sau đó thì cách lọc như thế nào ạ?
Bạn chỉ giúp mình với. Mình ko biết cách làm nên phải làm tay.
Mà cái danh mục nội dung kia có lúc lên đến 60 Nội dung.
(((((

 

[dosontung86]

Các bác giúp em với ạ. HIc hic!

 

[Ba Tê]

File dưới này mới chuẩn ạ

THử với file này xem, bấm nút 1 cái là xong.

 

[SA_DQ]

Mình cũng fải chỉnh file & dùng AdvancedFilter

[ThongBao]
File dưới này mới chuẩn ạ

Các bác giúp em với ạ. HIc hic!
[/Thongbao]

Hôm nay GPE.COM có bị làm sao không ta?

 

[Ba Tê]

[ThongBao]
File dưới này mới chuẩn ạ

Các bác giúp em với ạ. HIc hic!
[/ThongBao]

Hôm nay GPE.COM có bị làm sao không ta?

Nó bị ảnh hưởng từ đây nè "Đại Ca".

 

[dosontung86]

2 bác làm đều dã man. Chỉ em các làm được không ạ?

 

[dosontung86]

Hoặc chỉ em cách sửa khi có nhiều ND hơn và nhiều cặp VĐV hơn ạ.
Cảm ơn các bác nhiều ạ

 

[SA_DQ]

(1)
2 bác chỉ em các làm được không ạ?

Hoặc chỉ em cách sửa khi có nhiều ND hơn và nhiều cặp VĐV hơn ạ.
Cảm ơn các bác nhiều ạ

(1) Cách của mình thì bạn có thể tìm hiểu; Chứ cách của thầy 3T thì mình khuyên bạn rằng khoan! & để mình tìm hiểu xong sẽ giới thiệu lại cho bạn sau.

(2) Trong file của mình bạn có thể tăng thử thoải mái xem sao;
Với điều kiện:

Cột tới hạn <130, mà chưa fải đổi thiết kế trang tính cho vùng lọc & vùng Criteria
Vì nghe bạn có khoảng 60 trường nên đã trù liệu chuyện này!

Chúc vui & thành công!

 

[dosontung86]

Vâng. Cảm ơn anh nhưng em chưa thấy file đính kèm ạ

 

[SA_DQ]

File đã có ở bài trên còn gì; Chuyện của bạn là thêm thử nghiệm vô chính nó

[Thongbao]Vâng. Cảm ơn anh nhưng em chưa thấy file đính kèm ạ[/Thongbao]

 

[dosontung86]

Anh có thể hướng dẫn cách để chỉnh sửa các tùy biến được không ạ? Phần VBA này em hiện tại chưa có chút kiến thức gì? Nhưng có hướng dẫn sơ qua em có thể tự tìm tòi đc ạ.

(1) Cách của mình thì bạn có thể tìm hiểu; Chứ cách của thầy 3T thì mình khuyên bạn rằng khoan! & để mình tìm hiểu xong sẽ giới thiệu lại cho bạn sau.

(2) Trong file của mình bạn có thể tăng thử thoải mái xem sao;
Với điều kiện:

Cột tới hạn <130, mà chưa fải đổi thiết kế trang tính cho vùng lọc & vùng Criteria
Vì nghe bạn có khoảng 60 trường nên đã trù liệu chuyện này!

Chúc vui & thành công!

 

[dosontung86]

E tìm mãi mà ko biết cách sửa code ntn để khi chèn thêm 1 số dòng ở trên cùng để viết tiêu đề thì bị lỗi luôn

 

[SA_DQ]

E tìm mãi mà ko biết cách sửa code ntn để khi chèn thêm 1 số dòng ở trên cùng để viết tiêu đề thì bị lỗi luôn

Ở trang 'Tong hop' được coi như CSDL; Mà đã là CSDL thì ít thay đổi thiết kế.
CSDL này thường fải ghi thêm records; Hãn hữu tăng thêm cột/trường
Trang tính này cần tăng dòng thì bạn fải chú í các dòng lệnh đã đánh số trong macro

Option Explicit
Sub gpeLoc()
 Dim Cls As Range, Rng As Range, Sh As Worksheet, Rg0 As Range
 Dim Rw As Long, Col As Byte
 
1 Set Rng = Range([g4], [g4].End(xlToRight))    
 Rw = Rng.CurrentRegion.Rows.Count
 Set Sh = ThisWorkbook.Worksheets("DS")
 Col = Rng.Cells.Count
 Sh.[a3].Resize(Rw * Col, 7).Clear   '<=|'
 
 For Each Cls In Rng
2    [EA1].Value = Cls.Value
3    Range("A4").Resize(Rw, 6 + Col).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "EA1:EA2"), CopyToRange:=Range("EA4:EF4"), Unique:=False
4        Set Rg0 = [EB5].CurrentRegion
        If Rg0.Rows.Count > 2 Then
            With Sh.[A65500].End(xlUp).Offset(2)
                .Value = Cls.Value
                Rg0.Offset(1).Copy Destination:=.Offset(1)
            End With
        Else
        End If
 Next Cls
 Sh.Select
End Sub

Còn tăng dòng ở trang còn lại, bạn fải lưu í đến câu lệnh có ghi chú: '<=|'

 

[dosontung86]

Em đã mày mò vào thêm đc các dòng theo ý. Nhưng đột xuất dữ liệu cần thêm cột nữa thì phải làm sao ạ? (Ở vị trí EA bị thiếu. Em đưa sang FA mà chưa đc ạ

 

[SA_DQ]

Em đã mày mò vào thêm đc các dòng theo ý.
Nhưng đột xuất dữ liệu cần thêm cột nữa thì phải làm sao ạ? (Ở vị trí EA bị thiếu. Em đưa sang FA mà chưa đc ạ

Bạn thực hiện các bước theo trình tự sau:

B1: Lấy chuột, tô chọn các cột từ 'EA' cho đến trước cột 'GA'

B2: Vô menu thích hợp & chèn thêm cột;
Lúc đó vùng mà mình gọi là nợi thể hiện kết quả lọc, cũng như vùng Criteria sẽ tịnh tiến về fía fải 26*2 cột nữa.

B3 Vô macro, ta làm việc với các đíạ chỉ liên quan trong các câulệnh có đánh số 2, 3 & 4;

(Mình ví dụ:

2    [EA1].Value = Cls.Value

Sẽ fải sửa lại tương ứng là

2    [GA1].Value = Cls.Value

Mong bạn sẽ thực hiện với thành công mĩ mãn!

 

[dosontung86]

Cảm ơn bạn nhìu. Mình làm được rùi. Mấy ngày tìm tòi Exel học hỏi đc nhiều điều quá. Yêu công nghệ quá!

 

[dosontung86]

Với file tương tự như trên nhưng đầy đủ hơn.
Ở dòng ND, mình muốn có luôn cả tiêu đề nội dung được ghép từ các ô trong cột: E7 + E6 + E4 + E5 + + E8 + E9.
Ví du: "Hạng E2 Cao niên Latin - Đối tượng Nam nữ - Điệu R - Số đôi: 5"