Giúp em rút trích dữ liệu (2 người xem)

[lamdathoa]

Xin chào mọi người,

Giúp em rút trích dữ liệu trong file đính kèm giùm nha. Chi tiết trong file đính kèm lun. E xin cám ơn trước. Và hướng dẫn em cách làm với. Thanks a lot.

 

[hungpecc1]

Xin chào mọi người,

Giúp em rút trích dữ liệu trong file đính kèm giùm nha. Chi tiết trong file đính kèm lun. E xin cám ơn trước. Và hướng dẫn em cách làm với. Thanks a lot.

Cho hỏi MHT WT510BB có tới 41 Mã Nhà Máy thì trích rút theo điều kiện nào

 

[lamdathoa]

Cho hỏi MHT WT510BB có tới 41 Mã Nhà Máy thì trích rút theo điều kiện nào

Hi anh,

Lấy hết tất cả 41 đơn đó luôn.

Thanks a

 

[hungpecc1]

Hi anh,

Lấy hết tất cả 41 đơn đó luôn.

Thanks a

Dùng Advanced Filter thử xem bạn nhé !

DATA --> Advanced điền các thông số sạu
list range = bạn chọn từ Cột A đến cột E
Ceriteria bạn tạo một vùng tiêu chuẩn như ảnh đính kèm --> ok rồi copy sang sheet 3
Còn nếu muốn tự động bạn record Macro --> sẽ có code cho bạn Auotmatic luôn!
View attachment 98850

 

[xuan.nguyen82]

Bạn dùng cách này xem sao:

Public Sub Xuan()
Dim sArr(), dArr(), DK(), I As Long, J As Long, N As Long, K As Long
With Sheet1
    DK = .[G3:G7].Value
    sArr = .Range(.[A2], .[A65000].End(xlUp)).Resize(, 5).Value
    ReDim dArr(1 To UBound(sArr, 1), 1 To 5)
End With
    For I = 1 To UBound(sArr, 1)
        For N = 1 To 5
            If sArr(I, 3) = DK(N, 1) Then
                K = K + 1
                For J = 1 To 5
                    dArr(K, J) = sArr(I, J)
                Next J
            End If
        Next N
    Next I
With Sheet3
    .[A2:E65000].ClearContents
    If K Then .[A2].Resize(K, 5).Value = dArr
End With
End Sub

Bạn mở file, View/ Macro/ View macro/ name Xuan/ Run.

 

[hungpecc1]

Bạn dùng cách này xem sao:

Public Sub Xuan()
Dim sArr(), dArr(), DK(), I As Long, J As Long, N As Long, K As Long
With Sheet1
    DK = .[G3:G7].Value
    sArr = .Range(.[A2], .[A65000].End(xlUp)).Resize(, 5).Value
    ReDim dArr(1 To UBound(sArr, 1), 1 To 5)
End With
    For I = 1 To UBound(sArr, 1)
        For N = 1 To 5
            If sArr(I, 3) = DK(N, 1) Then
                K = K + 1
                For J = 1 To 5
                    dArr(K, J) = sArr(I, J)
                Next J
            End If
        Next N
    Next I
With Sheet3
    .[A2:E65000].ClearContents
    If K Then .[A2].Resize(K, 5).Value = dArr
End With
End Sub

Bạn mở file, View/ Macro/ View macro/ name Xuan/ Run.

Nếu là mình ,mình sẽ viết như vầy :
[GPECODE=vb]
Sub AVE()
On error resume next
Range("A:E").AdvancedFilter 1, [G3:G7], , 0
With Sheet3
.[A1].CurrentRegion.ClearContents
Range("A:E").Copy .[A1]
End With
Sheet1.ShowAllData
End Sub
[/GPECODE]

 

[lamdathoa]

Dùng Advanced Filter thử xem bạn nhé !

DATA --> Advanced điền các thông số sạu
list range = bạn chọn từ Cột A đến cột E
Ceriteria bạn tạo một vùng tiêu chuẩn như ảnh đính kèm --> ok rồi copy sang sheet 3
Còn nếu muốn tự động bạn record Macro --> sẽ có code cho bạn Auotmatic luôn!
View attachment 98850

Hi anh,

Em làm theo hướng dẫn rồi nhưng bị lỗi như thế này. Anh xem file đính kèm nha.

Thánks.

 

[ndu96081631]

Nếu là mình ,mình sẽ viết như vầy :
[GPECODE=vb]
Sub AVE()
On error resume next
Range("A:E").AdvancedFilter 1, [G3:G7], , 0
With Sheet3
.[A1].CurrentRegion.ClearContents
Range("A:E").Copy .[A1]
End With
Sheet1.ShowAllData
End Sub
[/GPECODE]

Dùng Advanced Filter thì cứ việc lọc thằng tới sheet3 luôn, cần gì lọc tại chổ rồi phải mất công copy chứ?

 

[hungpecc1]

Hi anh,

Em làm theo hướng dẫn rồi nhưng bị lỗi như thế này. Anh xem file đính kèm nha.

Thánks.

Bạn xem qua bài này rồi làm lại chắc là ok ?

http://www.giaiphapexcel.com/forum/showthread.php?11552-Hướng-dẫn-tạo-vùng-tiêu-chuẩn-và-lọc-dữ-liệu

 

[hungpecc1]

Dùng Advanced Filter thì cứ việc lọc thằng tới sheet3 luôn, cần gì lọc tại chổ rồi phải mất công copy chứ?

