Coppy vùng chọn sang một file excel mới (1 người xem)

[FPT_online]

Chào mọi người
Em có một file excel muốn tạo một macro để coppy dữ liệu từ vùng chọn sang một file excel mới. VD em bôi đen khoảng A2:E15 sau khi chạy marco thì các định dạng về chiều cao bề rộng và màu vẫn giữ nguyên. Nhưng nó nằm ở một file excel mới có thể lưu riêng biệt
Nhờ mọi người giúp đỡ

 

[Quang_Hải]

Chào mọi người
Em có một file excel muốn tạo một macro để coppy dữ liệu từ vùng chọn sang một file excel mới. VD em bôi đen khoảng A2:E15 sau khi chạy marco thì các định dạng về chiều cao bề rộng và màu vẫn giữ nguyên. Nhưng nó nằm ở một file excel mới có thể lưu riêng biệt
Nhờ mọi người giúp đỡ

Chỉ là thế này thôi

Sub copy_Copy()
Selection.Copy
Workbooks.Add
ActiveSheet.[A1].PasteSpecial 1
End Sub

 

[FPT_online]

Đúng ý rồi anh ơi, nhưng nếu trong cái file excel mới đó anh có thể cho em thêm 1 dòng tiêu đều bất kỳ VD như cột "Ngày", "Họ Tên","Tuổi" thì tốt. Còn không thì để phần này em làm bằng tay. Cám ơn anh nhiều lắm

 

[Quang_Hải]

Đúng ý rồi anh ơi, nhưng nếu trong cái file excel mới đó anh có thể cho em thêm 1 dòng tiêu đều bất kỳ VD như cột "Ngày", "Họ Tên","Tuổi" thì tốt. Còn không thì để phần này em làm bằng tay. Cám ơn anh nhiều lắm

Bạn sửa lại chổ A1:E1 cho đúng chỗ chứa tiêu đề của bạn

Sub copy_Copy()
Dim tieude As Range
Set tieude = [A1:E1]
Selection.Copy
Workbooks.Add
ActiveSheet.[A2].PasteSpecial 1
tieude.Copy ActiveSheet.[A1:E1]
End Sub

 

[FPT_online]

Bạn sửa lại chổ A1:E1 cho đúng chỗ chứa tiêu đề của bạn

Sub copy_Copy()
Dim tieude As Range
Set tieude = [A1:E1]
Selection.Copy
Workbooks.Add
ActiveSheet.[A2].PasteSpecial 1
tieude.Copy ActiveSheet.[A1:E1]
End Sub

Chuẩn rồi anh ơi cám ơn anh Hải nhiều nha