Xin code macro tạo new book mới và copy dữ liệu

[cando129]

Dear Anh Chị Các Bác Pro.
giúp e vấn đề sau:

em đang làm việc trên file excel tên là A, và e muốn copy dữ liệu trên sheet hiện hành sang một new book mới để làm tiếp,vì e không muốn chỉnh sửa gì ở file A cả.
ace bác nào biết code nào hay hay giúp e vơi, e thử record macro và nó chỉ tạo new book chứ không copy dữ liệu.mong các ace cao nhân chỉ giúp

đoạn code e ghi bằng macro sau:
'đoạn này là chọn và copy qua book mới
ActiveCell.Cells.Select
Selection.copy
Workbooks.Add
ActiveCell.Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'đoạn này e hiểu là xóa cột dòng
ActiveCell.Rows("1:1").EntireRow.Select
Application.CutCopyMode = False
Selection.delete Shift:=xlUp
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.delete Shift:=xlToLeft
Windows("A.xlsb").Activate

 

[snow25]

Dear Anh Chị Các Bác Pro.
giúp e vấn đề sau:

em đang làm việc trên file excel tên là A, và e muốn copy dữ liệu trên sheet hiện hành sang một new book mới để làm tiếp,vì e không muốn chỉnh sửa gì ở file A cả.
ace bác nào biết code nào hay hay giúp e vơi, e thử record macro và nó chỉ tạo new book chứ không copy dữ liệu.mong các ace cao nhân chỉ giúp

đoạn code e ghi bằng macro sau:
'đoạn này là chọn và copy qua book mới
ActiveCell.Cells.Select
Selection.copy
Workbooks.Add
ActiveCell.Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'đoạn này e hiểu là xóa cột dòng
ActiveCell.Rows("1:1").EntireRow.Select
Application.CutCopyMode = False
Selection.delete Shift:=xlUp
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.delete Shift:=xlToLeft
Windows("A.xlsb").Activate

Bạn thử code này.

Sub taomoi()
Sheets("Sheet1").Copy
end sub

 

[be_09]

Dear Anh Chị Các Bác Pro.
giúp e vấn đề sau:

em đang làm việc trên file excel tên là A, và e muốn copy dữ liệu trên sheet hiện hành sang một new book mới để làm tiếp,vì e không muốn chỉnh sửa gì ở file A cả.
ace bác nào biết code nào hay hay giúp e vơi, e thử record macro và nó chỉ tạo new book chứ không copy dữ liệu.mong các ace cao nhân chỉ giúp

đoạn code e ghi bằng macro sau:
'đoạn này là chọn và copy qua book mới
ActiveCell.Cells.Select
Selection.copy
Workbooks.Add
ActiveCell.Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'đoạn này e hiểu là xóa cột dòng
ActiveCell.Rows("1:1").EntireRow.Select
Application.CutCopyMode = False
Selection.delete Shift:=xlUp
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.delete Shift:=xlToLeft
Windows("A.xlsb").Activate

Thử vầy xem, muốn xuất File từ sheet nào thì chọn sheet đó rồi chạy code.

Sub Xuat_FileMoi()
   ActiveSheet.Copy
   MsgBox "DA XUÁT DU LIEU RA FILE MÓI", vbExclamation, "         THÔNG BÁO"
End Sub

 

[cando129]

2 bác đều code hay cả, nhưng mà cái file của mình nó có mấy button macro(hình ảnh) nữa nên code của 2 bác nó copy luôn cả button luôn, ý mình ở đây là chỉ copy dữ liệu thôi không copy button hình ảnh.

 

[thuyyeu99]

2 bác đều code hay cả, nhưng mà cái file của mình nó có mấy button macro(hình ảnh) nữa nên code của 2 bác nó copy luôn cả button luôn, ý mình ở đây là chỉ copy dữ liệu thôi không copy button hình ảnh.

thử nghiệm nhé

ActiveSheet.UsedRange.Copy
ActiveSheet.FillAcrossSheets Worksheets("Sheet1").Range("A1:D20"), xlFillWithAll 'xlFillWithContents  'xlFillWithFormats

 

[cando129]

thử nghiệm nhé

ActiveSheet.UsedRange.Copy
ActiveSheet.FillAcrossSheets Worksheets("Sheet1").Range("A1:D20"), xlFillWithAll 'xlFillWithContents  'xlFillWithFormats

báo lỗi đoạn này bác ơi ActiveSheet.FillAcrossSheets Worksheets("Sheet1").Range("A120"), xlFillWithAll 'xlFillWithContents 'xlFillWithFormats

 

[be_09]

2 bác đều code hay cả, nhưng mà cái file của mình nó có mấy button macro(hình ảnh) nữa nên code của 2 bác nó copy luôn cả button luôn, ý mình ở đây là chỉ copy dữ liệu thôi không copy button hình ảnh.

Thêm 1 đoạn code xóa Shapes là xong.