Hỏi về lệnh filter trong VBA (1 người xem)

[khongtu19bk]

Mình cần hỏi về lệnh filter trong VBA. làm sao để macro tự chọn ra dữ liệu có thông tin là HANOI và copy data này sang sheet khac.
Cảm ơn.
http://nq8.upanh.com/b6.s30.d2/7083531f6cf4b55a9535778236a56cb8_49382228.1.jpg
http://nq9.upanh.com/b6.s31.d2/76c0fb99d472a76c3b743a9652091159_49382229.2.jpg

File:
http://www.mediafire.com/view/?zdew6bdd06gnm5j

 

[ndu96081631]

Mình cần hỏi về lệnh filter trong VBA. làm sao để macro tự chọn ra dữ liệu có thông tin là HANOI và copy data này sang sheet khac.
Cảm ơn.
http://nq8.upanh.com/b6.s30.d2/7083531f6cf4b55a9535778236a56cb8_49382228.1.jpg
http://nq9.upanh.com/b6.s31.d2/76c0fb99d472a76c3b743a9652091159_49382229.2.jpg

File:
http://www.mediafire.com/view/?zdew6bdd06gnm5j

Record macro sẽ có code bạn cần
Dùng Advanced Filter sẽ hay hơn

 

[khongtu19bk]

Em record roi anh ah, the con đoạn copy thì copy kiểu gì hả anh?
Anh hướng dẫn cụ the hơn được ko ạ?

 

[ndu96081631]

Em record roi anh ah, the con đoạn copy thì copy kiểu gì hả anh?
Anh hướng dẫn cụ the hơn được ko ạ?

Thì record luôn phần copy nữa sẽ có code copy thôi
Bạn record ra code thế nào, post lên xem thử

 

[khongtu19bk]

    Range("A1:B1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="HANOI"
    Range("A2:B17").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste

Cái chỗ select phải sửa thế nào hả anh, chả nhẽ cứ để là A2, B17 mãi ư?

 

[ndu96081631]

    Range("A1:B1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="HANOI"
    Range("A2:B17").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste

Cái chỗ select phải sửa thế nào hả anh, chả nhẽ cứ để là A2, B17 mãi ư?

Sửa thành vầy:

Sub Macro1()
   With Sheet1.Range("A1:B1000")
     .AutoFilter 2, "HANOI"
     .Offset(1).SpecialCells(12).Copy Sheet2.Range("A2")
     .AutoFilter
   End With
End Sub

Thường thì khi record sẽ có mấy vụ Select gì gì đó ---> Bỏ bớt đi là được rồi

 

[khongtu19bk]

code của anh chạy đúng rùi ^^

 .Offset(1).SpecialCells(12).Copy Sheet2.Range("A2")

chỗ này có nghĩa là gì vậy anh?

 

[ndu96081631]

code của anh chạy đúng rùi ^^

 .Offset(1).SpecialCells(12).Copy Sheet2.Range("A2")

chỗ này có nghĩa là gì vậy anh?

SpecialCells(12) có nghĩa là lấy những dòng đang hiện (dòng ẩn bỏ qua)
SpecialCells(12).Copy là copy những dòng đang hiện
Vậy thôi

 

[khongtu19bk]

SpecialCells(12) có nghĩa là lấy những dòng đang hiện (dòng ẩn bỏ qua)
SpecialCells(12).Copy là copy những dòng đang hiện
Vậy thôi

Oh, vậy là có thể sửa code thành xóa những dòngđang hiện :d
thế còn

.Offset(1).

lệnh offset thì em hiểu, nhung trong đoạn code của anh, em khong hieu vai tro cua offset trong doan code ay.

 

[ndu96081631]

Oh, vậy là có thể sửa code thành xóa những dòngđang hiện :d
thế còn

.Offset(1).

lệnh offset thì em hiểu, nhung trong đoạn code của anh, em khong hieu vai tro cua offset trong doan code ay.

AutoFilter thì dữ liệu phải có tiêu đề, đúng không?
Trong khi dữ liệu của bạn không có tiêu đề (bắt đầu từ dòng 2) và bạn lấy tạm cell A1, B1 làm tiêu đề (2 cell này đang rổng) ---> Nếu không Offset(1) xuống 1 dòng chả lẽ bạn muốn copy luôn 2 cell rổng này?
Nói chung mấy cái này cứ thí nghiệm sẽ biết (chẳng hạn bỏ Offset rồi xem kết quả)

 

[TVAG]

Anh ndu9608163 cho em hỏi giả sử như em AutoFilter chon những dòng có dữ liệu ở cột C của sheets2 sau đó copy cột A của sheet1 sang cột B của sheet2 thì sữa đoạn code của anh lại như thế nào. Cảm ơn anh!

 

[TVAG]

Tưởng chưa gửi nen bám nhầm 2 lần