copy sang sheet đã khóa, bằng Macro

[lanp900]

Xin chào các bác.
Tôi đang làm việc với một số sheet phải khóa công thức nhưng vẫn phải chạy macro
Tôi đã đọc được một bài về vấn đề này và làm theo nhưng bị lỗi mà không biết sửa.
Kính nhờ các bác ra tay giúp
Vấn đề này có ít bài viết quá hay tại từ khóa tìm kiếm
Xin gửi các bác file đính kèm

 

[ndu96081631]

Xin chào các bác.
Tôi đang làm việc với một số sheet phải khóa công thức nhưng vẫn phải chạy macro
Tôi đã đọc được một bài về vấn đề này và làm theo nhưng bị lỗi mà không biết sửa.
Kính nhờ các bác ra tay giúp
Vấn đề này có ít bài viết quá hay tại từ khóa tìm kiếm
Xin gửi các bác file đính kèm

Cụ thể là lỗi gì?
Code của bạn tôi chạy bình thường

 

[nghiaphuc]

Xin chào các bác.
Tôi đang làm việc với một số sheet phải khóa công thức nhưng vẫn phải chạy macro
Tôi đã đọc được một bài về vấn đề này và làm theo nhưng bị lỗi mà không biết sửa.
Kính nhờ các bác ra tay giúp
Vấn đề này có ít bài viết quá hay tại từ khóa tìm kiếm
Xin gửi các bác file đính kèm

Bạn thử dùng code sau xem sao:

Sub Copy_sang_sheet_khoa()
    With Sheets("Sheet2")
        .Unprotect "123"
        .[C4].Value = Sheet1.[B4].Value
        .Protect "123"
    End With
End Sub

 

[lanp900]

Vấn đề là em chưa khóa sheet2 bác ạ. Nếu khóa sheet2 mà chạy thì lỗi copy thất bại. Bác xem lại giúp cho

 

[ndu96081631]

Vấn đề là em chưa khóa sheet2 bác ạ. Nếu khóa sheet2 mà chạy thì lỗi copy thất bại. Bác xem lại giúp cho

Sửa code thành vầy xem:

Sub Copy_sang_sheet_khoa()
  With Sheets("Sheet2")
    .Unprotect "123"
    Sheet1.Activate: Selection.Copy .Range("C4")
    .Protect "123"
  End With
End Sub

 

[lanp900]

Bác đã giúp em làm được việc rồi. Trân trọng cám ơn

 

[lanp900]

Bác ơi nhờ bác sửa giúp thành paste value cho em ạ

 

[nghiaphuc]

Bác ơi nhờ bác sửa giúp thành paste value cho em ạ

Bạn thử code trên của mình chưa? Câu lệnh .[C4].Value = Sheet1.[B4].Value chính là Paste value từ ô B4 bên Sheet1 sang ô C4 bên Sheet2.

 

[lanp900]

Công việc buộc em phải selection.copy bác ạ

 

[nghiaphuc]

Công việc buộc em phải selection.copy bác ạ

Bạn thử code sau nhé:

Sub Copy_sang_sheet_khoa()
    With Sheets("Sheet2")
        .Unprotect "123"
        Sheets("Sheet1").Activate
        .[C4].Resize(Selection.Rows.Count, Selection.Columns.Count).Value = Selection.Value
        .Protect "123"
    End With
End Sub

 

[ndu96081631]

Bác ơi nhờ bác sửa giúp thành paste value cho em ạ

Paste Values thì sửa thành vầy:

Sub Copy_sang_sheet_khoa()
  With Sheets("Sheet2")
    .Unprotect "123"
    Sheet1.Activate: Selection.Copy: .Range("C4").PasteSpecial 3
    .Protect "123"
  End With
End Sub