^^ dạ em xin sửa như sau : <---- anh thấy đã ok chưa ?
[GPECODE=vb]
Sub AVE()
On Error Resume Next
With Sheet3
.[A1].CurrentRegion.ClearContents
End With
Range("A:E").AdvancedFilter 2, [G1:G6], Sheet3.[A1], 0
Sheet1.ShowAllData
End Sub
[/GPECODE]

 

[ndu96081631]

Hi anh,

Em làm theo hướng dẫn rồi nhưng bị lỗi như thế này. Anh xem file đính kèm nha.

Thánks.

Bạn hãy làm theo video hướng dẫn dưới đây là được:

[video=youtube;6pH2AbFRIUI]http://www.youtube.com/watch?v=6pH2AbFRIUI&feature=youtu.be[/video]

 

[ndu96081631]

^^ dạ em xin sửa như sau : <---- anh thấy đã ok chưa ?
[GPECODE=vb]
Sub AVE()
On Error Resume Next
With Sheet3
.[A1].CurrentRegion.ClearContents
End With
Range("A:E").AdvancedFilter 2, [G1:G6], Sheet3.[A1], 0
Sheet1.ShowAllData
End Sub
[/GPECODE]

- With chỉ dùng có 1 lần thì With làm quái gì
- Advanced Filter copy sang nơi khác thì không cần phải ShowAllData
- Từng vùng dữ liệu phải ghi rõ tên sheet cho đàng hoàng

Sub AVE()
       Sheet3.UsedRange.Clear
       Sheet1.Range("A:E").AdvancedFilter 2, Sheet1.[G1:G6], Sheet3.[A1]
End Sub

Vầy là đủ
Vùng điều kiện là G1:G6 thì đương nhiên G1 phải là TIÊU ĐỀ

 

[CRAZYMA]

Xin chào mọi người trên diễn đàn !
Xin mọi người giúp cho mình code sau:

Mình có một file excel gồm 4 sheet là: Danh sách, Nhan vien, Quan ly, Khac
Mình muốn thưc hiện các công việc như sau:
1. Rút trích dữ liệu từ sheet Danh sach sang các sheet còn lại theo cột Chức vụ
2. Khi Sheet Danh sach có sự thay đổi (như thêm vào nhân viên mới, thay đổi chức vụ...)
thì sẽ tự động cập nhật lại dữ liệu ở mục 1

Rất mong sự giúp đỡ của mọi người:
Cám ơn mọi người rất nhiều

 

[SA_DQ]

Bạn cần cần thực hiện bước đệm trước khi lọc

Cụ thể nên xem trong file kèm theo

 

[CRAZYMA]

Cụ thể nên xem trong file kèm theo

Cám ơn bạn HYen17 đã hồi âm !
Do nhu cầu công việc (đây là mẫu chung nhiều người dùng) không cho phép mình thay
đổi định dạng của các cell (như trộn ô ở dòng 12 và 13), hay thêm bất cứ một một bảng nào
vào các sheet trong file, nên gặp nhiều khó khăn trong vấn đề lọc dữ liệu
mình thiết nghĩ thay vì sửa lại các bảng trong các sheet (thực tế là không được sửa) ta có thể tạo một sheet
nháp đặt tên là Data chẳng hạn sheet này lấy dữ liệu của sheet Danh sach và thực hiện đưa dữ liệu từ
sheet nháp này (sheet Data) vào các sheet Nhan vien, Quan ly, Khac
Rất mong sự giúp đỡ của các bạn
Một lần nữa cám ơn các bạn trên diễn đàn và bạn HYen17

 

[ChanhTQ@]

Vậy thì bạn làm thế này:

B1 Tạo 1 trang tính có tên 'Tmp' (chẳng hạn)
Copy các cột trước cột 'E' của 'Danh Sach' sang đó;

B2: Bỏ trộn hàng 12 & 13;

B3: Tạo bảng tra như bạn đã thấy, để qui đổi các mã chức vụ theo nhóm;

B4: Trưng thu cột [A] làm 'Ma CV' & tiếp tục như bạn đã biết;

Chuyện này hoàn toàn là của bạn; Không dám xía vô đâu nha & chúc thành công!

 

[Ba Tê]

Cám ơn bạn HYen17 đã hồi âm !
Do nhu cầu công việc (đây là mẫu chung nhiều người dùng) không cho phép mình thay
đổi định dạng của các cell (như trộn ô ở dòng 12 và 13), hay thêm bất cứ một một bảng nào
vào các sheet trong file, nên gặp nhiều khó khăn trong vấn đề lọc dữ liệu
mình thiết nghĩ thay vì sửa lại các bảng trong các sheet (thực tế là không được sửa) ta có thể tạo một sheet
nháp đặt tên là Data chẳng hạn sheet này lấy dữ liệu của sheet Danh sach và thực hiện đưa dữ liệu từ
sheet nháp này (sheet Data) vào các sheet Nhan vien, Quan ly, Khac
Rất mong sự giúp đỡ của các bạn
Một lần nữa cám ơn các bạn trên diễn đàn và bạn HYen17

Xem thử file này, mở sheet nào thì lọc ds cho sheet đó.

 

[ChanhTQ@]

Ê, chàng 3T không được giựt mối à nha!

[Thongbao]Xem thử file này, mở sheet nào thì lọc ds cho sheet đó.[/Thongbao]

Cái này vui hơn nè chủ topic!