[حل شده] اصلاح کد
سلام خدمت اساتید
کد زیر رو مشکلش چیه؟ لطفادرستش کنید.کارم خیلی گیره
میخوام تو سلولی که مشخصه فیلتر و انجام بده.
سه تا شرط داره اگه اولی نشد دومی ، دومی نشد سومی. یکی از اونها بود کار فیلتر انجام بشه.
لطفا مشکلم و حل کنید.
متشکرم
کد زیر رو مشکلش چیه؟ لطفادرستش کنید.کارم خیلی گیره
میخوام تو سلولی که مشخصه فیلتر و انجام بده.
کد:
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
On Error Resume Next
ActiveSheet.ShowAllData
If ActiveSheet.Cells(1, 13) = "TRUE" Then
Selection.AutoFilter Field:=8, Criteria1:="TRUE"
ElseIf ActiveSheet.Range("M1") = "FALSE" Then
Selection.AutoFilter Field:=8, Criteria1:="FALSE"
ElseIf ActiveSheet.Range("M1") = "3" Then
ActiveSheet.ShowAllData
End If
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub
لطفا مشکلم و حل کنید.
متشکرم