Code copy dữ liệu từng cột tương ứng từ sheet này sang sheet khác trong 1 file (1 người xem)

[van80]

Chào các anh chị !
Cho mình hỏi trong Vba mình viết code như thế nào để Copy dữ liệu từng cột tương ứng từ sheet này sang sheet khác trong một file ?
Mình đã viết như thế này mà sao không được nhỉ !

sub ttt()
..........
Sheets("LocDS").Range("A12" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("A5")
Sheets("LocDS").Range("P12" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("B5")
Sheets("LocDS").Range("B12:B" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("C5")
Sheets("LocDS").Range("C12:N" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("D5")
Sheets("LocDS").Range("D12:M" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("E5")
Sheets("LocDS").Range("V12:M" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("F5")
Sheets("LocDS").Range("S12:M" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("G5")
Sheets("LocDS").Range("R12:M" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("H5")
Sheets("LocDS").Range("Q12:M" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("I5")
end sub

Chẳng hiểu vì sao nữa dữ liệu đúng 4 cột đầu còn lại chạy lung tung.
Mong các anh chị giúp dùm, thân ái chào !
File đính kèm View attachment file mau.xls

 

[nghiaphuc]

Chào các anh chị !
Cho mình hỏi trong Vba mình viết code như thế nào để Copy dữ liệu từng cột tương ứng từ sheet này sang sheet khác trong một file ?
Mình đã viết như thế này mà sao không được nhỉ !

sub ttt()
..........
Sheets("LocDS").Range("A12" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("A5")
Sheets("LocDS").Range("P12" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("B5")
Sheets("LocDS").Range("B12:B" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("C5")
Sheets("LocDS").Range("C12:N" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("D5")
Sheets("LocDS").Range("D12:M" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("E5")
Sheets("LocDS").Range("V12:M" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("F5")
Sheets("LocDS").Range("S12:M" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("G5")
Sheets("LocDS").Range("R12:M" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("H5")
Sheets("LocDS").Range("Q12:M" & Sheets("LocDS").Range("A65536").End(xlUp).Row).copy .Range("I5")
end sub

Chẳng hiểu vì sao nữa dữ liệu đúng 4 cột đầu còn lại chạy lung tung.
Mong các anh chị giúp dùm, thân ái chào !
File đính kèm View attachment 109715

Thử hướng khác xem sao:
1. Copy tiêu đề trên dòng 11 của sheet DS dán qua dòng 5 sheet 6A (tương ứng) và ẩn dòng 5 này đi cho đỡ vướng.
2. Sử dụng code sau để lọc dữ liệu qua:
[GPECODE=vb]Private Sub Worksheet_Activate()
[A6:I65000].Clear
Sheets("DS").[A11:X65000].AdvancedFilter 2, , [A5:I5]
Range([A6], [A65000].End(xlUp)).Resize(, 9).Borders.LineStyle = 1
End Sub[/GPECODE]
Với code này, mỗi lần chọn sheet 6A thì dữ liệu được tự động copy qua, sau đó kẻ khung cho vùng có dữ liệu.

 

[van80]

Thử hướng khác xem sao:
1. Copy tiêu đề trên dòng 11 của sheet DS dán qua dòng 5 sheet 6A (tương ứng) và ẩn dòng 5 này đi cho đỡ vướng.
2. Sử dụng code sau để lọc dữ liệu qua:
[GPECODE=vb]Private Sub Worksheet_Activate()
[A6:I65000].Clear
Sheets("DS").[A11:X65000].AdvancedFilter 2, , [A5:I5]
Range([A6], [A65000].End(xlUp)).Resize(, 9).Borders.LineStyle = 1
End Sub[/GPECODE]
Với code này, mỗi lần chọn sheet 6A thì dữ liệu được tự động copy qua, sau đó kẻ khung cho vùng có dữ liệu.

Cám ơn anh nghiaphuc nhưng mình chỉ cần viết dùm code cho nut lệnh bỡi vì trong chương trình của mình mới tương ứng được. Đây chỉ là file mẫu thôi thực tế có 20 sheet mỗi sheet tương ứng 1 lớp (6A, 6B, 6C, 6A, .... ) sheet(DS) chứa số học sinh của toàn trường. Anh giúp dùm nha !

 

[van80]

Cám ơn anh nghiaphuc nhưng mình chỉ cần viết dùm code cho nut lệnh bỡi vì trong chương trình của mình mới tương ứng được. Đây chỉ là file mẫu thôi thực tế có 20 sheet mỗi sheet tương ứng 1 lớp (6A, 6B, 6C, 6A, .... ) sheet(DS) chứa số học sinh của toàn trường. Anh giúp dùm nha !

Anh nghiaphuc ơi ! đoạn code này

Private Sub Worksheet_Activate()
[A6:I65000].Clear
Sheets("DS").[A11:X65000].AdvancedFilter 2, , [A5:I5]
Range([A6], [A65000].End(xlUp)).Resize(, 9).Borders.LineStyle = 1
End Sub

viết cho nút lệnh thì mình viết như thế nào ? mình đã sửa chữa nhiều lần nhưng nó cứ báo lỗi ở dòng Sheets("DS").[A11:X65000].AdvancedFilter 2, , [A5:I5]

Anh giúp dùm mình đi . Cám ơn anh nhiều.