Sửa code để chuyển sang sheet khac

[hoclaptrinh]

Em có 1 file số liệu có VB, nhưng kết quả thể hiện ở sheet1, giờ em muốn chuyển nút nhấn này sang sheet bên và kết quả cũng thể hiện ở sheet bên luôn ah!

 

[befaint]

@hoclaptrinh
Bạn thử như vầy:

Public Sub NOTCAO()
Dim d As Long, r As Long, c As Long, tl As Long, tr As Long
Dim Sd, Ptu, TGL(), TGR(), KQ()
Dim sh As Worksheet
Set sh = ActiveSheet
Sheet1.Activate
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheet1
...
End With
sh.Activate
Application.ScreenUpdating = True
Application.DisplayAlerts = True

 

[hoclaptrinh]

Em đã thêm vào rồi nhưng mỗi lần kích chuột thì nó nháy kết quả nhưng thả chuột thì nó không hiện kết quả, giờ phải làm sao đây?

 

[hoclaptrinh]

Chuyển được nút bấm sang sheet khác nhưng kết quả vẫn nằm bên sheet dữ liệu, giờ em muốn số liệu qua cùng bên sheet có nút bầm và những dòng trống bị xóa để kéo dữ liệu lên cho gọn. Nhờ mọi người giúp với!!!!

 

[hoclaptrinh]

CÓ ai giúp mình với không

 

[quanluu]

Em có 1 file số liệu có VB, nhưng kết quả thể hiện ở sheet1, giờ em muốn chuyển nút nhấn này sang sheet bên và kết quả cũng thể hiện ở sheet bên luôn ah!

Các sheet cấu trúc dữ liệu giống nhau ko bạn? nếu giông nhau thì thay
With Sheet1
bằng: With ActiveSheet
hoặc bỏ hẳn: With Sheet1 đi, vì bạn có làm việc với nhiều sheet đâu mà cần cái đó