Lại copy dữ liệu sang sheet khac sau khi autofilter (1 người xem)

anhtotbung35 · 9/6/10

Nhờ các bạn giúp mình viết đoạn code tự động copy dữ liệu sang sheet khác hoặc sang file khác. Mình có kèm theo file và mô tả công việc.

ndu96081631 · 9/6/10

anhtotbung35 đã viết:
Nhờ các bạn giúp mình viết đoạn code tự động copy dữ liệu sang sheet khác hoặc sang file khác. Mình có kèm theo file và mô tả công việc.

Hướng dẩn bạn cách dùng Advanced Filter
Tôi chỉ cần 2 sheet, 1 sheet Data là nơi nhập liệu và sheet Detail để bạn trích xuất dữ liệu ---> Cần trích tài khoản nào thì chọn vào Validation tại cell C1... và khi không cần trích thì chọn giá trị None tại cell C2 (lúc này toàn bộ dữ liệu lọc sẽ được xóa hết) ---> Như vậy bạn sẽ không lo việc tốn hao dung lượng (khỏi cần trích sang file khác)
Code chỉ thế này:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim CrRng As Range
  If Not Intersect(Range("C1:C2"), Target) Is Nothing Then
    Range("A4:G1000").Clear
    Set CrRng = Range("C1:C2")
    With Sheets("Data")
      With .Range(.[A1], .[A65536].End(xlUp)).Resize(, 7)
        .AdvancedFilter 2, CrRng, Range("A4")
      End With
    End With
    Range([A4], [A65536].End(xlUp)).Resize(, 2).Offset(, 3).Delete 1
  End If
End Sub

Mời xem file và cho biết ý kiến

anhtotbung35 · 9/6/10

ndu96081631 đã viết:
Hướng dẩn bạn cách dùng Advanced Filter
Tôi chỉ cần 2 sheet, 1 sheet Data là nơi nhập liệu và sheet Detail để bạn trích xuất dữ liệu ---> Cần trích tài khoản nào thì chọn vào Validation tại cell C1... và khi không cần trích thì chọn giá trị None tại cell C2 (lúc này toàn bộ dữ liệu lọc sẽ được xóa hết) ---> Như vậy bạn sẽ không lo việc tốn hao dung lượng (khỏi cần trích sang file khác)
Code chỉ thế này:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range) Dim CrRng As Range If Not Intersect(Range("C1:C2"), Target) Is Nothing Then Range("A4:G1000").Clear Set CrRng = Range("C1:C2") With Sheets("Data") With .Range(.[A1], .[A65536].End(xlUp)).Resize(, 7) .AdvancedFilter 2, CrRng, Range("A4") End With End With Range([A4], [A65536].End(xlUp)).Resize(, 2).Offset(, 3).Delete 1 End If End Sub

Mời xem file và cho biết ý kiến

Cảm ơn Anh Ndu, nhưng mình muốn khi cập nhật vào Sheet Data thì Sheet Detail sẽ tự cập nhật luôn theo điều kiện đã chọn tại cell C1.

ndu96081631 · 9/6/10

anhtotbung35 đã viết:
Cảm ơn Anh Ndu, nhưng mình muốn khi cập nhật vào Sheet Data thì Sheet Detail sẽ tự cập nhật luôn theo điều kiện đã chọn tại cell C1.

Nó có cập nhất đấy!
Đương nhiên nó chỉ cập nhật khi bạn chọn Validation thôi ---> Và tôi nghĩ thế là quá đủ

anhtotbung35 · 9/6/10

ndu96081631 đã viết:
Nó có cập nhất đấy!
Đương nhiên nó chỉ cập nhật khi bạn chọn Validation thôi ---> Và tôi nghĩ thế là quá đủ

Bạn có thể giúp mình luôn được không, vì mình có các sheet khác lấy dữ liệu từ sheet này. Nếu như vậy để các số liệu sheet khác chính xác thì mỗi lần như vậy phải chọn Validation, thấy bất tiện lắm.

ndu96081631 · 9/6/10

anhtotbung35 đã viết:
Bạn có thể giúp mình luôn được không, vì mình có các sheet khác lấy dữ liệu từ sheet này. Nếu như vậy để các số liệu sheet khác chính xác thì mỗi lần như vậy phải chọn Validation, thấy bất tiện lắm.

Bạn có thể dùng sự kiện Worksheet_Activate để mỗi khi chọn vào sheet Detail thì nó sẽ chạy lại code Advanced Filter
Cụ thể là:
1> Cho code này vào Module

PHP:

Sub AdFilter()
  Dim CrRng As Range
  Sheets("Detail").Range("A4:G1000").Clear
  Set CrRng = Sheets("Detail").Range("C1:C2")
  With Sheets("Data")
    With .Range(.[A1], .[A65536].End(xlUp)).Resize(, 7)
      .AdvancedFilter 2, CrRng, Sheets("Detail").Range("A4")
    End With
  End With
  With Sheets("Detail")
    .Range(.[A4], .[A65536].End(xlUp)).Resize(, 2).Offset(, 3).Delete 1
  End With
End Sub

2> Cho code này vào sheet Detail

PHP:

Private Sub Worksheet_Activate()
  AdFilter
