Copy theo kiểu autofilter

[TamPhuc]

Chào các bạn,
các bạn cho mình xin đoạn code để copy theo kiểu autofilter.
Khi click vào button1, máy sẽ filter cột a, những giá trị khác 0, sau đó copy qua cột b tương ứng. Cuối cùng máy sẽ tự tắt chức năng autofilter.

Cám ơn nhiều
cuối tuần vui

 

[ndu96081631]

Chào các bạn,
các bạn cho mình xin đoạn code để copy theo kiểu autofilter.
Khi click vào button1, máy sẽ filter cột a, những giá trị khác 0, sau đó copy qua cột b tương ứng. Cuối cùng máy sẽ tự tắt chức năng autofilter.

Cám ơn nhiều
cuối tuần vui

Hướng dẩn bạn cách tự xây dựng code luôn:
- Đầu tiên phải tạo 1 tiêu đề cột cho cột A
- Đặt con trỏ chuột tại 1 cell nào đó khác cột A
- Bật chức năng Record macro lên
- Chọn vào cell A1, bấm Ctrl + Shift + * ---> Nó sẽ chọn tất cả dử liệu tại cột A
- Vào menu Data\Filter\AutoFilter ---> Click vào Drop Down list, chọn Custom\ Is Greating then 0 ---> Nó sẽ fill tất cả các số >0
- Bấm Ctrl + C
- Đặt con trỏ chuột tại B1, bấm Ctrl + V
- Vào menu Data\Filter\AutoFilter lần nữa
- Tắt Record macro
Vậy là xong
Ta có đoạn code thô:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 14/12/2008 by ndu
'

'
    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
    Selection.Copy
    Range("D1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFilter
End Sub

Chỉnh trang lại

Sub Macro1()
    Range([B1], [B1].End(xlDown)).Clear
    With Range("A1").CurrentRegion
      .AutoFilter 1, ">0"
      .Copy
      Range("B1").PasteSpecial
      .AutoFilter
    End With
End Sub