Module không chạy khi thay đổi giá trị ở 1 Sheet khác cùng Workbook

[star84]

Mọi người cho mình hỏi 1 vấn đề liên quan đến chạy module với ạ.
Mình có 1 vidu về tự động xóa dòng (file kèm theo):
Trong file đính kèm có ô A7 = Sheet2!A1 cho chạy module như sau:
Sub Andong()
Dim Rgn As Range
Set Rgn = Range("A7")
If Rgn = 0 Then
Sheets("sheet1").Rows("7:7").Hidden = True
ElseIf Rgn <> "" Then
Sheets("sheet1").Rows("7:7").Hidden = False
End If
End Sub

Mình chạy events change :
call Andong
=====> nếu mình để giá trị ô Sheet!A7 = bất kì ô nào cùng Sheets1 thì module chạy được,nhưng nếu để = giá trị ô thuộc sheet khác cùng Workbook thì model lại không chạy được.Mọi người giúp mình với,Cám ơn rất nhiều ạ

 

[Phuocam]

Set Rgn = Range("A7")

Thử thay thành:

Sub Andong()
Dim Rgn As Range
Set Rgn = Sheets("Sheet1").Range("A7")
If Rgn = 0 Then
    Sheets("sheet1").Rows("7:7").Hidden = True
Else
    Sheets("sheet1").Rows("7:7").Hidden = False
End If
End Sub

 

[star84]

Thử thay thành:

Sub Andong()
Dim Rgn As Range
Set Rgn = Sheets("Sheet1").Range("A7")
If Rgn = 0 Then
    Sheets("sheet1").Rows("7:7").Hidden = True
Else
    Sheets("sheet1").Rows("7:7").Hidden = False
End If
End Sub

cũng không được Bác ạ,vấn đề là em muốn nhập giá trị Sheet 2 mà nó ẩn dòng ở Sheet 1

 

[Phuocam]

cũng không được Bác ạ,vấn đề là em muốn nhập giá trị Sheet 2 mà nó ẩn dòng ở Sheet 1

Có phải bạn muốn code chạy tự động không?

 

[star84]

Có phải bạn muốn code chạy tự động không?

Vâng,thật ra nó đã tự động chay rồi nhưng chỉ thay đổi giá trị ở cùng Sheet 1 thôi,nhưng em muốn nó tự động khi em thay đổi giá trị ở Sheet2 và tự động ẩn dòng ở Sheet 1.Bác giúp em với

 

[Phuocam]

em muốn nó tự động khi em thay đổi giá trị ở Sheet2 và tự động ẩn dòng ở Sheet 1.Bác giúp em với

Muốn tự động khi thay đổi giá trị ở Sheet2 thì thêm code tại sheet2, như:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Call Andong
End If
End Sub

 

[star84]

Muốn tự động khi thay đổi giá trị ở Sheet2 thì thêm code tại sheet2, như:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Call Andong
End If
End Sub

Em thêm rồi,ví dụ em nhập giá trị bất kì vào ô A1 ở Sheet2 thì nó lại không hiện lại dòng bác ạ.

 

[Phuocam]

Em thêm rồi,ví dụ em nhập giá trị bất kì vào ô A1 ở Sheet2 thì nó lại không hiện lại dòng bác ạ.

Nhập giá trị 0 vào ô A1 ở Sheet2 => Ẩn dòng 7 của sheet1

Nhập giá trị <> 0 vào ô A1 ở Sheet2 =>Hiện dòng 7 của sheet1

 

[star84]

Nhập giá trị 0 vào ô A1 ở Sheet2 => Ẩn dòng 7 của sheet1

Nhập giá trị <> 0 vào ô A1 ở Sheet2 =>Hiện dòng 7 của sheet1

Đúng rồi,ý em là thế, Bác giúp em với