Làm thế nào để copy?

[kienke716]

ai cóp hộ e dự liệu file này qa file khác với, chứ nhặt tay lâu lắm

 

[Quang_Hải]

ai cóp hộ e dự liệu file này qa file khác với, chứ nhặt tay lâu lắm

Bạn muốn cốp kiểu nào, còn việc bạn đang nhặt tay thì nhặt thế nào?

 

[MinhKhai]

ai cóp hộ e dự liệu file này qa file khác với, chứ nhặt tay lâu lắm

Chả ai biết bạn muốn gì, cần gì...

 

[kienke716]

dữ liệu của file toàn liên kết, e xem được nhưng coppy nó k cho cóp, toàn kiểu: ='D:\Phong KCS\Phong mau Thi Nghiem\[PHÚC LỘC NAM LINH.xls]Bang nhap Do kho'!E724
mà đó là file của đối tác gửi, đường link là ở máy tính họ, giờ e mở ra xem thấy các số liệu dạng như 46.0600% nhưng khi coppy nó cứ đòi đường dẫn ms cho paste

 

[kienke716]

khi e coppy thì nó báo thế này
chày cối ok thì nó hiện ra

 

[VetMini]

Theo nguyên tắc làm việc, nếu bên đối tác gửi file mình xài không được thì bảo họ gửi lại.
Nếu họ không chịu gửi lại thì do họ không muốn mình copy.

Muốn cưỡng chế copy thì: Copy, xong paste value ngay tại chỗ. Hết.

Vả lại, có bao nhiêu ấy dữ liệu mà cũng sợ nhặt tay.

 

[vanle33]

khi e coppy thì nó báo thế này View attachment 112399
chày cối ok thì nó hiện ra View attachment 112400

Thì bạn bảo họ gửi cả file tạo nên đường link tức là gửi kèm cả file nguồn.
Hoặc có thể dùng cách Copy xong Paste special/Values/OK để không bị báo lỗi phải update link.

 

[kienke716]

thứ nhất: Ko phải có 1 file này đâu ạ, mỗi ngày có khoảng 10 biểu như thế này.
Thứ hai: Phía đối tác họ cũng gà mờ nên họ k biết, e bảo mấy lần r mà gửi đi gửi lại k được, nản...
Các bác xem có cách nào coppy được k

 

[vanle33]

thứ nhất: Ko phải có 1 file này đâu ạ, mỗi ngày có khoảng 10 biểu như thế này.
Thứ hai: Phía đối tác họ cũng gà mờ nên họ k biết, e bảo mấy lần r mà gửi đi gửi lại k được, nản...
Các bác xem có cách nào coppy được k

Không hiểu bạn hỏi ai????
Bạn đọc bài #7 chưa?

 

[Quang_Hải]

thứ nhất: Ko phải có 1 file này đâu ạ, mỗi ngày có khoảng 10 biểu như thế này.
Thứ hai: Phía đối tác họ cũng gà mờ nên họ k biết, e bảo mấy lần r mà gửi đi gửi lại k được, nản...
Các bác xem có cách nào coppy được k

Muốn nhanh thì chỉ có dùng code thôi (nếu như mình hiểu đúng vấn đề của bạn)
Bạn mở file này lên, nhớ Enable Macros. Trên thanh công cụ AddIns sẽ xuất hiện 2 cái lệnh mới.

1. ValueCurSheet: Sẽ tự động Copy và dán Value toàn bộ dữ liệu trên Sheet hiện hành
2. ValueAllSheets: Sẽ tự động Copy và dán Value toàn bộ dữ liệu trên File hiện hành

Bạn muốn copy kiểu nào thì cứ chọn thử
Hy vọng giúp được bạn và đối tác "gà mờ" của bạn.

 

[ndu96081631]

Muốn nhanh thì chỉ có dùng code thôi (nếu như mình hiểu đúng vấn đề của bạn)
Bạn mở file này lên, nhớ Enable Macros. Trên thanh công cụ AddIns sẽ xuất hiện 2 cái lệnh mới.

1. ValueCurSheet: Sẽ tự động Copy và dán Value toàn bộ dữ liệu trên Sheet hiện hành
2. ValueAllSheets: Sẽ tự động Copy và dán Value toàn bộ dữ liệu trên File hiện hành

Bạn muốn copy kiểu nào thì cứ chọn thử
Hy vọng giúp được bạn và đối tác "gà mờ" của bạn.

Code Auto_Close xóa menu cần gì phải For... Next hả Hải
Cứ Add menu thế nào thì xóa thế ấy (khỏi for... next)

 

[Quang_Hải]

Code Auto_Close xóa menu cần gì phải For... Next hả Hải
Cứ Add menu thế nào thì xóa thế ấy (khỏi for... next)

Em cũng nghĩ như anh nhưng em sợ khi Autpen mà gọi AuTo_Close sẽ phát sinh lỗi vì không tìm thấy tên để xóa

 

[ndu96081631]

Em cũng nghĩ như anh nhưng em sợ khi Autpen mà gọi AuTo_Close sẽ phát sinh lỗi vì không tìm thấy tên để xóa

On Error Resume Next ở đâu code (trong Sub Auto_Close) ---> Luôn là thế vì ta thừa biết ta đang làm cái gì mà
Ngoài ra, để xóa 1 phát sạch láng (mà khỏi cần phải tìm từng Item), khi tạo menu, ta nên cho toàn bộ vào 1 Toolbar riêng (có tên đàng hoàng). Khi xóa, chỉ việc lôi cổ cái tên thằng Toolbar tự tạo kia mà xóa (toàn bộ các Item bên trong sẽ đi theo luôn)

 

[kienke716]

CẢM ƠN CÁC BÁC, CỨ Paste special/Values/OK NHƯ BÁC VANLE KIA CŨNG ĐƯỢC Ạ

 

[Quang_Hải]

On Error Resume Next ở đâu code (trong Sub Auto_Close) ---> Luôn là thế vì ta thừa biết ta đang làm cái gì mà
Ngoài ra, để xóa 1 phát sạch láng (mà khỏi cần phải tìm từng Item), khi tạo menu, ta nên cho toàn bộ vào 1 Toolbar riêng (có tên đàng hoàng). Khi xóa, chỉ việc lôi cổ cái tên thằng Toolbar tự tạo kia mà xóa (toàn bộ các Item bên trong sẽ đi theo luôn)

Chắc ý anh là gom chung lại thế này.

Sub Auto_Open()
Auto_Close
Dim MyAddIns As CommandBar
Set MyAddIns = CommandBars.Add("MyAddIn")
   With MyAddIns.Controls
      With .Add
         .Style = msoButtonCaption
         .Caption = "ValueCurSheet"
         .OnAction = "ValueCurSheet"
      End With
      With .Add
         .Style = msoButtonCaption
         .Caption = "ValueAllCurSheets"
         .OnAction = "ValueAllSheets"
      End With
   End With
   MyAddIns.Visible = True
End Sub

Sub Auto_Close()
   On Error Resume Next
   CommandBars("MyAddin").Delete
End Sub