[Help] Chỉnh sửa code xuất thông tin từ Excel đến Excel (1 người xem)

[anhtuanwme]

Chào Các Bác,

Hiện tại em đang viết 1 đoạn code để xuất thông tin từ 1 Sheet Excel đến 1 file Excel khác, mà đang bí không biết viết thế nào, nhờ các bác kiểm tra và thêm giúp phần còn thiếu vào đoạn code sau nha.

Private Sub cmd_export_Click()Dim export
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
export = Application.GetSaveAsFilename("Excel Files (*.xls*), *.xls")
With Workbooks.Add()
    '??????????
    .Close False
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic


End Sub

Chú ý: Đoạn code này nằm trên Userform của Sheet 1.

Em muốn khi thi hành thì nó copy thông tin từ Sheet 2. Range ("C4:F100") đến file Excel mới Sheet 1.Range("A4100").

Mong các bác giúp đỡ với nha.

 

[anhtuanwme]

Mong các Bác chỉnh sửa giúp em đoạn code trên ah.

Nếu code sai thì cho em xin đoạn code mới nha.