"محمد" = SNem
LR = .Range("a" & Rows.Count).End(xlUp).Row + 1 (x = Application.WorksheetFunction.CountIf(Shet.Range("b4:b" & LR ), SNem
If x >= 1 Then M = x.adress
endif
في الكود السابق / الخطاء هو للون الاحمر .. وهو
المطلوب من الكود هو يبحث في الرنج b4:b عن أسم ( محمد ) إذا كانت موجودة يعطيني رقم الصف الذي يوجد به ( محمد)