Trợ giúp Code VBA xuất ra 1 file Excell khác (1 người xem)

[MANHTS]

Hi ! Các bác
Em có 1 file excell tuy nhiên em muốn xin code để xuất các dữ liệu cần lấy ra 1 file excell khác thì làm như thế nào (Em có đính kèm theo file ở shet PHIEUGUIMAU em muốn xuất dữ liệu từ ô A1-R45 thì code VBA viết ra sao) rất mong nhận được sự trợ giúp từ các bác .
Em xin chân thành cảm ơn!

 

[Cu Tồ]

xuất dữ liệu từ ô A1-R45

Thử .

Sub Copy_DuLieu()
    Range("A1:R45").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
End Sub

 

[MANHTS]

Thử .

Sub Copy_DuLieu()
    Range("A1:R45").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
End Sub

Em cảm ơn bác
Tuy nhiên bác có thể giúp em khi copy sang file khác nó giữ nguyên kích cỡ được k vậy? và cho em thêm phần thư mục để lưu vd D:\.....

 

[Maika8008]

Em cảm ơn bác
Tuy nhiên bác có thể giúp em khi copy sang file khác nó giữ nguyên kích cỡ được k vậy? và cho em thêm phần thư mục để lưu vd D:\.....

Vụ này gọi là lấn lần tới đây

 

[Nhattanktnn]

Vụ này gọi là lấn lần tới đây

Không biết có lấn thêm nữa không đây

Em cảm ơn bác
Tuy nhiên bác có thể giúp em khi copy sang file khác nó giữ nguyên kích cỡ được k vậy? và cho em thêm phần thư mục để lưu vd D:\.....

Giữ kích cỡ cột, còn thích lưu vào đâu đặt tên gì thì cứ ấn lưu nó sẽ hiện folder rồi tự chọn nhé

Sub Copy_DuLieu()
    Sheets("PHIEUGUIMAU").[A1:R45].Copy
    Workbooks.Add
    ActiveSheet.PasteSpecial 8: ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

 

[MANHTS]

Không biết có lấn thêm nữa không đây

Giữ kích cỡ cột, còn thích lưu vào đâu đặt tên gì thì cứ ấn lưu nó sẽ hiện folder rồi tự chọn nhé

Sub Copy_DuLieu()
    Sheets("PHIEUGUIMAU").[A1:R45].Copy
    Workbooks.Add
    ActiveSheet.PasteSpecial 8: ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Em cảm ơn bác thôi em k lấn nữa hihi
Bác cho em số call tiện em liên hệ bác dc k?

 

[Nhattanktnn]

Em cảm ơn bác thôi em k lấn nữa hihi
Bác cho em số call tiện em liên hệ bác dc k?

Cứ đăng bài lên diễn đàn, mọi người rất nhiệt tình. Nhưng nhớ đọc nội quy với lần đăng bài sau

 

[MANHTS]

Cứ đăng bài lên diễn đàn, mọi người rất nhiệt tình. Nhưng nhớ đọc nội quy với lần đăng bài sau

OK bác em cảm ơn các bác