logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





08-11-2017 08:24 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 08-11-2017
رقم العضوية : 1397
المشاركات : 141
الجنس :
تاريخ الميلاد : 1-7-1985
قوة السمعة : 273
الاعجاب : 0
احبابنا الافاضل
اعجبني كثيرا هذا الفيديو لشرح كود ترحيل البيانات لكشف حسلب العميل وعندما قمت بتفعيله لم يفعل على كل البيانات ولا ادري لماذا فانا مبتديء بال vba
هذا رابط الفيديو
https://www.youtube.com/watch?v=1on03E1fbMs&list=PLz1DwRLIdmyBvPR32qFJOivK5GMYf-VaX&index=1

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

https://app.box.com/s/f4e15e7w24lsn5fuoz90v4wm13gq14mm




look/images/icons/i1.gif تفعيل كود ترحيل البيانات لكشف حساب عميل
  09-11-2017 12:41 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
التطبيق منك جيد للشرح ولا خطأ به الا انك عند مسح البيانات تمسح الخلية التى بها معادة النتائج قللت نطاق المسح حتى العمود السابق لها وايضا اضفة سطر اول واخر الكود لتسريع العملة شوية
والكود بالنهاية
CODE
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


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

وأيضا بسبب كبر عدد العملاء لديك اتبع الشرح التالى ليفيدك في تقليل الاسماء وهو مهم جدا جدا لاستاذنا ياسر خليل ابو البراء
لتقليل النتائج في القوائم المنسدلة
http://techno7asry.com/forum/t155

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



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

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

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




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




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب مساعدة في ترحيل غيابات التلاميذ ayoub2007
1 132 ayoub2007
طلب تعديل في ترحيل بيانات بشروط خاصة في الترحيل بكار للأبد
1 97 بكار للأبد
محتاج كودترحيل saad mohamed
0 149 saad mohamed
تموذج ترحيل وبحث وتعديل على البيانات مالك ماريه
147 12693 sharawee707
ترحيل بيانات من خلايا مختلفه من ملفات الى ملف واحد مع كتابة الملاحظات التى تخص ترحيل البيانات Lotfy
7 287 YasserKhalil

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









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

الساعة الآن 09:00 AM