اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





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

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



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





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

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

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

 

أثارت هذه المشاركة إعجاب: karwan،





09-11-2017 12:41 صباحا
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 571
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 113
قوة السمعة : 1817
الاعجاب : 660
 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


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

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

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

أثارت هذه المشاركة إعجاب: YasserKhalil، Abo Sohaib، Yasser Elaraby، karwan،


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

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


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

أثارت هذه المشاركة إعجاب: elskary2010،




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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
وضع اشارة بانه تم صرف الراتب مع ترحيل بيانته الى شيت تم الصرف حارثة ابو زيد1
1 34 حارثة ابو زيد1
ترحيل من ملف الاول (الشيت الثاني) الى ملف ثاني ( الشيت الاول ) محمد النيل
7 134 محمد الدسوقى
المطلوب ترحيل الطلاب العشرة الضعفاء من قائمة الدرجات الى شيت الطلاب الضعفاء alyasryaamir
2 98 Eslam Abdullah
ترحيل الى الشيت الثاني بدون تكرار محمد النيل
7 137 محمد الدسوقى
ترحيل مرن وسريع وسهل ضبطه Yasser Elaraby
59 3071 Yasser Elaraby

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


 







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



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

أعلن هنا
أعلن هنا
أعلن هنا