مساعده في مؤثرات شهرية

Option Explicit



Sub Find_Ijasat()

Dim D As Worksheet, S As Worksheet

Dim Rod%, Ros%, I%, x%, k%

Dim Rg_FD As Range

Dim Rg_Code As Range





Set D = Sheets("Data"): Set S = Sheets("Salim")

Rod = D.Cells(Rows.Count, 2).End(3).Row

Ros = S.Cells(Rows.Count, 2).End(3).Row

D.Range("B3").Resize(Rod, 8).Interior.ColorIndex = xlNone

Set Rg_FD = D.Range("B3:B" & Rod)

If Ros < 6 Then Exit Sub

 S.Range("D6").Resize(Ros - 5, 31).ClearContents

For I = 6 To Ros

    Set Rg_Code = Rg_FD.Find(S.Cells(I, 2), Lookat:=1)

    If Rg_Code Is Nothing Then GoTo Find_Again

        x = Rg_Code.Row



         For k = 4 To 35

            If S.Cells(4, k) = D.Cells(x, 4) Then

               S.Cells(I, k) = D.Cells(x, 7)

               D.Range("B" & x).Resize(, 8).Interior.ColorIndex = 35

               Exit For

            End If

        Next k

Find_Again:

Next I

End Sub