استخراج رقم الصف للخلية التي تحتوي على قيمة

[محمد الزريعي]

"محمد" = 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 عن أسم ( محمد ) إذا كانت موجودة يعطيني  رقم الصف الذي يوجد به ( محمد)  

[سليم حاصبيا]

جرب هذا الملف

يمكنك تعديل  الكودللحصول على رقم الصف

find_name.rar

[مختار حسين محمود]

بارك الله فيك أخى سليم  وجزاك خيرا

و اثراء للموضوع  أخى محمد أضف مجموعة أسماء  فى النطاق الذى حددته

وجرب الكود التالى :

Option Explicit
Sub MokhtarRownumber()
 Dim SNem As String, LR As Long, X As Long
 SNem = "محمد"
 With ActiveSheet
         LR = .Cells(.Rows.Count, "B").End(xlUp).Row
         For X = 4 To LR
             If .Cells(X, "B").Value = SNem Then
                .Cells(X, "C").Value = Split(.Cells(X, "B").Address(1, 0), "$")(1)
             End If
         Next X
 End With

End Sub

 

[محمد الزريعي]

مشكورين  وما قصرتم معي .. الف الف شكر لكم جميعاً  اساتذتي الكرام ،، الله يجعها في ميزان حسناتكم .