xin giúp đỡ sửa lỗi chạy code vba (10 người xem)

[Hoàng Tuấn 868]

nhưng lại là cứ sheet1 có thay đổi là nó chạy mãi không dừng

Bạn dùng thử cái này

Private Sub Worksheet_Change(ByVal Target As Range)
Code của bạn................................
End Sub

 

[DanVanPhoto]

Mình chỉ sửa lại sub "LAM_MOI", bạn chạy thử xem thế nào.

Bài đã được tự động gộp: 24/12/22

Ý bạn là ở trường hợp bài này phải không?

Dạ bác ơi. Ngại quá bác cho em xin đoạn code trong file được không ạ. máy em tải file về mà máy nó chặn không cho chạy macro từ file bên ngoài. em mở ra thì không còn gì ạ

 

[cantl]

file hoạt động một cách thông minh nhất có thể

Trước khi đạt được điều này thì bản thân mình phải thông minh hơn code mới được. Mấy cái autô book, sheet này không làm chủ được thì tè le lắm.

 

[DanVanPhoto]

Bạn dùng thử cái này

Private Sub Worksheet_Change(ByVal Target As Range)
Code của bạn................................
End Sub

Không được bác ạ. Code vẫn chạy không dừng được ạ.

 

[Hoàng Tuấn 868]

Dạ bác ơi. Ngại quá bác cho em xin đoạn code trong file được không ạ. máy em tải file về mà máy nó chặn không cho chạy macro từ file bên ngoài. em mở ra thì không còn gì ạ

Sub LAM_MOI()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Cham_Cong_32B")
Application.ScreenUpdating = False
With sh
.Range("AR4:BV19").Copy .Range("G10")
.Range("E5").Select
End With
Application.ScreenUpdating = True
End Sub

Dạ bác ơi.

Bạn nhớ sửa tên sheet đúng theo tên trong code

 

[DanVanPhoto]

Sub LAM_MOI()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Cham_Cong_32B")
Application.ScreenUpdating = False
With sh
.Range("AR4:BV19").Copy .Range("G10")
.Range("E5").Select
End With
Application.ScreenUpdating = True
End Sub

Bạn nhớ sửa tên sheet đúng theo tên trong code

Code báo lỗi bác ơi. em để Sheet code không biết có được không. vì sheet "Chấm công 32B" sheet code là sheet1

 

[Hoàng Tuấn 868]

View attachment 285018
Code báo lỗi bác ơi. em để Sheet code không biết có được không. vì sheet "Chấm công 32B" sheet code là sheet1

Đã dặn là đánh đúng tên sheet như trong code mà, mình thử rồi, code chạy tốt, không bị lỗi.
Lỗi đây là do người dùng không thực hiện theo hướng dẫn.

 

[DanVanPhoto]

Đã dặn là đánh đúng tên sheet như trong code mà, mình thử rồi, code chạy tốt, không bị lỗi.
Lỗi đây là do người dùng không thực hiện theo hướng dẫn.

Vẫn báo lỗi như vậy bác ạ

 

[Hoàng Tuấn 868]

Vẫn báo lỗi như vậy bác ạ

Bạn gửi file lên xem.

 

[DanVanPhoto]

Bạn gửi file lên xem.

Private Sub Worksheet_Calculate() Dim Xrg As Range Set Xrg = Range("I5") If Not Intersect(Xrg, Range("I5")) Is Nothing Then LAM_MOI End If End Sub
Nó báo lỗi trong code này ạ

 

[Hoàng Tuấn 868]

Private Sub Worksheet_Calculate() Dim Xrg As Range Set Xrg = Range("I5") If Not Intersect(Xrg, Range("I5")) Is Nothing Then LAM_MOI End If End Sub
Nó báo lỗi trong code này ạ

Code này mình có can thiệp đâu, mình chỉ sửa Sub "LAM_MOI" thôi mà. Bạn chạy thử Sub "LAM_MOI" chưa.

 

[DanVanPhoto]

Code này mình có can thiệp đâu, mình chỉ sửa Sub "LAM_MOI" thôi mà. Bạn chạy thử Sub "LAM_MOI" chưa.

Sub LAM_MOI chạy được rồi bác ạ. bác xem giúp em.

 

[Hoàng Tuấn 868]

Sub LAM_MOI chạy được rồi bác ạ. bác xem giúp em.

Bạn kiểm tra lại. .

 

[DanVanPhoto]

Bạn kiểm tra lại. .

Bác ơi máy em không mở file được. Bác cho em xin code được không ạ

 

[Hoàng Tuấn 868]

Bác ơi máy em không mở file được. Bác cho em xin code được không ạ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I5")) Is Nothing Then
LAM_MOI
End If
End Sub

 

[DanVanPhoto]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I5")) Is Nothing Then
LAM_MOI
End If
End Sub

Code không hoạt động ạ

 

[Hoàng Tuấn 868]

@Hoàng Tuấn 868 có khi nào nên sử dụng sự kiện change không anh nhỉ?

Cũng tùy từng trừờng hợp cụ thể nữa.

Code không hoạt động ạ

Ở máy mình code chạy bình thường.

 

[DanVanPhoto]

Cũng tùy từng trừờng hợp cụ thể nữa.

Ở máy mình code chạy bình thường.

Code này em dán vào Sheet" chấm_công_32B không biết có đúng không ạ?

 

[Hoàng Tuấn 868]

Code này em dán vào Sheet" chấm_công_32B không biết có đúng không ạ?

Bạn nhấp đúp chuột vào chỗ bôi đỏ rồi dán code vào đó.

 

[DanVanPhoto]

Bạn nhấp đúp chuột vào chỗ bôi đỏ rồi dán code vào đó.
View attachment 285023

Em dán đúng nơi rồi nhưng khi chạy thì không được ạ. Khi chạy F8 nó không báo lỗi nhưng cũng không thực thi lệnh copy và dán mới. còn khi "I5" có giá trị thay đổi thì code cũng không hoạt động ạ.