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





مساعدة في تعديل الكود

السلام عليكم اهل الخبرة وبيت الخبرة بعد تنفيذ الكود كنت اريد توسيع النطاق البحث في الشيت لا يعمل معي عندي توسيع النطا ..



24-09-2017 04:33 مساء
رمضان بكري
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 131
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 3
يتابعهم : 4
يتابعونه : 2
قوة السمعة : 111
الاعجاب : 43
 offline 
السلام عليكم اهل الخبرة وبيت الخبرة 
بعد تنفيذ الكود  كنت اريد توسيع النطاق البحث في الشيت  لا يعمل معي عندي توسيع النطاق 
Sub TimoSah()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

Dim Cell, Cell2, Cell3, Cell4 As Range
Dim X, Y, Z As Integer
For X = 4 To 6
Sheet2.Range("H" & X, "K" & X).Value = ""
Sheet2.Range("M" & X).Value = ""
Sheet2.Range("P" & X).Value = ""
Sheet2.Range("S" & X).Value = ""
Sheet2.Range("V" & X).Value = ""
Sheet2.Range("X" & X, "AA" & X).Value = ""
Sheet2.Range("AC" & X).Value = ""
Sheet2.Range("AE" & X).Value = ""
Sheet2.Range("AG" & X).Value = ""
Sheet2.Range("AI" & X).Value = ""
For Z = 6 To 33
For Y = 3 To 28
Rrs = Sheet1.Range("m" & Z).Row - 5
Rrt = Sheet3.Range("m" & Y).Row - 2
For Each Cell In Sheet1.Range("L" & Z).Cells
If Cell.Value = Sheet2.Range("B" & X).Value Then
For Each Cell2 In Sheet1.Range("n" & Z).Cells
Select Case Cell2.Value
Case Is = Sheet2.Range("F2").Value
Sheet2.Range("H" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("L2").Value
Sheet2.Range("M" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("O2").Value
Sheet2.Range("P" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("R2").Value
Sheet2.Range("S" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("U2").Value
Sheet2.Range("V" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("Y2").Value
Sheet2.Range("Z" & X).Value = Application.Index(Sheet1.Range("D6:D33"), Application.Large(Rrs, 1), 0)
Sheet2.Range("AA" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("AC2").Value
Sheet2.Range("AC" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("AE2").Value
Sheet2.Range("AE" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("AG2").Value
Sheet2.Range("AG" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("AI2").Value
Sheet2.Range("AI" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
End Select
Next Cell2
End If
Next Cell
For Each Cell3 In Sheet3.Range("L" & Y).Cells
If Cell3.Value = Sheet2.Range("B" & X).Value Then
Sheet2.Range("X" & X).FormulaR1C1 = _
        "=LOOKUP(2,1/('ÝÑÚ ÇáÌíÒÉ'!R3C12:R28C12='ÊÞÑíÑ ÕíÇäÉ'!RC[-22]),('ÝÑÚ ÇáÌíÒÉ'!R3C4:R28C4))"
For Each Cell4 In Sheet3.Range("n" & Y).Cells
Select Case Cell4.Value
Case Is = Sheet2.Range("F2").Value
Sheet2.Range("I" & X).Value = Application.Index(Sheet3.Range("m3:m28"), Application.Large(Rrt, 1), 0)
Sheet2.Range("J" & X).Value = Application.Index(Sheet3.Range("D3:D28"), Application.Large(Rrt, 1), 0)
Sheet2.Range("K" & X).Value = Application.Max((Sheet2.Range("H" & X).Value), (Sheet2.Range("I" & X).Value)) + 12000
Case Is = Sheet2.Range("Y2").Value
Sheet2.Range("Y" & X).Value = Application.Index(Sheet3.Range("m3:m28"), Application.Large(Rrt, 1), 0)
End Select
Next Cell4
End If
Next Cell3
Next Y
Next Z
Next X

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

 
سبب التعديل : ضبط الكود





24-09-2017 07:44 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif مساعدة في تعديل الكود
وعليكم السلام
الموضوع غير مقبول شكلاً وموضوعاً وغير مطابق للمواصفات العالمية
العنوان غير معبر
الأكواد المدرجة في الموضوع غير موضوعة داخل أقواس الكود ولذا لا تظهر بشكل منضبط
لا يوجد ملف مرفق
لا يوجد تفاصيل كافية عن المشكلة
لا يوجد نتائج متوقعة
 ................
لا تعليق

أثارت هذه المشاركة إعجاب: ahmed moh، الصقر،



25-09-2017 09:17 صباحا
مشاهدة مشاركة منفردة [2]
رمضان بكري
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 131
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 3
يتابعهم : 4
يتابعونه : 2
قوة السمعة : 111
الاعجاب : 43
 offline 
look/images/icons/i1.gif مساعدة في تعديل الكود
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريبصباح الخير 
استاذ ياسر ابو البراء
مغذرة انني لاارفق الشيت 
اريد هنا توسيع النطاق الموجود بالكود الي اخر صف به بيانات في قاعدة البيانات 
حتي يستخرج معي تقرير صيانة 
 
 
  تحويل-المعادلة-الي-كود -VBA تجربة .rar   تحميل rar مرات التحميل :(2)
الحجم :(511.84) KB





25-09-2017 11:27 صباحا
مشاهدة مشاركة منفردة [3]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 442
الجنس : ذكر
الدعوات : 8
يتابعهم : 2
يتابعونه : 201
قوة السمعة : 2999
الاعجاب : 682
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif مساعدة في تعديل الكود
ياعم رمضان والله احنا بنحاول نساعد الكل بس الاغلب مش بيحاول يساعدنا اننا نساعده
بعض النقاط الهامه تؤخذ في الحسبان
اللي قدامك دا مش شرط يكون بيعرف في مجالك فلازم توضح المسألة بصيغة الاكسيل الخلية كذا العمود كذا الناتج بيبقى كذا بالطريقة كذا توضيح عشان نفهم
عنصريين اساسيين مثال وتوضيح المطلوب
المثال يكون مثال مش شرط الملف كله محتاجين حاجات عينات كدا من الملف نقدر نركز عليها
توضيح المطلوب كالاتي لا إطالة مملة ولا اختصار مخل 
وكما يقال حسن السؤال شطر الإجابة
انا حاولت اشوف الملف بس موصلتش انا هعمل ايه وفي اي شيت واي نطاق!!!!
142

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


توقيع :Yasser Elaraby
663013020


25-09-2017 11:40 صباحا
مشاهدة مشاركة منفردة [4]
رمضان بكري
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 131
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 3
يتابعهم : 4
يتابعونه : 2
قوة السمعة : 111
الاعجاب : 43
 offline 
look/images/icons/i1.gif مساعدة في تعديل الكود
عليكم السلام استاذ ياسر ابو  اسيل 
اخي الافضل انا هنا في الشيت  يكود كود  يعمل هذا الكود  اخر صف في قاعدة البيانات  33
لكنني اريدة بعد توسيع قاعدة البيانات الي 6000 صف
يعطني النتيجة في التقرير  






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مطلوب تعديل الكود لاضافة حدود للخلايا التى بها بيانات عبدالقادر محمد مهدى
11 71 ناصر سعيد1
طلب كود تعديل من نوع خاص زياد عبد الجليل
8 43 محمود ابو الدهب
التعديل وتبديل تكست بوكس بعمل ازراراوبشن بوتن للاختيار وعمل كالوندر لاختيار تاريخ ميلاد malik
0 32 malik
تعديل على كود إستدعاء للاخ ياسر ابو البراء ahmed moh
22 239 YasserKhalil
تعديل التاريخ في حالة عدم وجود بيانات في الشيت Khairi
10 96 karwan

الكلمات الدلالية
الكود ، تعديل ، مساعدة ،


 







الساعة الآن 11:02 مساء