xin code copy paste value của sheet file excel này sang sheet file excel khác (1 người xem)

quoc nhat · 28/1/15

Chào buổi sáng GPE!
Chúc cả nhà một ngày mới tốt lành!
Xin lỗi đã làm phiền cả nhà sớm thế này!
Chả là em muốn tìm code Copy paste value dữ liệu của sheet hiện hành của file excel này sang sheet 1 của một workbook mới dữ nguyên định dạng( tự động mở workbook mới và paste value vào sheet 1) nhưng tìm kiếm trên dỉển đàn mải không thấy. Nên xin làm phiền mọi người viết giúp em đoạn code với nội dung như em trình bày ở trên .
Em cảm ơn nhiều!

be_09 · 28/1/15

quoc nhat đã viết:
Chào buổi sáng GPE!
Chúc cả nhà một ngày mới tốt lành!
Xin lỗi đã làm phiền cả nhà sớm thế này!
Chả là em muốn tìm code Copy paste value dữ liệu của sheet hiện hành của file excel này sang sheet 1 của một workbook mới dữ nguyên định dạng( tự động mở workbook mới và paste value vào sheet 1) nhưng tìm kiếm trên dỉển đàn mải không thấy. Nên xin làm phiền mọi người viết giúp em đoạn code với nội dung như em trình bày ở trên .
Em cảm ơn nhiều!

Thử cách này xem.

Giả sử Sheet hiện hành có tên là Sheet "CHI_TIET", nó sẽ Copy sheet này và gán cho 1 Sheet của File mới với tên Sheet CHI_TIET.

PHP:

Sub XuatFileMoi()
   Sheets("CHI_TIET").Copy   
MsgBox "DA XUÁT DU LIEU RA FILE MÓI", vbExclamation, "  "  
End Sub

quoc nhat · 28/1/15

be09 đã viết:
Thử cách này xem.

Giả sử Sheet hiện hành có tên là Sheet "CHI_TIET", nó sẽ Copy sheet này và gán cho 1 Sheet của File mới với tên Sheet CHI_TIET.

PHP:

Sub XuatFileMoi() Sheets("CHI_TIET").Copy MsgBox "DA XUÁT DU LIEU RA FILE MÓI", vbExclamation, " " End Sub

cảm ơn anh!
code ngắn gọn nhỉ thế mà em không nghỉ ra?
làm phiền anh thêm tý nữa
em chỉ muốn copy dữ liệu thôi chứ không muốn copy các coltrol như: command button, button.... mà em vẻ trên sheet ấy và Anh có thể thêm đoạn hiện mục Save As lên được không
sau khi save as rồi workbook mới đó sau tự động thoát.
Làm phiền anh quá!
Cảm ơn anh!

be_09 · 28/1/15

Anh có thể thêm đoạn hiện mục Save As lên được không

Trong code không sử dụng đường dẫn, nên bạn muốn lưu ở đâu và lưu tên File là gì thì tuỳ ý, lưu ý sử dụng tên sheet hiện hành là Theo_Doi.

PHP:

Sub LuuSheet_ThanhFile()
Dim Theo_Doi

Theo_Doi = ActiveWorkbook.Name
Theo_Doi =ActiveSheet.Name
Sheets(Theo_Doi).Copy
Application.Dialogs(xlDialogSaveAs).Show
ActiveWindow.Close

End Sub

quoc nhat · 29/1/15

be09 đã viết:
Trong code không sử dụng đường dẫn, nên bạn muốn lưu ở đâu và lưu tên File là gì thì tuỳ ý, lưu ý sử dụng tên sheet hiện hành là Theo_Doi.

PHP:

Sub LuuSheet_ThanhFile() Dim Theo_Doi Theo_Doi = ActiveWorkbook.Name Theo_Doi =ActiveSheet.Name Sheets(Theo_Doi).Copy Application.Dialogs(xlDialogSaveAs).Show ActiveWindow.Close End Sub

vẫn không đúng ý em làm.
Code trên anh viết có hiện được phần Save As nhưng nó vẫn copy các control đã vẽ trên bảng tính. ý em chỉ copy và paste value thôi

be_09 · 29/1/15

quoc nhat đã viết:
vẫn không đúng ý em làm.
Code trên anh viết có hiện được phần Save As nhưng nó vẫn copy các control đã vẽ trên bảng tính. ý em chỉ copy và paste value thôi

Cái này có 2 giải pháp: Làm ẩn Control đi hoặc trích lọc dữ liệu qua sheet mới. Bạn thử làm đi xem có được không.

Pirate · 29/1/15

Bạn thử dùng code này xem

Sub Test() With ThisWorkbook
.Worksheets("CHI_TIET").Copy
ActiveSheet.Cells.Copy
ActiveSheet.Range("A1").PasteSpecial Paste:=xlValues
.Worksheets("CHI_TIET").Copy After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)
ActiveSheet.Cells.Copy
ActiveSheet.Range("A1").PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
End Sub

quoc nhat · 30/1/15

pirate đã viết:
bạn thử dùng code này xem

không được bạn à!
Nó insert ra một 1 sheet mới trong file vừa copy và chưa bỏ được các control đã vẽ
cảm ơn bạn!

quoc nhat · 30/1/15

be09 đã viết:
cái này có 2 giải pháp: Làm ẩn control đi hoặc trích lọc dữ liệu qua sheet mới. Bạn thử làm đi xem có được không.

