السلام عليكم ورحمة الله وبركاته: الشكر موصول لجميع اساتذتنا القائمين على المنتدى الرائع والجميل وسؤالي هو كيفية التعديل على الكود من أجل جلب اعمدة محددة في نفس نطاق البحث والمقصد أن أتمكن من تبديل البيانات المعطاة يعني بدل من جلب اسم الأم يجلب لي الديانة مثلاً وبدلاً من عمود (الصف) الثاني يجلب لي النوع وهكذا
المقصد هذا السطر:
arr = wsData.Range("A5:e" & wsData.Cells(Rows.Count, 1).End(xlUp).Row).Value
فبدلاً من نطاقة كامل يتمثل من A5 : E أريد أن أجعله A - B - C- E بحيث أتمكن من تطبيقه على ملفات أخرى
وعليكم السلام أخي العزيز علي
أضف سطر واحد فقط من خلاله يمكنك التحكم في الأعمدة المطلوبة من المصفوفة
arr = wsData.Range("A5:E" & wsData.Cells(Rows.Count, 1).End(xlUp).Row).Value
arr = Application.Index(arr, Evaluate("ROW(1:" & UBound(arr, 1) & ")"), [{1,2,3,5}])
عرض الإجابة