Hỏi Private Sub Worksheet_Calculate 2 điều kiện (1 người xem)

[vova2209]

Private Sub Worksheet_Calculate()
    Static oldval
    If Range("AZ1").Value <> oldval Then
        oldval = Range("AZ1")
        Call CoDanRowBB 'Neu ô AZ1 thay doi se goi code
    End If
End Sub

Chào anh chị GPE! em cần giúp đỡ ạ
- Em muốn thêm điều kiện nữa:
+nếu ô A1 giữ liệu YES thì gọi code Call CoDanRowBB
+ nếu ô A1 giữ liệu NO thì end sub

 

[befaint]

Private Sub Worksheet_Calculate()
    Static oldval
    If Range("AZ1").Value <> oldval Then
        oldval = Range("AZ1")
        Call CoDanRowBB 'Neu ô AZ1 thay doi se goi code
    End If
End Sub

Chào anh chị GPE! em cần giúp đỡ ạ
- Em muốn thêm điều kiện nữa:
+nếu ô A1 giữ liệu YES thì gọi code Call CoDanRowBB
+ nếu ô A1 giữ liệu NO thì end sub

Private Sub Worksheet_Calculate()
Static oldval
If Range("AZ1").Value <> oldval Then
If Range("A1").value ="YES" Then
oldval = Range("AZ1")
Call CoDanRowBB 'Neu ô AZ1 thay doi se goi code
End If
End If
End Sub

 

[vova2209]

Private Sub Worksheet_Calculate()
Static oldval
If Range("AZ1").Value <> oldval Then
If Range("A1").value ="YES" Then
oldval = Range("AZ1")
Call CoDanRowBB 'Neu ô AZ1 thay doi se goi code
End If
End If
End Sub

Được rồi ạ: nãy em để If Range("A1").text ="YES" Then nên ko dc. Cảm ơn a nhiều ạ