شيت كنترول الصف الثانى التجارى

Sub All_Succeeds()

Dim ws As Worksheet, sh As Worksheet

Dim Arr As Variant, Temp As Variant

Dim SResult As String, SResult2 As String

Dim i As Long, j As Long, p As Long



SResult = "ناجحة"

Set ws = Sheets("شيت النجاح")

Set sh = Sheets(ws.Range("Y3").Text)



Application.ScreenUpdating = False



ws.Range("A10:BR" & ws.Range("C" & Rows.Count).End(xlUp).Row + 10).ClearContents

Arr = sh.Range("A10:BQ" & sh.Range("C" & Rows.Count).End(xlUp).Row + 9).Value

ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))

For i = 1 To UBound(Arr, 1)

If Arr(i, 69) Like "*" & SResult & "*" Then

p = p + 1

For j = 1 To UBound(Arr, 2)

Temp(p, j) = Arr(i, j)

Temp(p, 1) = p

Next

End If

Next

If p > 0 Then ws.Range("A10").Resize(p, UBound(Temp, 2)).Value = Temp

Call SubjectsNames

Application.ScreenUpdating = True

End Sub