Làm sao copy paste link nhưng vẫn kèm theo định dạng của dữ liệu gốc

[vuvuson]

Chào mọi người,
Về vấn đề Copy

 

[phucbugis]

Chào mọi người,
Về vấn đề Copy & Paste link trong excel, tôi muốn khi copy vùng dữ liệu từ một vùng nào đó trong sheet này (vd: chứa số, định dạng ô tô vàng, đỏ, chữ in đậm, ...) và paste link vào sheet khác thì khi link được paste vẫn giữ nguyên phần định dạng của vùng dữ liệu nguồn
Có ai có thể làm được việc này không?

chắc ko thể dùng đồng thời 2 chức năng trên cùng 1 lúc, khi dùng các chức năng khác thì Paste Link sẽ Off


'-----
để xử lý:
- sau khi bạn đã Paste Link xong thì
- quét chọn vùng 1 - Right click - click Format Painter (cây chổi)

- chọn vị trí đầu tiên bên trái và định dạng cho vùng 2 --> xong.

 

[vuvuson]

Cám ơn bạn gợi ý
Trường hợp này thì tôi đã làm rồi, chỉ khi bất đắc dĩ mới làm vậy thôi, chứ ai mà không muốn cái gì cũng

 

[Quang_Hải]

Cám ơn bạn gợi ý
Trường hợp này thì tôi đã làm rồi, chỉ khi bất đắc dĩ mới làm vậy thôi, chứ ai mà không muốn cái gì cũng "tự động" phải không nào
Không biết có cao thủ nào giải quyết được không, tiếp tục chờ xem

Có 1 anh tên là VBA làm được việc này. Nếu bạn muốn thì phải nhờ đến anh này thôi.

 

[vuvuson]

Tôi biết VBA làm được, ngặt nỗi tôi dốt đặc VBA. Đang sắp xếp thời gian rảnh

 

[vuvuson]

Tôi tìm thấy trên diễn đàn PC world có 1 bài viết VBA về vấn đề này, tuy nhiên code tác giả đưa ra bị lỗi, tôi thử Debug mà chưa được
[URL=

 

[Quang_Hải]

Tôi biết VBA làm được, ngặt nỗi tôi dốt đặc VBA. Đang sắp xếp thời gian rảnh "voọc" thử mà chưa được

Thử code này

Sub PasteLink()
    [A1].Copy
    With [B1]
        .PasteSpecial 4
        ActiveSheet.Paste Link:=True
    End With
End Sub

 

[phucbugis]

cái này bạn có thể dùng Record Macro là có code chẳng cần "sáng tạo" gì cả,

Sub test()
'
' test Macro
'
    Range("A1:C3").Copy
    Range("E5").Select
    ActiveSheet.Paste Link:=True
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    '-------------
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

nếu vùng copy hoặc vị trí Paste ko cố định --> phải sửa lại code (bạn nên Up file lên diễn đàn + yêu cầu)

 

[vuvuson]

Cám ơn anh đã chỉ giáo
Tôi làm thử đã Ok (Cập nhật trong cùng 1 file). Tuy nhiên yêu cầu thực tế của tôi là copy và paste link dữ liệu từ 2 file có cấu trúc giống nhau nhưng được lưu tại 2 máy tính khác nhau, thư mục chứa 2 file cố định
Sorry ngay từ ban đầu tôi đã không nói rõ vấn đề này
Tôi thử chỉnh sửa code bạn gửi để copy paste link dữ liệu (địa chỉ L150:O213) từ file A chứa trong máy PC1 sang L150:O213 file A chứa trong PC2, đồng thời ẩn 2 dòng lệnh
'Application.CutCopyMode = False
'Range(