hungdiep85
Thành viên thường trực




- Tham gia
- 1/6/09
- Bài viết
- 218
- Được thích
- 23
- Giới tính
- Nam
Em chào các Anh Chị
Nếu B2 của sheet Lọc bằng với C8:C200 của sheet Dữ liệu thì sẽ copy dữ liệu A:N của hàng đó qua sheet Lọc và dán vào B4.
Em cảm ơn các Anh Chị nhiều àh.
Dữ liệu của bạn có 3 cột , sao lọc A:N không biết ? tạm thời lọc 3 cột, còn bạn tùy biến nhé .Em chào các Anh Chị
Nếu B2 của sheet Lọc bằng với C8:C200 của sheet Dữ liệu thì sẽ copy dữ liệu A:N của hàng đó qua sheet Lọc và dán vào B4.
Em cảm ơn các Anh Chị nhiều àh.
Dữ liệu lần trước, lần sau chẳng ăn nhập gì cả ! chán bạn quá . Các thành viên giúp bạn giải quyết công việc chứ có phải rỗi làm chơi đâu . Dữ liệu giả định thì cũng phải giống thực chứ ! bạn xem file.Dạ em xin lổi, em up lại file mới là có tiêu đề àh
Em cảm ơn các anh chị nhiều lám
Dữ liệu lần trước, lần sau chẳng ăn nhập gì cả ! chán bạn quá . Các thành viên giúp bạn giải quyết công việc chứ có phải rỗi làm chơi đâu . Dữ liệu giả định thì cũng phải giống thực chứ ! bạn xem file.
Dữ liệu của bạn hơi bị "quái". Điều kiện lọc ở ô B1 lại là Number, không ăn nhập gì với các tên tiêu đề cột?Anh ơi
Ví dụ em muốn thêm nhiều cột như A:ZZ thì code phải sửa sao vậy anh,
em không biết sửa, sửa xong code bị lổi, hihi
em cảm ơn anh chị nhiều lám
Biết ngay là không phải dữ liệu thực mà . Trời ạ !không biết còn phải sửa nữa không đây .Anh ơi
Ví dụ em muốn thêm nhiều cột như A:ZZ thì code phải sửa sao vậy anh,
em không biết sửa, sửa xong code bị lổi, hihi
em cảm ơn anh chị nhiều lám
Dữ liệu của bạn hơi bị "quái". Điều kiện lọc ở ô B1 lại là Number, không ăn nhập gì với các tên tiêu đề cột?
Tôi làm theo kiểu của bạn, thử xem sao.
Sub Loc()
With Sheets("Loc")
.Range("B6:AAA100").Clear
Sheets("Du Lieu").Range("A8:ZZ100").AdvancedFilter 2, .Range("B1:B2"), .Range("B6")
End With
End Sub
Ở trên có bài dùng Advance Filter rồi mà.Dùng AdvancedFilter cho nó gọn code anh.
Mã:Sub Loc() With Sheets("Loc") .Range("B6:AAA100").Clear Sheets("Du Lieu").Range("A8:ZZ100").AdvancedFilter 2, .Range("B1:B2"), .Range("B6") End With End Sub