Các Bạn giúp mình lọc dữ liệu từ she et này sang she et khác (1 người xem)

[ndhmoney686]

Các Bạn có thể giúp mình tạo code lọc dữ liệu từ Sheet Dữ liệu gốc -> Sang sheet Dữ liệu lọc.
Mình muốn nó mang toàn bộ dữ liệu giống hết bên sheet dữ liệu gốc sang sheet dữ liệu lọc. Nhưng chỉ bao gồm các Cột Ngày, Mặt hàng, Số lượng, Ghi chú. Ko lọc sang các cột Đơn giá, thành tiền

ở bên sheet Dữ liệu lọc các bạn giúp mình dữ liệu chỉ update khi mình bấm vào comanbuton thì nó mới thực hiện lọc dữ liệu.

Mong các Bạn giúp mình. Cảm ơn các Bạn nhiều!

 

[dhn46]

Nếu đơn thuần là Copy một số cột trong vùng sao bạn không chọn giải pháp Copy cho nhanh?

 

[ndhmoney686]

Bạn ơi. Mình muốn tạo một sheet lọc như vậy. Để một số người khi xem dữ liệu, những cột ko cần thiết sẽ ko lọc sang. chỉ xem đc một số cột dữ liệu. Trong file mình gửi thì mình ko cho hiện cột giá và thành tiền. Mong các Bạn giúp mình.

 

[Ngoai Thanh]

Bạn ơi. Mình muốn tạo một sheet lọc như vậy. Để một số người khi xem dữ liệu, những cột ko cần thiết sẽ ko lọc sang. chỉ xem đc một số cột dữ liệu. Trong file mình gửi thì mình ko cho hiện cột giá và thành tiền. Mong các Bạn giúp mình.

Bạn xem file đính kèm xem được chưa và nhớ hồi âm nhé !

 

[ndhmoney686]

Bạn xem file đính kèm xem được chưa và nhớ hồi âm nhé !

Cảm ơn Bạn Ngoai Thanh rất nhiều! Gần giống ý của mình rồi Bạn ah.
Bạn giúp mình thêm một chút nữa là. cho hiện thêm cột "ghi chú" nữa đc ko bạn?
Và giúp mình khi bấm vào comanbotton thì dữ liệu sẽ đc làm mới (mình chỉ cần nó lọc đầy đủ các dòng dữ liệu sang, ko cần theo mặt hàng). Cảm ơn Bạn rất nhiều!

 

[Quang_Hải]

Cảm ơn Bạn Ngoai Thanh rất nhiều! Gần giống ý của mình rồi Bạn ah.
Bạn giúp mình thêm một chút nữa là. cho hiện thêm cột "ghi chú" nữa đc ko bạn?
Và giúp mình khi bấm vào comanbotton thì dữ liệu sẽ đc làm mới (mình chỉ cần nó lọc đầy đủ các dòng dữ liệu sang, ko cần theo mặt hàng). Cảm ơn Bạn rất nhiều!

Code chỉ có 1 dòng thôi, bạn vẽ cái nút rồi gán code vào là xong

Sub loc()
Sheet1.[A1:F10000].AdvancedFilter 2, Sheet2.[A4:D4], Sheet2.[A4:D4]
End Sub

 

[Ngoai Thanh]

Cảm ơn Bạn Ngoai Thanh rất nhiều! Gần giống ý của mình rồi Bạn ah.
Bạn giúp mình thêm một chút nữa là. cho hiện thêm cột "ghi chú" nữa đc ko bạn?
Và giúp mình khi bấm vào comanbotton thì dữ liệu sẽ đc làm mới (mình chỉ cần nó lọc đầy đủ các dòng dữ liệu sang, ko cần theo mặt hàng). Cảm ơn Bạn rất nhiều!

Bạn copy code của bạn Quang Hai thay code cũ . Thực ra trình độ của bạn Quang Hải là thày mình đó !

 

[ndhmoney686]

Code chỉ có 1 dòng thôi, bạn vẽ cái nút rồi gán code vào là xong

