Copy dữ liệu sau khi lọc (1 người xem)

[phantrung00]

Hi mọi người,
Cho mình hỏi, mình có 1 file, sau khi mình dùng hàm lọc rồi, giờ mình muốn copy dữ liệu lọc được sang 1 file khác thì mình phải viết code VBA như thế nào?
Mình có thử copy nguyên cột đó luôn sang mà nó báo sai khác nên không copy được? Hiện mình đang bí, mong mọi người giúp.

 

[be_09]

Hi mọi người,
Cho mình hỏi, mình có 1 file, sau khi mình dùng hàm lọc rồi, giờ mình muốn copy dữ liệu lọc được sang 1 file khác thì mình phải viết code VBA như thế nào?
Mình có thử copy nguyên cột đó luôn sang mà nó báo sai khác nên không copy được? Hiện mình đang bí, mong mọi người giúp.

Bạn tham khảo và tải File của bài viết tại Link sau:

http://www.giaiphapexcel.com/forum/...eet-file-excel-này-sang-sheet-file-excel-khác

 

[phantrung00]

mình hiện vẫn chưa làm dc bạn ơi, sao nó vẫn báo lỗi không đúng định dạng, vùng copy và vùng paste ko tương thích. Vậy phải dùng câu lệnh nào mới đúng đây?

 

[be_09]

mình hiện vẫn chưa làm dc bạn ơi, sao nó vẫn báo lỗi không đúng định dạng, vùng copy và vùng paste ko tương thích. Vậy phải dùng câu lệnh nào mới đúng đây?

Vậy bạn đưa File cần làm lên đây (chỉ cần vài chục dòng dữ liệu là đủ) và nêu rỏ kết quả của bạn cần gì thì mới biết được , chứ bài viết trên là nó copy cả 1 sheet thì nó đâu có ảnh hưởng gì đến định dạng và vùng copy.

 

[phantrung00]

Đây bạn, sr bạn nha. Nhờ bạn chỉ giúp, mình chỉ muốn lọc lấy dữ liệu ở file này cop sang file khác thôi. nhưng do có lúc có, có lúc không nên không xác định dc vị trí để viết copy qua.

 

[comet_1701]

Đây bạn, sr bạn nha. Nhờ bạn chỉ giúp, mình chỉ muốn lọc lấy dữ liệu ở file này cop sang file khác thôi. nhưng do có lúc có, có lúc không nên không xác định dc vị trí để viết copy qua.

Sub Copy()
With Sheet1.UsedRange
    .AutoFilter Field:=4, Criteria1:="1"
    .SpecialCells(xlCellTypeVisible).Copy Sheet2.Range("A1")
    .AutoFilter
End With
With Sheet2.UsedRange
    .Columns.AutoFit
End With
End Sub

Bạn thử xem sao

 

[phantrung00]

Mình chỉ muốn copy nội dung thôi,còn thanh tiêu đề thì khỏi thì làm sao bạn?, nói chung copy nội dung dưới dòng chính, chỉ nội dung thôi. thanks bạn

 

[Let'GâuGâu]

Mình chỉ muốn copy nội dung thôi,còn thanh tiêu đề thì khỏi thì làm sao bạn?, nói chung copy nội dung dưới dòng chính, chỉ nội dung thôi. thanks bạn

thử offset xuống một dòng

[COLOR=#000000][COLOR=#007700].offset(1).[/COLOR][COLOR=#0000BB]SpecialCells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlCellTypeVisible[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Copy Sheet2[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A1"[/COLOR][COLOR=#007700])

[/COLOR][/COLOR]

 

[phantrung00]

thành công rồi, thanks 2 bác nhiều nhiều nhé.