không biết có đoạn code nào delete các control không anh nhỉ?

quoc nhat · 30/1/15

cuối cùng cũng làm được. Một lần nữa cảm ơn các bạn đã giúp đỡ
Đặc biệt là anh Be09 đã gợi ý

be09 đã viết:
Cái này có 2 giải pháp: Làm ẩn Control

chỉ thiếu mổi cái xóa code trong sheet vừa copy ra nữa thôi
&&&%$R

cảm ơn nhiều!

be_09 · 30/1/15

chỉ thiếu mổi cái xóa code trong sheet vừa copy

Làm gì có code trong sheet vừa copy.

quoc nhat · 30/1/15

be09 đã viết:
Làm gì có code trong sheet vừa copy.

có mà anh
có mấy đoạn code mình gán cho các control đó

be_09 · 30/1/15

quoc nhat đã viết:
có mà anh
có mấy đoạn code mình gán cho các control đó

Cái nút em vẫn để bên sheet Data, rồi dùng Advandced Filter lọc danh sách qua sheet cần Copy là êm chuyện (khỏi nghĩ đến chuyện khác).

quoc nhat · 30/1/15

be09 đã viết:
Cái nút em vẫn để bên sheet Data, rồi dùng Advandced Filter lọc danh sách qua sheet cần Copy là êm chuyện (khỏi nghĩ đến chuyện khác).

như vậy thì file sẽ nặng hơn vì phải insert thêm 1 sheet nữa để chứa danh sách lọc
để em mở topic khác hỏi mọi người thử xem?

be_09 · 30/1/15

quoc nhat đã viết:
như vậy thì file sẽ nặng hơn vì phải insert thêm 1 sheet nữa để chứa danh sách lọc để em mở topic khác hỏi mọi người thử xem?

Bài trên là đưa ra giải pháp để em thử nghiệm, nhưng em sợ tăng dung lượng, vậy lỡ phóng lao rồi làm luôn.

PHP:

Sub LuuSheet_ThanhFile()

Dim Theo_Doi
Theo_Doi = ActiveWorkbook.Name
Theo_Doi = ActiveSheet.Name
Sheets(Theo_Doi).Copy
ActiveSheet.DrawingObjects.Delete    
Application.Dialogs(xlDialogSaveAs).Show    
ActiveWindow.Close

End Sub

be_09 · 30/1/15

chỉ thiếu mổi cái xóa code trong sheet vừa copy ra nữa thôi

cảm ơn nhiều!

Em thử sử dụng Shapes và gán code vào, chứ trên File anh thử thì nó không có Copy code đâu.

quoc nhat · 1/2/15

be09 đã viết:
Em thử sử dụng Shapes và gán code vào, chứ trên File anh thử thì nó không có Copy code đâu.

nó copy được cả code anh ạ!
em kiểm tra rồi
anh đã cho sub trên của anh vào code của commandbutton1 trên sheet Theo_Doi rồi chạy sub trên
anh xem ví dụ sau

file đính kèm)
nó sẻ copy cả code của 2 commandbutton đó

quoc nhat · 1/2/15

be09 đã viết:
Bài trên là đưa ra giải pháp để em thử nghiệm, nhưng em sợ tăng dung lượng, vậy lỡ phóng lao rồi làm luôn.

PHP:

Sub LuuSheet_ThanhFile() Dim Theo_Doi Theo_Doi = ActiveWorkbook.Name Theo_Doi = ActiveSheet.Name Sheets(Theo_Doi).Copy ActiveSheet.DrawingObjects.Delete Application.Dialogs(xlDialogSaveAs).Show ActiveWindow.Close End Sub

Không. Em hỏi để vận dụng luôn anh ạ!

be_09 · 1/2/15

Anh nêu:

gán code vào Shapes

Code sẽ nằm trong Module thì lấy đâu có có code trong sheet mà copy, sao em không thử .

quoc nhat · 1/2/15

be09 đã viết:
Anh nêu:

Code sẽ nằm trong Module thì lấy đâu có có code trong sheet mà copy, sao em không thử .

dạ em biết là code trong module không copy nhưng trên code của sheet cần copy có vài sự kiện như Worksheet_Change(), Worksheet_Selection(), worksheet_Active()...
em muốn bỏ các đoạn code đó đi nhưng mà không biết phải làm sao?
Anh nhiệt tình quá!
Cảm ơn anh Be09!
P/s: em muốn dùng các CommandButton vì nó gán được các icon trong sinh động hơn.

xin code copy paste value của sheet file excel này sang sheet file excel khác (1 người xem)

Người dùng đang xem chủ đề này

Thành viên tiêu biểu

Biên Hòa, Đồng Nai

Thành viên tiêu biểu

Biên Hòa, Đồng Nai

Thành viên tiêu biểu

Biên Hòa, Đồng Nai

Thành viên mới

Thành viên tiêu biểu

Thành viên tiêu biểu

Thành viên tiêu biểu

Biên Hòa, Đồng Nai

Thành viên tiêu biểu

Biên Hòa, Đồng Nai

Thành viên tiêu biểu

Biên Hòa, Đồng Nai

Biên Hòa, Đồng Nai

Thành viên tiêu biểu

File đính kèm

Thành viên tiêu biểu

Biên Hòa, Đồng Nai

Thành viên tiêu biểu

Sinh nhật lần 19 GPE