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

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

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




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





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

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



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

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

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

لرؤية الروابط والمرفقات عليك الرد على الموضوع

 

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





09-11-2017 12:41 صباحا
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 683
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 148
قوة السمعة : 2471
الاعجاب : 899
 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
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 1-7-1985
يتابعهم : 12
يتابعونه : 1
قوة السمعة : 195
الاعجاب : 55
 offline 
look/images/icons/i1.gif تفعيل كود ترحيل البيانات لكشف حساب عميل
اخي الحبيب جزاك الله خيرا فعلا كما تفضلت واوضحت عدلت في نطاق الاعمدة وتفعل الكود بنجاح وسااتابع الرابط الذي ارسلت لي

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




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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تموذج ترحيل وبحث وتعديل على البيانات مالك ماريه
60 749 adnan2018
ترحيل وفصل الناجحين والراسبين بالمعادلات أحمد يوسف
3 305 fady_dd
ترحيل الفواتير حسب اسم الشهر ali mohamed ali
9 343 عبدالقادر زيدان
ترحيل مرن وسريع وسهل ضبطه Yasser Elaraby
67 4675 ناصر سعيد
ترحيل من تكست بوكس الى ليست بوكس الى شيت معين Yasser Elaraby
8 650 khaledabz

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


 







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



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

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