Không thể Copy sheet

Liên hệ QC

shushichi

Thành viên mới
Tham gia
24/6/09
Bài viết
6
Được thích
0
Cả nhà ơi giúp em giải quyết lỗi này với , em không thể copy sheet . Em gửi file chụp hình kèm theo . Em xin cảm ơn trước ạ , thanks cả nhà đã quan tâm
 

File đính kèm

Cả nhà ơi giúp em giải quyết lỗi này với , em không thể copy sheet . Em gửi file chụp hình kèm theo . Em xin cảm ơn trước ạ , thanks cả nhà đã quan tâm

Bạn cứ bấm YES thôi chứ sao không copy được? Nó bảo rằng Sheet hoặc Name đã tồn tại ở nơi đến, nếu Yes thì copy, nếu No thì sửa lại name thôi.
 
Không được bạn ơi . Tệp tin của mình không có sheet nào trùng tên cả , và khi nhấn yes nó hiện lên một hộp thoại mới dù bạn gõ tên nào cũng không copy được sheet mới, nó quay vòng hai cái hộp thoại đó , bạn không thể tắt 2 hộp thoại , trừ khi tắt bằng task manager
 
Lần chỉnh sửa cuối:
Không được bạn ơi . Tệp tin của mình không có sheet nào trùng tên cả , và kho nhấn yes nó hiện lên một họpp thoại mới dù bạn gõ tên nào cũng không copy được sheet mới
Bạn chọn Ctrl+F3 để hiển thị xem có name nào trên đó không. Khả năng nếu File của bạn không dùng name, có nghĩa là file của bạn bị nhiễm virus rồi đấy! Bạn gửi File lên đây đi.
 
File

File này của mình copy từng sheet được , nhưng copy đến lần thứ 2 thì không được nữa hoặc là copy cả 3 sheet thì không được . Bạn giúp mình tìm nguyên nhân nha . Thanks bạn
 

File đính kèm

File này của mình copy từng sheet được , nhưng copy đến lần thứ 2 thì không được nữa hoặc là copy cả 3 sheet thì không được . Bạn giúp mình tìm nguyên nhân nha . Thanks bạn

Bạn vào Insert\Name\Define xem có các Name rác hay không. Nếu có bạn xoá hết đi rồi thử lại nha.
 
