farakhani per az bank va control

Set ra = Cells.Find(What:=Sheets("report").Range("p6"), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If ra Is Nothing Then
gotoreport
MsgBox ("Çíä x81ÑÓäáí ÏÑ áíÓÊ x81ÑÓäá æÌæÏ äÏÇÑÏ")
Sheets("report").Unprotect Password:=""
Range("perseneli").Select
Selection.ClearContents
Sheets("report").Protect Password:=""
Exit Sub
Else
gotoreport
Sheets("report").Select
If Range("fish_kasr").Value = "" Then
MsgBox "ÑæÔ x81ÑÏÇÎÊ ãÔÎÕ äíÓÊ"
Exit Sub
End If
If Range("p21").Value = 0 Then
MsgBox "ãÈáÛ x81ÑÏÇÎÊí ËÈÊ äÔÏå"
Exit Sub
End If
If Range("p30").Value > 0 Then
MsgBox "ãÈáÛ x81ÑÏÇÎÊí ÇÒ ãÈáÛ ÊÚííä ÔÏå ßãÊÑÇÓÊ"
Exit Sub
End If
If Range("fish_kasr").Value <> "ÝíÔ ÈÇäßí" Then
If Range("summablaghfisha").Value = "" Then
MsgBox "ÊÚÏÇ ÇÞÓÇØ ßÓÑ ÔÏå ÇÒ ÍÞæÞ ãÔÎÕ äíÓÊ"
Exit Sub
End If
End If