نجوم المشاركات

السلام عليكم جرب هذا الكود Sub Ali() Set S = Sheets(1): Set Sh = Sheets(2) Application.ScreenUpdating = False For ii = 2 To Sh.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To S.Cells(Rows.Count, 2).End(xlUp).Row If Not IsEmpty(S.Cells(i, 2)) And _ Not IsEmpty(Sh.Cells(ii, 1)) Then If S.Cells(i, 2) = Sh.Cells(ii, 1) And Sh.Cells(ii, 2) = "baghdad" Then S.Cells(i, 3) = Sh.Cells(ii, 2) End If End If Next Next End Sub