OnClick Command Button

  • Thread starter Ng Ha Anh Tuan
  • Ngày gửi
N

Ng Ha Anh Tuan

Guest
2/8/06
76
0
0
TP HCM
Xin nhờ các anh, chị và các bạn giúp.
Tôi tạo 1 file .xls có 02 sheet gồm A và B
Tại Sheet A tôi tạo 1 macro copy dữ liệu của Sheet A (VD:A1:L6)
Và copy giá trị vào Sheet B, sau đó thì nhớ. VD phím tắt macro là Ctr+t
Nếu dùng Ctr+t thì không sao nhưng khi gán macro đó vào 1 command Button thì nó báo lỗi tại Range(A1:A6). Xin nhờ chỉ dẫn hộ. Cám ơn.
(Có thể chỉ tôi cách đính kèm file nhé)
 
Khóa học Quản trị dòng tiền
B

Bình_OverAC

Over Abnormal / Crazy
14/5/04
846
10
18
42
Nha Trang
Sau khi nhận được file của bác em nhận thấy như sau:
Đoạn code mà gán cho command button nằm trong phạm vi của sheet "bk" nên những câu lệnh select được mặc định là cho sheet này (sheet "bk")nhưng sheet active không phải là nó nên câu lệnh của bạn bị sai. Bạn có thể sửa nó lại theo 2 cách sau:
- Chỉnh lại đoạn code của bạn:
Private Sub CommandButton1_Click()
Sheets("chitiet").Select
Sheets("chitiet").Range("A1:B2").Select
Selection.Copy
Sheets("Sheet3").Select
Sheets("Sheet3").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("bk").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub
thêm vào trước câu lệnh select phần sheets("Chitiet").
Bạn có thể đơn thuần làm như sau:
CommandButton1_Click()
call tam
End Sub
 

Đính kèm

  • tam.zip
    10.4 KB · Lượt xem: 253

Xem nhiều

Webketoan Zalo OA