Sub loc()
Sheet1.[A1:F10000].AdvancedFilter 2, Sheet2.[A4:D4], Sheet2.[A4:D4]
End Sub

Đúng rồi Anh Quanghai1969 ạ.
Dữ liệu gốc từ cột A đến F. Anh có thể giúp Em thể hiện trong code (đoạn ẩn cột D và E) đc ko Anh? Để sau này em áp dụng mò vào thực tế, nhằm ẩn một số cột khi cần. Cảm ơn Anh!

 

[Ngoai Thanh]

Đúng rồi Anh Quanghai1969 ạ.
Dữ liệu gốc từ cột A đến F. Anh có thể giúp Em thể hiện trong code (đoạn ẩn cột D và E) đc ko Anh? Để sau này em áp dụng mò vào thực tế, nhằm ẩn một số cột khi cần. Cảm ơn Anh!

thì bạn thay code sau vào code cũ . Bạn cũng thật là ...

Sub loc()
Range("A4:F2000").Clear
Sheet1.[A1:F20000].AdvancedFilter 2, [B1:B2], [A4]
Columns("D:E").EntireColumn.Hidden = True
Range("b3").Select
End Sub

 

[ndhmoney686]

thì bạn thay code sau vào code cũ . Bạn cũng thật là ...

Sub loc()
Range("A4:F2000").Clear
Sheet1.[A1:F20000].AdvancedFilter 2, [B1:B2], [A4]
Columns("D:E").EntireColumn.Hidden = True
Range("b3").Select
End Sub

Sub loc()
Range("A4:F2000").Clear
Sheet1.[A1:F20000].AdvancedFilter 2, [B1:B2], [A4]
Columns("D").EntireColumn.Hidden = True
Columns("E:E").EntireColumn.Hidden = True
Columns("F:F").EntireColumn.Hidden = True
Range("b3").Select
End Sub

Cảm ơn Bạn nhiều! Mình đã áp dụng vào file để ẩn đi một số cột ko cần thiết. Nhưng như vậy thì chọn unhide thì nó lại hiện ra. Liệu có thể ko cho hiện các cột đó đc ko nhỉ? Cảm ơn Bạn rất nhiều!

 

[Ngoai Thanh]

Sub loc()
Range("A4:F2000").Clear
Sheet1.[A1:F20000].AdvancedFilter 2, [B1:B2], [A4]
Columns("D").EntireColumn.Hidden = True
Columns("E:E").EntireColumn.Hidden = True
Columns("F:F").EntireColumn.Hidden = True
Range("b3").Select
End Sub

Cảm ơn Bạn nhiều! Mình đã áp dụng vào file để ẩn đi một số cột ko cần thiết. Nhưng như vậy thì chọn unhide thì nó lại hiện ra. Liệu có thể ko cho hiện các cột đó đc ko nhỉ? Cảm ơn Bạn rất nhiều!

- Một là khóa sheet lại .
- Hai là dùng code của QuangHai
- Ba là nếu người khác trình độ cao hơn bạn thì " Không thể nào ".

 

[Quang_Hải]

Sub loc()
Range("A4:F2000").Clear
Sheet1.[A1:F20000].AdvancedFilter 2, [B1:B2], [A4]
Columns("D").EntireColumn.Hidden = True
Columns("E:E").EntireColumn.Hidden = True
Columns("F:F").EntireColumn.Hidden = True
Range("b3").Select
End Sub

Cảm ơn Bạn nhiều! Mình đã áp dụng vào file để ẩn đi một số cột ko cần thiết. Nhưng như vậy thì chọn unhide thì nó lại hiện ra. Liệu có thể ko cho hiện các cột đó đc ko nhỉ? Cảm ơn Bạn rất nhiều!

Thử tạm cách này xem có unhide được các cột D và E hay không
Copy code cho vào sheet1. Hên xui nha

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([D:E], Selection) Is Nothing Then
    Cancel = True
End If
End Sub

 

[Ngoai Thanh]

Nếu không biết thì code của bạn Quang Hai là được rồi, nhưng nếu biết vào cửa sổ vba sửa "calcel = False" hoặc xóa sạch code thì cũng như không .