Di chuyển dữ liệu sang Seet khác (1 người xem)

[tuancntt20]

Các bác giúp em vấn đề này với.Mình muốn kết xuất dữ lieu sang sheet có sẵn(di chuyển) để quản lý nhân viên gọi điện thoại tốt hơn. Mong các bác hướng dẫn. Thanks all

 

[ndu96081631]

Các bác giúp em vấn đề này với.Mình muốn kết xuất dữ lieu sang sheet có sẵn(di chuyển) để quản lý nhân viên gọi điện thoại tốt hơn. Mong các bác hướng dẫn. Thanks all

Bài này viết code dựa trên cách vận hành của Advanced Filter là "đep trai" nhất
Ý bạn là muốn dùng công thức chăng?
Tôi thì nghĩ dùng code sẽ ngon ăn hơn!

 

[tuancntt20]

Bài này viết code dựa trên cách vận hành của Advanced Filter là "đep trai" nhất
Ý bạn là muốn dùng công thức chăng?
Tôi thì nghĩ dùng code sẽ ngon ăn hơn!

Dạ cách nào nhanh là dc ah, vì CSDL hơi lớn.Thanks

 

[ndu96081631]

Dạ cách nào nhanh là dc ah, vì CSDL hơi lớn.Thanks

Code ngắn gọn thế này:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If (UCase(Sh.Name) = "YES") Or (UCase(Sh.Name) = "NO") Then
    Sh.Range("IV1").Value = "YES/NO"
    Sh.Range("IV2").Value = Sh.Name
    Sheets("CSDL").Range("A2:M[COLOR=#ff0000]10000[/COLOR]").AdvancedFilter 2, Sh.Range("IV1:IV2"), Sh.Range("A2:J2")
    Sh.Range("IV1:IV2").Clear
  End If
End Sub

Tôi dự trù 10000 dòng dữ liệu (chổ màu đỏ). Nếu dữ liệu lớn hơn, bạn tự sửa nhé

 

[phihndhsp]

Các bác giúp em vấn đề này với.Mình muốn kết xuất dữ lieu sang sheet có sẵn(di chuyển) để quản lý nhân viên gọi điện thoại tốt hơn. Mong các bác hướng dẫn. Thanks all

Thay mặt tiền bối ndu làm cho bạn nè
bạn nhấn nút lấy dữ liệu thì tự đồng nó sẽ điền qua bên sheet yes và no

 

[tuancntt20]

Cảm ơn rất nhiều ah.Một lần nữa Thanks

 

[tuancntt20]

Code ngắn gọn thế này:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If (UCase(Sh.Name) = "YES") Or (UCase(Sh.Name) = "NO") Then
    Sh.Range("IV1").Value = "YES/NO"
    Sh.Range("IV2").Value = Sh.Name
    Sheets("CSDL").Range("A2:M[COLOR=#ff0000]10000[/COLOR]").AdvancedFilter 2, Sh.Range("IV1:IV2"), Sh.Range("A2:J2")
    Sh.Range("IV1:IV2").Clear
  End If
End Sub

Tôi dự trù 10000 dòng dữ liệu (chổ màu đỏ). Nếu dữ liệu lớn hơn, bạn tự sửa nhé

Sh.Range("IV1").Value = "YES/NO"
Sh.Range("IV2").Value = Sh.Name cái này có ý nghĩa như thế nào ah, phiền bác giải thích hộ

 

[ndu96081631]

Sh.Range("IV1").Value = "YES/NO"
Sh.Range("IV2").Value = Sh.Name cái này có ý nghĩa như thế nào ah, phiền bác giải thích hộ

Dùng Advanced Filter đương nhiên phải có vùng điều kiện
Tôi dùng khu vực IV1:IV2 để làm điều kiện lọc... và đoạn code trên dùng để điền điều kiện lọc vào khu vực IV1:IV2 ấy mà. Sau khi lọc xong, ta xóa khu vực này (Sh.Range("IV1:IV2").Clear)

 

[Let'GâuGâu]

Các bác giúp em vấn đề này với.Mình muốn kết xuất dữ lieu sang sheet có sẵn(di chuyển) để quản lý nhân viên gọi điện thoại tốt hơn. Mong các bác hướng dẫn. Thanks all

góp thêm tí gió cho đời thêm vui............................

 

[hngiatuong]

Let'GâuGâu
Khi nhập thêm dữ liễu vào cell thì xuất hiện thêm 1 dấu * dòng cuối. Vậy đặt điều kiện vùng thế nào hay làm cách nào vậy, có thể nói rõ hơn được không. Mình rất muốn được học thêm. Cảm ơn./.

 

[nmhung49]

Bạn quét chọn vùng vào Insert-->Table hoặc Chọn Vùng nhấn Ctrl +T hoặc Ctrl +L cũng được khi đó kéo xuống sẽ thấy dấu * ở cuối.