سلام خدمت اساتید
کد زیر رو مشکلش چیه؟ لطفادرستش کنید.کارم خیلی گیره
میخوام تو سلولی که مشخصه فیلتر و انجام بده.
سه تا شرط داره اگه اولی نشد دومی ، دومی نشد سومی. یکی از اونها بود کار فیلتر انجام بشه.
لطفا مشکلم و حل کنید.
متشکرم
کد زیر رو مشکلش چیه؟ لطفادرستش کنید.کارم خیلی گیره
میخوام تو سلولی که مشخصه فیلتر و انجام بده.
کد:
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
لطفا مشکلم و حل کنید.
متشکرم
کامنت