End Sub

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("C1:C2"), Target) Is Nothing Then
    AdFilter
  End If
End Sub

anhtotbung35 · 9/6/10

ndu96081631 đã viết:
Bạn có thể dùng sự kiện Worksheet_Activate để mỗi khi chọn vào sheet Detail thì nó sẽ chạy lại code Advanced Filter
End Sub[/PHP]

Cảm ơn anh Ndu, trong bài này thì anh dùng Worksheet_Activate, như từ đầu mình nói sheet này sẽ được ẩn. Như vậy thì dữ liệu này sẽ không được update nếu mình không click vào Sheet Detail. Làm phiền anh một lần nữa nhé. Hỏi càng rõ, càng dễ hiểu. Anh thông cảm nhé.

MinhCong · 9/6/10

anhtotbung35 đã viết:
Cảm ơn anh Ndu, trong bài này thì anh dùng Worksheet_Activate, như từ đầu mình nói sheet này sẽ được ẩn. Như vậy thì dữ liệu này sẽ không được update nếu mình không click vào Sheet Detail. Làm phiền anh một lần nữa nhé. Hỏi càng rõ, càng dễ hiểu. Anh thông cảm nhé.

Theo Tôi nghĩ Bạn nhập dữ liệu bên sheet data, sau đó muốn trích lọc sang những sheet khác với mục đích Báo cáo, in ấn...gì gì đó?
=> Như vậy trước sau gì Bạn cũng phải vào những sheet đó để xem chứ? không ai tạo ra sheet đó để ẩn chơi. Mà khi mở chọn đến sheet đó nó cũng sẽ tự động cập nhật và trích lọc rồi.

sealand · 9/6/10

Thì bạn cho nó vào 1 cái nút gì đó hay phím tắt để gọi cái Code Sub AdFilter()
Ndu viết vậy là "nha nhá" cho bạn hiểu thôi còn dùng thế nào thì phải tuỳ vào yêu cầu của bạn chứ?

anhtotbung35 · 9/6/10

sealand đã viết:
Thì bạn cho nó vào 1 cái nút gì đó hay phím tắt để gọi cái Code Sub AdFilter()
Ndu viết vậy là "nha nhá" cho bạn hiểu thôi còn dùng thế nào thì phải tuỳ vào yêu cầu của bạn chứ?

Cảm ơn bạn đã gợi ý. Hình như cái Sub AdFilter() mình đã đọc ở diễn đàn rồi. Mình sẽ nghiên cứu thêm.

sealand · 9/6/10

anhtotbung35 đã viết:
Cảm ơn bạn đã gợi ý. Hình như cái Sub AdFilter() mình đã đọc ở diễn đàn rồi. Mình sẽ nghiên cứu thêm.

Đây là sub chính trong bài của Ndu, còn Worksheet_Activate() chỉ là Sub gọi mà thôi.

Hai Lúa Miền Tây · 9/6/10

anhtotbung35 đã viết:
Nhờ các bạn giúp mình viết đoạn code tự động copy dữ liệu sang sheet khác hoặc sang file khác. Mình có kèm theo file và mô tả công việc.

Dùng PivotTable nhe bạn.

thuanduc08 · 9/6/10

Cảm ơn anh Ndu rất nhiều về chủ đề này. E đang hoàn thiện chương trình quản lý điểm của tiểu học, phần trích lọc của anh tuyệt quá nhưng e vẫn chưa làm được. Anh cho em hỏi có thể dùng advanced filter để lọc từ file A sang file B được không?
Giúp em nhé
mail: tb3179@gmail.com

ndu96081631 · 10/6/10

thuanduc08 đã viết:
Cảm ơn anh Ndu rất nhiều về chủ đề này. E đang hoàn thiện chương trình quản lý điểm của tiểu học, phần trích lọc của anh tuyệt quá nhưng e vẫn chưa làm được. Anh cho em hỏi có thể dùng advanced filter để lọc từ file A sang file B được không?
Giúp em nhé
mail: tb3179@gmail.com

Hoàn toàn có thể bạn à! Nếu làm bằng tay thì sẽ:
- Mở 2 workbook A và B
- Đứng tại Workbook B, vào menu Data\Filter\Advanced Filter và chọn List Range từ Workbook A
Bạn làm thử xem! Điều ta đặc biệt chú ý là: Dữ liệu sau khi lọc đặt tại đâu thì ta phải "đứng" tại nơi đó để gọi Advanced Filter

Lại copy dữ liệu sang sheet khac sau khi autofilter (1 người xem)

Người dùng đang xem chủ đề này

anhtotbung35

Thành viên hoạt động

File đính kèm

ndu96081631

Huyền thoại GPE

File đính kèm

anhtotbung35

Thành viên hoạt động

ndu96081631

Huyền thoại GPE

anhtotbung35

Thành viên hoạt động

ndu96081631

Huyền thoại GPE

File đính kèm

anhtotbung35

Thành viên hoạt động

MinhCong

Thành viên gắn bó

sealand

Thành viên gạo cội

anhtotbung35

Thành viên hoạt động

sealand

Thành viên gạo cội

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆

File đính kèm

thuanduc08

Thành viên hoạt động

ndu96081631

Huyền thoại GPE

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.