أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


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





تفعيل كود ترحيل البيانات لكشف حساب عميل

احبابنا الافاضل اعجبني كثيرا هذا الفيديو لشرح كود ترحيل البيانات لكشف حسلب العميل وعندما قمت بتفعيله لم يفعل على كل الب ..



08-11-2017 08:24 مساء
Abo Sohaib
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-11-2017
رقم العضوية : 1397
المشاركات : 141
الجنس : ذكر
تاريخ الميلاد : 1-7-1985
يتابعهم : 13
يتابعونه : 1
قوة السمعة : 273
 offline 

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

وهذا رابط الملف الذي حاولت تفعيل الكود به 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 

09-11-2017 12:41 صباحا
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 275
قوة السمعة : 4570
موقعي : زيارة موقعي
عدد الإجابات: 7
 offline 
look/images/icons/i1.gif تفعيل كود ترحيل البيانات لكشف حساب عميل
التطبيق منك جيد للشرح ولا خطأ به الا انك عند مسح البيانات تمسح الخلية التى بها معادة النتائج قللت نطاق المسح حتى العمود السابق لها وايضا اضفة سطر اول واخر الكود لتسريع العملة شوية 
والكود بالنهاية 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$P$3" Then
Range("n6:q100000").ClearContents
For i = 2 To 100000
X = WorksheetFunction.CountA(Range("n5:n100000"))
If Sheets(2).Cells(i, 8) = [P3].Value Then
Sheets(1).Cells(5, 14).Offset(1 + X, 0) = Sheets(2).Cells(i, 9)
Sheets(1).Cells(5, 15).Offset(1 + X, 0) = Sheets(2).Cells(i, 10)
Sheets(1).Cells(5, 16).Offset(1 + X, 0) = Sheets(2).Cells(i, 11)
End If
Next i
For i = 2 To 100000
X = WorksheetFunction.CountA(Range("n5:n100000"))
If Sheets(3).Cells(i, 8) = [P3].Value Then
Sheets(1).Cells(5, 14).Offset(1 + X, 0) = Sheets(3).Cells(i, 9)
Sheets(1).Cells(5, 15).Offset(1 + X, 0) = Sheets(3).Cells(i, 10)
Sheets(1).Cells(5, 17).Offset(1 + X, 0) = Sheets(3).Cells(i, 11)
End If
Next i
Range("n6:s100000").Sort key1:=Range("n6"), order1:=xlAscending, _
ordercustom:=1
End If
Application.ScreenUpdating = True

End Sub


يعمل جيدا ولا خطأ به

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

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

تحياتى وتقدير للجميع  محمود ابوالدهب

17-11-2017 04:09 مساء
مشاهدة مشاركة منفردة [2]
Abo Sohaib
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-11-2017
رقم العضوية : 1397
المشاركات : 141
الجنس : ذكر
تاريخ الميلاد : 1-7-1985
يتابعهم : 13
يتابعونه : 1
قوة السمعة : 273
 offline 
look/images/icons/i1.gif تفعيل كود ترحيل البيانات لكشف حساب عميل
اخي الحبيب جزاك الله خيرا فعلا كما تفضلت واوضحت عدلت في نطاق الاعمدة وتفعل الكود بنجاح وسااتابع الرابط الذي ارسلت لي

21-11-2017 11:40 صباحا
مشاهدة مشاركة منفردة [3]
karwan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-11-2017
رقم العضوية : 1785
المشاركات : 200
الجنس : ذكر
تاريخ الميلاد : 20-8-1989
يتابعهم : 7
يتابعونه : 7
قوة السمعة : 244
 offline 
look/images/icons/i1.gif تفعيل كود ترحيل البيانات لكشف حساب عميل
Thank you




الكلمات الدلالية
تفعيل ، ترحيل ، البيانات ، لكشف ، حساب ، عميل ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 05:10 مساء