Nhờ anh chị giúp em lọc dữ liệu sang sheet khác theo 2 điều kiện (1 người xem)

[tbdinh]

Em chào tất cả các anh chị trên web giaiphapexcel !

Em làm ở công ty xây dựng, sếp đang yêu cầu em làm bảng chi tiết, mà em mày mò mãi k ra, em nhờ mọi người giải hộ giúp em ạ !

Em có 1 bảng NKC ghi các thông tin liên quan đến các tổ khoán và các đợt khác nhau. Giờ em muốn lọc sang một sheet mới nhưng thông tin liên quan đến 1 mã tổ khoán và 1 mã đợt nào đó.
Em có đính kèm file đề bài bên dưới. Anh chị nào giải hộ em nhé !

à, k dùng chức năng fillter va lọc thủ công ạ. Ai viết công thức hộ e nhé

Em chân thành cám ơn ạ !

 

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

Em chào tất cả các anh chị trên web giaiphapexcel !

Em làm ở công ty xây dựng, sếp đang yêu cầu em làm bảng chi tiết, mà em mày mò mãi k ra, em nhờ mọi người giải hộ giúp em ạ !

Em có 1 bảng NKC ghi các thông tin liên quan đến các tổ khoán và các đợt khác nhau. Giờ em muốn lọc sang một sheet mới nhưng thông tin liên quan đến 1 mã tổ khoán và 1 mã đợt nào đó.
Em có đính kèm file đề bài bên dưới. Anh chị nào giải hộ em nhé !

Em chân thành cám ơn ạ !

Cột Tầng và cột Đã Ứng được lấy dữ liệu từ đâu vậy bạn?

 

[Crystal Rose]

Bạn copy những cột cần thiết ở sheet đầu rồi paste special sang sheet bên chọn paste link, dùng hàm and và dùng filter để lọc giá trị true. Đây chỉ là cách mình thường làm, mình post để bạn tham khảo.

 

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

Bạn copy những cột cần thiết ở sheet đầu rồi paste special sang sheet bên chọn paste link, dùng hàm and và dùng filter để lọc giá trị true. Đây chỉ là cách mình thường làm, mình post để bạn tham khảo.

Vậy đối với những cột trống thì sao bạn, ví dụ:

Cột Tầng và cột Đã Ứng được lấy dữ liệu từ đâu vậy bạn?

 

[hungpecc1]

Em chào tất cả các anh chị trên web giaiphapexcel !

Em làm ở công ty xây dựng, sếp đang yêu cầu em làm bảng chi tiết, mà em mày mò mãi k ra, em nhờ mọi người giải hộ giúp em ạ !

Em có 1 bảng NKC ghi các thông tin liên quan đến các tổ khoán và các đợt khác nhau. Giờ em muốn lọc sang một sheet mới nhưng thông tin liên quan đến 1 mã tổ khoán và 1 mã đợt nào đó.
Em có đính kèm file đề bài bên dưới. Anh chị nào giải hộ em nhé !

Em chân thành cám ơn ạ !

Không hiểu yêu cầu đề bài lắm --> MÌnh cũng đóng góp thêm 1 cách dùng VBA -- Cụ thể là hàm New Auto Filter của Tác giả : Hoàng Trọng Nghĩa
Chi tiết xem tại link http://www.giaiphapexcel.com/forum/...LỌC-2-CỘT-tốc-độ-cao-và-cấu-trúc-hàm-đơn-giản

[GPECODE=vb]Sub GPE()
Dim Arr()
On Error Resume Next
If [E3] <> "" And [E4] <> "" Then
[A7:J1000].Clear
Arr = Module1.NewAutoFilter(Sheets("NKC").[A4:J23], xlNo, 2, [E3], , [E4], 3)
[A7].Resize(UBound(Arr, 1), UBound(Arr, 2)) = Arr
End If
End Sub[/GPECODE]

Xem file đính kèm ( Nhập số liệu vào vùng tô vàng )!

 

[tbdinh]

cột đã ứng thì k cần quân tâm đâu ạ. e muốn lọc ra các cột trong sheet chi tiết đó ạ.

Cột Tầng và cột Đã Ứng được lấy dữ liệu từ đâu vậy bạn?

a oi theo như a giải cho em thì a hiểu đề bài rồi mà

Không hiểu yêu cầu đề bài lắm --> MÌnh cũng đóng góp thêm 1 cách dùng VBA -- Cụ thể là hàm New Auto Filter của Tác giả : Hoàng Trọng Nghĩa
Chi tiết xem tại link http://www.giaiphapexcel.com/forum/...LỌC-2-CỘT-tốc-độ-cao-và-cấu-trúc-hàm-đơn-giản

[GPECODE=vb]Sub GPE()
Dim Arr()
On Error Resume Next
If [E3] <> "" And [E4] <> "" Then
[A7:J1000].Clear
Arr = Module1.NewAutoFilter(Sheets("NKC").[A4:J23], xlNo, 2, [E3], , [E4], 3)
[A7].Resize(UBound(Arr, 1), UBound(Arr, 2)) = Arr
End If
End Sub[/GPECODE]

Xem file đính kèm ( Nhập số liệu vào vùng tô vàng )!

 

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

cột đã ứng thì k cần quân tâm đâu ạ. e muốn lọc ra các cột trong sheet chi tiết đó ạ.

