Mình cần giúp sửa một đoạn code của Worksheet

[hktanh]

Chào các bạn, mình có đoạn code sau để thay đổi giá trị cho Sheet2 từ Sheet1 nhưng mình không biết sai ở đâu cả, mọi người sửa code giúp mình với nhé, mình cảm ơn

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = wb.Sheets("Sheet1")
Set ws2 = wb.Sheets("Sheet2")
Application.EnableEvents = False
If ActiveSheet.Name = ws1.Name Then
If Target.Address = "$A$1" Or Target.Address = "$A$2" Then
ws2.Range("A1").Value = ws1.Range("A1").Value
ws2.Range("A2").Value = ws1.Range("A2").Value
End If
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[hktanh]

Chào các bạn, mình có đoạn code sau để thay đổi giá trị cho Sheet2 từ Sheet1 nhưng mình không biết sai ở đâu cả, mọi người sửa code giúp mình với nhé, mình cảm ơn

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = wb.Sheets("Sheet1")
Set ws2 = wb.Sheets("Sheet2")
Application.EnableEvents = False
If ActiveSheet.Name = ws1.Name Then
If Target.Address = "$A$1" Or Target.Address = "$A$2" Then
ws2.Range("A1").Value = ws1.Range("A1").Value
ws2.Range("A2").Value = ws1.Range("A2").Value
End If
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Hình như đoạn code này phải lưu file rồi nó mới chạy được ý

 

[truongvu317]

Gửi cả file lên, đoán là code này viết không đúng chỗ.

 

[VetMini]

Gửi cả file lên, đoán là code này viết không đúng chỗ.

Gửi cả file cũng chả giúp được gì cả.
Cái câu "thay đổi giá trị cho Sheet2 từ Sheet1" quá mơ hồ. Thay đổi như thế nào?
Và dio đó, câu "không biết sai ở đâu cả" lại càng mơ hồ hơn. Không biết cần thay đổi như thế nào thì làm sao nói được nó sai?