Macro bị lỗi

[le tin]

Nhờ các bạn xem file và giúp sửa lỗi code , cám ơn nhiều

 

[SA_DQ]

Bạn có thể xài 1 trong 2 macro sau & xem thử cái nào có lỗi tại những vị trí hiện tại của nó:

[B]Private Sub CommandButton1_Click()[/B] 
 Sheets("Sheet2").Select
 Sheets("Sheet2").Range("A1:B2").Select
 Selection.Copy
 Sheets("Sheet3").Select
 Sheets("Sheet3").Range("C1").Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 Application.CutCopyMode = False
 Sheets("Sheet1").Select
 Sheets("Sheet1").Range("A7").Select
[B]End Sub[/B]

Sub Macro1()
   With Sheets("Sheet2")
    .Range("A1:B2").Copy Destination:=Sheets("Sheet3").Range("C1")
   End With
   Range("A9").Select
End Sub

 

[Mr Okebab]

Nhờ các bạn xem file và giúp sửa lỗi code , cám ơn nhiều

Private Sub CommandButton1_Click()
Sheets("Sheet2").Select
    .Range("A1:B2").Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sheet1").Select
    Range("A7").Select
End Sub

Đây là Code tại Sheet1.

Tại Sheet1 , khi bạn muốn chỉ định tới một vùng của Sheet khác thì bạn phải thêm tên sheet vào trước :
VD :

Sheets("Sheet2").Select
    .Range("A1:B2").Select

Thì phải là

Sheets("Sheet2").Select
     Sheets("Sheet2").Range("A1:B2").Select

Còn nếu không muốn thế thì bạn phải để Code trên trong Module

Thân!

 

[le tin]

Cảm ơn 2 bạn SA_DQ và OKEBAB