Vậy bạn dùng code bên dưới nhé.

[GPECODE=sql]Sub TongHop()
Set adoConn = CreateObject("ADODB.Connection")
Set adoRS = CreateObject("ADODB.Recordset")
With adoConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"
.Open
End With
With adoRS
.ActiveConnection = adoConn
.Open "select f1,f6,'',f7,f8,f9,f10,'' from [NKC$A5:J1000] " & _
"where f2 like '" & Sheet2.Range("E3").Value & _
"' and f3 like '" & Sheet2.Range("E4").Value & "'"
End With
With Sheet2
.[A7:H65000].ClearContents
.[A7].CopyFromRecordset adoRS
End With
adoRS.Close: Set adoRS = Nothing
adoConn.Close: Set adoConn = Nothing
End Sub

[/GPECODE]

 

[tbdinh]

Anh ơi, code này viết ở đâu trong excel thế anh ? Em tìm mãi k thấy. Hi

Vậy bạn dùng code bên dưới nhé.

[GPECODE=sql]Sub TongHop()
Set adoConn = CreateObject("ADODB.Connection")
Set adoRS = CreateObject("ADODB.Recordset")
With adoConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"
.Open
End With
With adoRS
.ActiveConnection = adoConn
.Open "select f1,f6,'',f7,f8,f9,f10,'' from [NKC$A5:J1000] " & _
"where f2 like '" & Sheet2.Range("E3").Value & _
"' and f3 like '" & Sheet2.Range("E4").Value & "'"
End With
With Sheet2
.[A7:H65000].ClearContents
.[A7].CopyFromRecordset adoRS
End With
adoRS.Close: Set adoRS = Nothing
adoConn.Close: Set adoConn = Nothing
End Sub

[/GPECODE]

 

[hungpecc1]

Anh ơi, code này viết ở đâu trong excel thế anh ? Em tìm mãi k thấy. Hi

Bấm Alt + F11 --> tìm trong module hoặc trong tên sheet chắc chắn sẽ có đoạn code trên,

 

[tbdinh]

Anh ơi, giờ bảng NKC em thêm cột "Tầng" nữa, và cột này cũng dc hiện trong bảng chi tiết, k biết code thay đổi thế nào anh? Anh làm lại giúp em với. Em mò sửa code của anh mà nó báo lỗi. huhu

 

[tbdinh]

Anh ơi, giờ bảng NKC em thêm cột "Tầng" nữa, và cột này cũng dc hiện trong bảng chi tiết, k biết code thay đổi thế nào anh? Anh làm lại giúp em với. Em mò sửa code của anh mà nó báo lỗi. huhu

Em có sửa lại file của em rồi đó ạ. A xem lại và sửa giúp em nhé.
Rất cám ơn anh ạ

 

[Ba Tê]

Em có sửa lại file của em rồi đó ạ. A xem lại và sửa giúp em nhé.
Rất cám ơn anh ạ

Tôi không biết ADO nên làm bằng VBA, thử xem có xài được không?

 

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

Anh ơi, giờ bảng NKC em thêm cột "Tầng" nữa, và cột này cũng dc hiện trong bảng chi tiết, k biết code thay đổi thế nào anh? Anh làm lại giúp em với. Em mò sửa code của anh mà nó báo lỗi. huhu

Em có sửa lại file của em rồi đó ạ. A xem lại và sửa giúp em nhé.
Rất cám ơn anh ạ

Bạn sửa lại như sau nhé:

[GPECODE=sql]Sub Loc()
Set adoConn = CreateObject("ADODB.Connection")
Set adoRS = CreateObject("ADODB.Recordset")
With adoConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"
.Open
End With
With adoRS
.ActiveConnection = adoConn
.Open "select f1,f7,F6,f8,f9,f10,f11,'' from [NKC$A5:K1000] " & _
"where f2 like '" & Sheet2.Range("E3").Value & _
"' and f3 like '" & Sheet2.Range("E4").Value & "'"
End With
With Sheet2
.[A7:H65000].ClearContents
.[A7].CopyFromRecordset adoRS
End With
adoRS.Close: Set adoRS = Nothing
adoConn.Close: Set adoConn = Nothing
End Sub

[/GPECODE]

 

[tbdinh]

anh ơi, cái dấu ' ' trước từ from là nghĩa gì hả anh?

Bạn sửa lại như sau nhé:

[GPECODE=sql]Sub Loc()
Set adoConn = CreateObject("ADODB.Connection")
Set adoRS = CreateObject("ADODB.Recordset")
With adoConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"
.Open
End With
With adoRS
.ActiveConnection = adoConn
.Open "select f1,f7,F6,f8,f9,f10,f11,'' from [NKC$A5:K1000] " & _
"where f2 like '" & Sheet2.Range("E3").Value & _
"' and f3 like '" & Sheet2.Range("E4").Value & "'"
End With
With Sheet2
.[A7:H65000].ClearContents
.[A7].CopyFromRecordset adoRS
End With
adoRS.Close: Set adoRS = Nothing
adoConn.Close: Set adoConn = Nothing
End Sub

[/GPECODE]

 

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

anh ơi, cái dấu ' ' trước từ from là nghĩa gì hả anh?

Là cột đó để trống, bỏ đi cũng được.