محمد الزريعي قام بنشر فبراير 2, 2016 مشاركة قام بنشر فبراير 2, 2016 "محمد" = SNem LR = .Range("a" & Rows.Count).End(xlUp).Row + 1(x = Application.WorksheetFunction.CountIf(Shet.Range("b4:b" & LR ), SNem If x >= 1 ThenM = x.adress endif في الكود السابق / الخطاء هو للون الاحمر .. وهو المطلوب من الكود هو يبحث في الرنج b4:b عن أسم ( محمد ) إذا كانت موجودة يعطيني رقم الصف الذي يوجد به ( محمد) رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 2, 2016 مشاركة قام بنشر فبراير 2, 2016 جرب هذا الملف يمكنك تعديل الكودللحصول على رقم الصف find_name.rar 1 رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر فبراير 2, 2016 مشاركة قام بنشر فبراير 2, 2016 بارك الله فيك أخى سليم وجزاك خيرا و اثراء للموضوع أخى محمد أضف مجموعة أسماء فى النطاق الذى حددته وجرب الكود التالى : 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 1 رابط هذا التعليق شارك More sharing options...
محمد الزريعي قام بنشر فبراير 3, 2016 الكاتب مشاركة قام بنشر فبراير 3, 2016 مشكورين وما قصرتم معي .. الف الف شكر لكم جميعاً اساتذتي الكرام ،، الله يجعها في ميزان حسناتكم . 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.