• اضافة إهداء
    (المعذره .. غير مسموح للزوار بإضافة الإهداءات, الرجاء التسجيل في المنتدى)


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :EM_ACC
عدد النتائج (15) نتيجة
11-01-2018 02:18 مساء
icon بحث فى الليست لاكثر من 10000 صف | الكاتب :EM_ACC |المنتدى: اكسيل اسئله واجابات
 والله مافاهم حاجه خالص
يا ابو العربى
 
11-01-2018 10:03 صباحا
icon بحث فى الليست لاكثر من 10000 صف | الكاتب :EM_ACC |المنتدى: اكسيل اسئله واجابات
 ف انتظار الرد
09-01-2018 10:49 صباحا
icon بحث فى الليست لاكثر من 10000 صف | الكاتب :EM_ACC |المنتدى: اكسيل اسئله واجابات
 اخى ابو البراء
منور المشاركه
طبعا المقصود
هو اخونا ابو العربى
ولكن لو نظرت الى المشاركه رقم20
والمشاركه رقم 22
ستجد الفرق بينهما
وبالنسبه للكود الذى اطلبه
فهذا الطلب لايعلمه الا ابو العربى
.............................................................
اما الان
فما ذالت هناك مشكله
ايضا تحدث عند فتح الملف
وهى االوقوف على السطر الخاص
بمنع اهتزاز الشاشه

ارجو  المشاركه فى كيفية التغلب عليها
مع التوضيح باننى اريد الابقاء على  تفعيل هذا لسطر
تقبلو تحياتى
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 
08-01-2018 05:34 مساء
icon بحث فى الليست لاكثر من 10000 صف | الكاتب :EM_ACC |المنتدى: اكسيل اسئله واجابات
 اخى ياسر
ف انتظار كود
الى وعدتنى به
تقبل تحياتى
08-01-2018 12:59 مساء
icon بحث فى الليست لاكثر من 10000 صفبحث فى الليست لاكثر من 10000 صف | الكاتب :EM_ACC |المنتدى: اكسيل اسئله واجابات
 اخى الحبيب ياسر
الحمد لله تم الوصول الى الخطأ
تم استبدال السطر الاتى
 lr = ws.Cells(Rows.Count, 1).End(xlUp).Row 

بالسطر التالى
 lr = ws.Cells(WS.Rows.Count, 1).End(xlUp).Row 

تقبل تحياتى
08-01-2018 10:58 صباحا
icon بحث فى الليست لاكثر من 10000 صف | الكاتب :EM_ACC |المنتدى: اكسيل اسئله واجابات
 اخى الفاضل
ياسر

معلش ياريس
هتتعب معايا شويه
الموضوع ده مهم جدا
ولازم نوصل ان شاء الله
للطريقه الصحيحه

انا اكتشفت ان الملف
بشتغل فعلا
ولكن ده فى حاله ان يكون فيه ملف اكسيل مفتوح 
قبل فتح الملف ده
.........................................................
جرب فتح الملف بدون ان تكون هناك
اى ملفات اكسيل مفتوحه
............................................................
فى انتظار الرد
تقبل تحياتى
08-01-2018 09:40 صباحا
icon بحث فى الليست لاكثر من 10000 صف | الكاتب :EM_ACC |المنتدى: اكسيل اسئله واجابات
 اخى ياسر
فين المشكله
07-01-2018 11:57 صباحا
icon بحث فى الليست لاكثر من 10000 صف | الكاتب :EM_ACC |المنتدى: اكسيل اسئله واجابات
 اخى ياسر
مشكورا على ارد والاهتمام
بارك الله فيك
اننى قمت بعمليه الاستبدال
كما تفضلت
ولكن مازال الخطأ
يقف عند نفس السطر
وارجو ارفاق ملف يعمل عندك بنجاح
للوقوف على الخطأ من نسخة الاوفيس
ام من كتابة الاكواد
ولى استفسار اخر
انا شايف ان المفروض
ان السطر الاخير معرف
و
هل بهذا الشكل يعتبر كما اتصور
ان اسم الشيت معرف ام لا
Public wb As Workbook
Public ws As Worksheet
Private Sub UserForm_Activate()
Set wb = ThisWorkbook
Set ws = wb.Worksheets("Sheet2")
MsgBox ws.Name
fill_com
End Sub

 مرفق الشيت الذى تم التعديل عليه
كما تفضلت
ارجو التجربه
والافاده
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
06-01-2018 07:52 مساء
icon بحث فى الليست لاكثر من 10000 صف | الكاتب :EM_ACC |المنتدى: اكسيل اسئله واجابات
 اخى ياسر
تم عمل اخفاء للملف
ولكن عند البحث ف التيكست تحدث المشكله
ارجو الافاده
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
04-01-2018 09:54 صباحا
icon إعادة ترتيب الأعمدة باستخدام المصفوفات | الكاتب :EM_ACC |المنتدى: اكسيل شروحات ودروس
 اخى وستاذى ياسر خليل 
بصراعه دائما ما نستمتع
بمواضيعك الشيقه
وشرحك المميز 
بارك الله فيك
تقبل تحياتى
02-01-2018 03:59 مساء
icon بحث فى الليست لاكثر من 10000 صف | الكاتب :EM_ACC |المنتدى: اكسيل اسئله واجابات
 مشكورا استاذى ياسر
والى اللقاء فى معلومه اخرى
تقبل تحياتى
02-01-2018 12:24 مساء
icon بحث فى الليست لاكثر من 10000 صف | الكاتب :EM_ACC |المنتدى: اكسيل اسئله واجابات
 أخى وساتاذى ياسر خليل
معلومه جمييله مشكورا عليها
انا بصراحه حاولت واستخدمت السطر ده
 If InStr(myArray(X, targtN), targt) Then 

ولكن لم انتبه الى تكراره وكان هذا هو الخطأ
تقبل تحياتى

الصفحة 1 من 2 < 1 2 > الأخيرة »





الساعة الآن 08:47 صباحا