Mình đã làm theo cách bạn chỉ nhưng ko có Name nào khác . :(
 
Mình đã làm theo cách bạn chỉ nhưng ko có Name nào khác . :(
Bạn không thấy name nào cũng đúng thôi, vì nó ẩn mất xác rồi, sao thấy được
Dùng code cho nó hiện ra:
PHP:
Sub HienName()
  Dim N As Name
  For Each N In ThisWorkbook.Names
    N.Visible = True
  Next N
End Sub
Sau đó bấm Ctrl + F3 sẽ thấy cả đóng name, xóa hết chúng là xong chuyện
Làm luôn cho bạn đây ---> Thử file mới này xem thế nào nha
 

File đính kèm

File này của mình copy từng sheet được , nhưng copy đến lần thứ 2 thì không được nữa hoặc là copy cả 3 sheet thì không được . Bạn giúp mình tìm nguyên nhân nha . Thanks bạn
Mình thấy vẫn copy được mà. khi copy nó hỏi có một số công thức và name bạn có muốn copy không bạn cứ yes là mấy lầm là được mà.
 
Mình thấy vẫn copy được mà. khi copy nó hỏi có một số công thức và name bạn có muốn copy không bạn cứ yes là mấy lầm là được mà.
Chả lẽ mỗi lần copy sheet là 1 lần nhấn Yes 10 cái sao bạn?
Ngoài ra, mỗi lần bạn nhấn Yes là 1 lần số Name nhân đôi. Đến 1 lúc nào đó muốn mở file cũng khó khăn chứ đừng nói là làm cái gì.
 
Chả lẽ mỗi lần copy sheet là 1 lần nhấn Yes 10 cái sao bạn?
Ngoài ra, mỗi lần bạn nhấn Yes là 1 lần số Name nhân đôi. Đến 1 lúc nào đó muốn mở file cũng khó khăn chứ đừng nói là làm cái gì.
Mình cũng biết điều này nhưng vì chủ topic nói là không thể copy nên mình nói vậy mà.
 
Bạn không thấy name nào cũng đúng thôi, vì nó ẩn mất xác rồi, sao thấy được
Dùng code cho nó hiện ra:

PHP Code:
Sub HienName()
Dim N As Name
For Each N In ThisWorkbook.Names
N
.Visible = True
Next N
End Sub

Sau đó bấm Ctrl + F3 sẽ thấy cả đóng name, xóa hết chúng là xong chuyện
Làm luôn cho bạn đây ---> Thử file mới này xem thế nào nha
Mình cảm ơn bạn nha , mình không biết gì về mấy code đó , nhưng làm theo cách của bạn mình đã copy được như bình thường , mình muốn hỏi thêm là nguyên nhân nào dẫn đến việc copy các sheet không được như của mình . Mình rất muốn tìm hiểu thêm về macro và VBA , vì mình chưa biết gì về 2 thứ đó cả , nếu bạn có tài lệu hướng dẫn cơ bản cho người mới học macro và VBA , bạn gửi giúp mình nha . Cảm ơn bạn rất nhiều . Mail của mình : shushinchi@gmail.com
 
Bạn không thấy name nào cũng đúng thôi, vì nó ẩn mất xác rồi, sao thấy được
Dùng code cho nó hiện ra:
PHP:
Sub HienName()
  Dim N As Name
  For Each N In ThisWorkbook.Names
    N.Visible = True
  Next N
End Sub
Sau đó bấm Ctrl + F3 sẽ thấy cả đóng name, xóa hết chúng là xong chuyện
Làm luôn cho bạn đây ---> Thử file mới này xem thế nào nha
---
Chú cho anh hỏi: khi cần kiểm tra File nào có name rác ẩn hay không thì copy Code dán vào module của File cần kiểm tra phải không? Nếu đúng thế thì có cách nào tiện lợi hơn không? Ví dụ như có 1 file A chứa code, mở file A và mở 5 file khác, Run code ở file A thì kiểm tra name rác ở các file đang mở và....:-=
 
---
Chú cho anh hỏi: khi cần kiểm tra File nào có name rác ẩn hay không thì copy Code dán vào module của File cần kiểm tra phải không? Nếu đúng thế thì có cách nào tiện lợi hơn không? Ví dụ như có 1 file A chứa code, mở file A và mở 5 file khác, Run code ở file A thì kiểm tra name rác ở các file đang mở và....:-=
Được chứ anh!
Trong đoạn code trên, anh thay
ThisWorkbook.Names
thành
ActiveWorkbook.Names
là xong!
- ThisWorkbook là workbook chứa code
- ActiveWorkbook là workbook hiện hành (nơi anh đang làm việc)
 
Được chứ anh!
Trong đoạn code trên, anh thay
ThisWorkbook.Names
thành
ActiveWorkbook.Names
là xong!
- ThisWorkbook là workbook chứa code
- ActiveWorkbook là workbook hiện hành (nơi anh đang làm việc)
---
Anh không hiểu, ý anh là đứng tại fileA (file chứa code) => Run => kiểm tra tất cả các file đang mở, nếu có name rác thì cho hiện name đồng thời xóa sạch (không xóa = tay). Công ty anh name rác nhiều lắm (có file cả ngàn name rác). Cám ơn chú
 
---
Anh không hiểu, ý anh là đứng tại fileA (file chứa code) => Run => kiểm tra tất cả các file đang mở, nếu có name rác thì cho hiện name đồng thời xóa sạch (không xóa = tay). Công ty anh name rác nhiều lắm (có file cả ngàn name rác). Cám ơn chú
Kiểu ấy cũng được, nhưng viết code cực hơn
Đơn giản nhất là:
- Anh mở file A cùng các file khác (file A có code)
- Anh sang các file còn lại rồi bấm Alt + F8, chọn code và Run
Kiểu này đơn giản nhất
Còn như theo cách anh yêu cầu, thà rằng cài luôn Add-Ins Name Manager vào cho khỏe, khỏi cần file A, file B gì ráo, cứ cần là "quất"
 
---
Anh không hiểu, ý anh là đứng tại fileA (file chứa code) => Run => kiểm tra tất cả các file đang mở, nếu có name rác thì cho hiện name đồng thời xóa sạch (không xóa = tay). Công ty anh name rác nhiều lắm (có file cả ngàn name rác). Cám ơn chú

Thật tình mà nói em chẳng rành về code lắm, nhưng nếu Anh chọn Excel 2007 thì thằng nào là name rác, name lỗi là nó lôi ra hết, cứ chọn cái name đầu rồi shift chọn cái name cuối là delete vô tư luôn đó Anh.
 
Web KT

Bài viết mới nhất

Back
Top Bottom