السلام عليكم
اخي الفاضل
Sub qwe()
Dim WB1 As Workbook, WB2 As Workbook, SH1 As Worksheet, SH2 As Worksheet
Dim C, Q, R
Set WB1 = Workbooks(ThisWorkbook.Name)
Set WB2 = Workbooks(WB1.Sheets(1).Range("C3").Text)
Set SH1 = WB1.Sheets(1)
Set SH2 = WB2.Sheets(1)
er = SH1.UsedRange.Rows.Count
Q = SH2.Range("a2").Value
For R = 5 To er
If SH1.Cells(R, 1) = Q Then
For C = 1 To 5
SH2.Cells(2, C) = SH1.Cells(R, C)
Next C
Exit For
End If
Next R
End Sub
اضغط نقل البيانات