Trích lọc dữ liệu từ dữ liệu có sẵn (1 người xem)

[quoc_huy1702]

Chào các anh em GPE,

Mình đang gặp chỗ khó này mà chưa biết dùng cách nào giải quyết. Nội dung như sau:

Trích lọc dữ liệu có NHÓM ký tự là "N5B1" bên cột MAKH và số lượng "lớn hơn 10" sang 1 sheet khác với tên gọi sheet mới là DMKH

Nhờ mọi người giúp đỡ.

 

[Luc Van]

Chào các anh em GPE,

Mình đang gặp chỗ khó này mà chưa biết dùng cách nào giải quyết. Nội dung như sau:

Trích lọc dữ liệu có NHÓM ký tự là "N5B1" bên cột MAKH và số lượng "lớn hơn 10" sang 1 sheet khác với tên gọi sheet mới là DMKH

Nhờ mọi người giúp đỡ.

Bạn thử cách này xem đúng không nhé

 

[buithinhvan77]

Chào các anh em GPE,

Mình đang gặp chỗ khó này mà chưa biết dùng cách nào giải quyết. Nội dung như sau:

Trích lọc dữ liệu có NHÓM ký tự là "N5B1" bên cột MAKH và số lượng "lớn hơn 10" sang 1 sheet khác với tên gọi sheet mới là DMKH

Nhờ mọi người giúp đỡ.

Lọc thử bằng cột phụ nhé!

 

[phihndhsp]

cái này phải dùng Advanfillter là tốt nhất và nhanh nhất Luc vân làm luôn cho người ta nha

 

[quoc_huy1702]

Thanks bạn Luc Van nhưng do mình trình bày ý ban đầu chưa rõ nên kết quả bạn đưa ra đáp ứng đúng nhưng chưa phải là kết quả minh mong muốn về mặt hình thức trình bày.

Gửi lại yêu cầu trong file đính kèm

Yêu cầu như sau:
Trích lọc dữ liệu Sang sheet khác với dữ liệu sẵn có như sau:
1. Sử dụng điều kiện từ vùng điều kiện để lấy NHÓM ký tự là "N5B1" bên cột MAKH và số lượng "lớn hơn 10" sang 1 sheet khác với tên gọi sheet mới là DMKH
2. Việc thực hiện dữ liệu bằng thao tác bằng 1 cú click ( macro hay VBA)
3. Dữ liệu mới sau khi lọc ra vẫn giữ cấu trúc sắp xếp như bảng củ

 

[Hai Lúa Miền Tây]

Thanks bạn Luc Van nhưng do mình trình bày ý ban đầu chưa rõ nên kết quả bạn đưa ra đáp ứng đúng nhưng chưa phải là kết quả minh mong muốn về mặt hình thức trình bày.

Gửi lại yêu cầu trong file đính kèm

Yêu cầu như sau:
Trích lọc dữ liệu Sang sheet khác với dữ liệu sẵn có như sau:
1. Sử dụng điều kiện từ vùng điều kiện để lấy NHÓM ký tự là "N5B1" bên cột MAKH và số lượng "lớn hơn 10" sang 1 sheet khác với tên gọi sheet mới là DMKH
2. Việc thực hiện dữ liệu bằng thao tác bằng 1 cú click ( macro hay VBA)
3. Dữ liệu mới sau khi lọc ra vẫn giữ cấu trúc sắp xếp như bảng củ

Bạn sử dụng ADO nhé

1. Mở kết nối:

Public cnn As New ADODB.Connection
Sub Moketnoi()
If cnn.State = 1 Then cnn.Close
  With cnn
    .ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0; data source=" & ThisWorkbook.FullName & _
                         ";Extended Properties=Excel 8.0;"
    .CursorLocation = adUseClient
    .Open
  End With
    
End Sub

2. Trích lọc dữ liệu:

Sub TrichLoc()
Moketnoi
Dim lsSQL As String, lrs As New ADODB.Recordset
    lsSQL = "select makh, [so luong] " & _
            "from [dulieu$] " & _
            "where makh like '" & Sheet1.Range("F2") & "%' and [so luong]>" & Sheet1.Range("F3")
       lrs.Open lsSQL, cnn, 3, 1
       With Sheet2
         .Range("A2:B60000").ClearContents
         .Range("A2").CopyFromRecordset lrs
         .Select
       End With
lrs.Close
Set lrs = Nothing
cnn.Close
Set cnn = Nothing
End Sub

 

[leonguyenz]

Thanks bạn Luc Van nhưng do mình trình bày ý ban đầu chưa rõ nên kết quả bạn đưa ra đáp ứng đúng nhưng chưa phải là kết quả minh mong muốn về mặt hình thức trình bày.

Gửi lại yêu cầu trong file đính kèm

Yêu cầu như sau:
Trích lọc dữ liệu Sang sheet khác với dữ liệu sẵn có như sau:
1. Sử dụng điều kiện từ vùng điều kiện để lấy NHÓM ký tự là "N5B1" bên cột MAKH và số lượng "lớn hơn 10" sang 1 sheet khác với tên gọi sheet mới là DMKH
2. Việc thực hiện dữ liệu bằng thao tác bằng 1 cú click ( macro hay VBA)
3. Dữ liệu mới sau khi lọc ra vẫn giữ cấu trúc sắp xếp như bảng củ

Thử công thức xem, file đính kèm:

 

[hoamattroicoi]

Thanks bạn Luc Van nhưng do mình trình bày ý ban đầu chưa rõ nên kết quả bạn đưa ra đáp ứng đúng nhưng chưa phải là kết quả minh mong muốn về mặt hình thức trình bày.

Gửi lại yêu cầu trong file đính kèm

Yêu cầu như sau:
Trích lọc dữ liệu Sang sheet khác với dữ liệu sẵn có như sau:
1. Sử dụng điều kiện từ vùng điều kiện để lấy NHÓM ký tự là "N5B1" bên cột MAKH và số lượng "lớn hơn 10" sang 1 sheet khác với tên gọi sheet mới là DMKH
2. Việc thực hiện dữ liệu bằng thao tác bằng 1 cú click ( macro hay VBA)
3. Dữ liệu mới sau khi lọc ra vẫn giữ cấu trúc sắp xếp như bảng củ

Bạn chạy đoạn code này :

Sub LocDL()
Dim i As Long, j As Long
Dim sArr(), dArr
Sheets("KQ").[A2:C100].ClearContents
With Sheets("dulieu")
sArr = .Range("A3:B" & [B65536].End(xlUp).Row).Value
ReDim dArr(1 To UBound(sArr), 1 To 3)

For i = 1 To UBound(sArr, 1)
    If InStr(1, sArr(i, 1), .[F2].Value) And sArr(i, 2) > .[F3].Value Then
        j = j + 1
        dArr(j, 1) = j
        dArr(j, 2) = sArr(i, 1)
        dArr(j, 3) = sArr(i, 2)
    End If
Next

End With
Sheets("KQ").[A2].Resize(j, 3).Value = dArr
End Sub