Viết 2 code Worksheet_change trên 1 sheet (1 người xem)

[nghiah5]

Chào anh chị và mọi người.
Em đang muốn viết 2 Code cho biến lựa chọn Worksheet_change trên 1 sheet
vd:
Private Sub Worksheet_Change1(ByVal Target As Range)
If Target.Address = "$V$38" Then
...
End Sub
Và em muốn viết thêm 1 code lựa chọn nữa
Private Sub Worksheet_Change1(ByVal Target As Range)
If Target.Address = "$V$25" Then
...
End Sub
Cũng trên Sheet đó
thì khi chạy báo lỗi là : "Compile Error, Ambiguos name Detected: Worksheet_Change"
Thử thay Worksheet_Change1 thì k chạy Code
Vậy em phải làm sao để sửa ạ
Cảm ơn mọi người.

 

[ndu96081631]

Chào anh chị và mọi người.
Em đang muốn viết 2 Code cho biến lựa chọn Worksheet_change trên 1 sheet
vd:
Private Sub Worksheet_Change1(ByVal Target As Range)
If Target.Address = "$V$38" Then
...
End Sub
Và em muốn viết thêm 1 code lựa chọn nữa
Private Sub Worksheet_Change1(ByVal Target As Range)
If Target.Address = "$V$25" Then
...
End Sub
Cũng trên Sheet đó
thì khi chạy báo lỗi là : "Compile Error, Ambiguos name Detected: Worksheet_Change"
Thử thay Worksheet_Change1 thì k chạy Code
Vậy em phải làm sao để sửa ạ
Cảm ơn mọi người.

Thử lại thành vầy xem:

Private Sub Worksheet_Change1(ByVal Target As Range)
  If Target.Address = "$V$38" Then
    'Làm công việc thứ nhất
  ElseIf Target.Address = "$V$25" Then
    'Làm công việc thứ hai
  End If
End Sub

 

[nghiah5]

Hic,cách thầy chỉ chạy không được ạ

 

[ndu96081631]

Hic,cách thầy chỉ chạy không được ạ

Không chạy được thì đưa file của bạn lên đây
(ai biết bạn áp dụng thế nào chứ)