Hiện thông báo khi chưa copy (1 người xem)

[hungdiep85]

Chào các Thầy

Em phải dùng code sao để khi em chưa copy mà chạy code thì hiện ra thông báo là chưa copy , Vi nếu chưa copy dữ liệu mà chạy code này thì báo lổi.

Cảm ơn nhiều nhiều ...



---------------------
Sub Macro1()
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[nghiaphuc]

Có lẽ mục đích của bạn là để copy một vùng và dán giá trị sang vùng khác. Nếu đúng như vậy thì thay vì sử dụng 2 câu lệnh

Vùng1.Copy
Vùng2.PasteSpecial Paste:=xlPasteValues

thì bạn sử dụng 1 câu lệnh sau:

Vùng2.Value = Vùng1.Value

 

[hungdiep85]

Có lẽ mục đích của bạn là để copy một vùng và dán giá trị sang vùng khác. Nếu đúng như vậy thì thay vì sử dụng 2 câu lệnh

Vùng1.Copy
Vùng2.PasteSpecial Paste:=xlPasteValues

thì bạn sử dụng 1 câu lệnh sau:

Vùng2.Value = Vùng1.Value

Dạ


Ý là vậy em copy dữ liệu từ file 1 (Ctrl C) và paste qua file 2 nhưng file 2 thì em dùng marco để paste , nếu em có copy file 1 thì qua file 2 chạy marco paste thì không gập vấn đề gì hết , nhưng nhiều khi thao tác nhiều quá wen copy file 1 thì qua file 2 chạy marco thì hiện ra bẳng báo lổi , có code nào khi mình chưa copy thì khi chạy marco file 2 thì hiện bẳng thông báo là chưa copy không.
Nếu mỗi lần wen copy khi chạy marco file 2 thì hiện ra bẳng này thì không hay lám.

Cảm ơn nhiều

 

[nghiaphuc]

Dạ
Ý là vậy em copy dữ liệu từ file 1 (Ctrl C) và paste qua file 2 nhưng file 2 thì em dùng marco để paste , nếu em có copy file 1 thì qua file 2 chạy marco paste thì không gập vấn đề gì hết , nhưng nhiều khi thao tác nhiều quá wen copy file 1 thì qua file 2 chạy marco thì hiện ra bẳng báo lổi , có code nào khi mình chưa copy thì khi chạy marco file 2 thì hiện bẳng thông báo là chưa copy không.
Nếu mỗi lần wen copy khi chạy marco file 2 thì hiện ra bẳng này thì không hay lám.
View attachment 94928
Cảm ơn nhiều

Hỏi lại bạn 1 lần nữa: Có phải macro của bạn chỉ nhằm 1 mục đích là PasteValues để không làm mất định dạng ở file đích không? Nếu mục đích chỉ như vậy thì chẳng cần gì đến macro cả, bạn cứ kéo nút lệnh PasteValues lên thanh công cụ, mỗi lần cần dùng chỉ cần nhấn nút này là xong. Thậm chí nếu mình gán cho nút này 1 phím tắt thì còn chẳng cần nhấn nút nữa.

Còn nếu bạn vẫn muốn sử dụng code cho việc này thì có lẽ viết code như sau là ổn (tất nhiên bạn phải kiểm soát được các lỗi có thể xảy ra trong quá trình chạy code để xử lý cho phù hợp):
[GPECODE=vb]Sub Test
On Error Goto Err
'Code của bạn
Err: Msgbox "Chua co du lieu de Paste!"
End Sub[/GPECODE]

 

[hungdiep85]

Hỏi lại bạn 1 lần nữa: Có phải macro của bạn chỉ nhằm 1 mục đích là PasteValues để không làm mất định dạng ở file đích không? Nếu mục đích chỉ như vậy thì chẳng cần gì đến macro cả, bạn cứ kéo nút lệnh PasteValues lên thanh công cụ, mỗi lần cần dùng chỉ cần nhấn nút này là xong. Thậm chí nếu mình gán cho nút này 1 phím tắt thì còn chẳng cần nhấn nút nữa.

Còn nếu bạn vẫn muốn sử dụng code cho việc này thì có lẽ viết code như sau là ổn (tất nhiên bạn phải kiểm soát được các lỗi có thể xảy ra trong quá trình chạy code để xử lý cho phù hợp):
[GPECODE=vb]Sub Test
On Error Goto Err
'Code của bạn
Err: Msgbox "Chua co du lieu de Paste!"
End Sub[/GPECODE]

Dạ đúng rùi Thầy ơi
Em không copy khi chạy code thì hiện ra "Chưa có dữ liệu để Paste!" thì đúng rụi.
Nhưng sao em có copy thi vẫn hiện ra thông báo là "Chưa có dữ liệu để Paste!" vậy Thầy. hihihi


Cảm ơn Thầy




Sub Test()
On Error GoTo Err
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Err: MsgBox "Chua co du lieu de Paste!"
End Sub

 

[nghiaphuc]

Dạ đúng rùi Thầy ơi
Em không copy khi chạy code thì hiện ra "Chưa có dữ liệu để Paste!" thì đúng rụi.
Nhưng sao em có copy thi vẫn hiện ra thông báo là "Chưa có dữ liệu để Paste!" vậy Thầy. hihihi
Cảm ơn Thầy
Sub Test()
On Error GoTo Err
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Err: MsgBox "Chua co du lieu de Paste!"
End Sub

Vậy thì bạn sửa lại code như vầy (thêm vào Exit Sub):
[GPECODE=vb]Sub Test()
On Error GoTo Err
Selection.PasteSpecial Paste:=xlPasteValues
Exit Sub
Err: MsgBox "Chua co du lieu de Paste!"
End Sub[/GPECODE]
Bạn viết bài đừng Enter nhiều quá, trông lãng phí không gian quá!

 

[hungdiep85]

Vậy thì bạn sửa lại code như vầy (thêm vào Exit Sub):
[GPECODE=vb]Sub Test()
On Error GoTo Err
Selection.PasteSpecial Paste:=xlPasteValues
Exit Sub
Err: MsgBox "Chua co du lieu de Paste!"
End Sub[/GPECODE]
Bạn viết bài đừng Enter nhiều quá, trông lãng phí không gian quá!

Cảm ơn Thầy . Chúc THẦY năm mới sức khỏe dồi dào