اذهب الي المحتوي
أوفيسنا

(تمت الاجابة)مطلوب شرح كود


الردود الموصى بها

اخى الحسامى

اريد ان تشرح لى جزء بسيط من الكود

ظبط ظهور الصفحة فى التقرير

بمعنى اذا اردت اخفاء عمود ماذا افعل

ارجو الشرح للاهمية


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("c3:c4,e3,e4")) Is Nothing Then

Application.ScreenUpdating = False

On Error Resume Next

If Target.Cells.Count > 1 Then Exit Sub

If Target Is emptey Then

sheet2.Range("b8:m5000,I8:I5000").ClearContents

r = 8

For i = 5 To Sheet1.Range("b10000").End(xlUp).Row + 1

Application.ScreenUpdating = False

If sheet2.Range("c3").Value = "" Then GoTo a

If sheet2.Range("c3").Value = Sheet1.Cells(i, "d") Then

a:

If sheet2.Range("c4").Value = "" Then GoTo a1

If sheet2.Range("c4").Value = Sheet1.Cells(i, "m") Then

a1:

If sheet2.Range("e4").Value = "" Then GoTo a2

If sheet2.Range("e4").Value >= Sheet1.Cells(i, "b") Then

a2:

If sheet2.Range("e3").Value = "" Then GoTo a3

If sheet2.Range("e3").Value <= Sheet1.Cells(i, "b") Then

a3:

sheet2.Cells(r, 2) = Sheet1.Cells(i, 2)

sheet2.Cells(r, 12) = Sheet1.Cells(i, 13)

For j = 4 To 11

sheet2.Cells(r, j) = Sheet1.Cells(i, j + 1)

Next j

r = r + 1

End If

End If

End If

End If

Next i

End If

End If

End Sub

اعلم ان التغيير فى هذا الجزء

a3:

sheet2.Cells(r, 2) = Sheet1.Cells(i, 2)

sheet2.Cells(r, 12) = Sheet1.Cells(i, 13)

For j = 4 To 11

sheet2.Cells(r, j) = Sheet1.Cells(i, j + 1)

Next j

r = r + 1

رابط هذا التعليق
شارك

السلام عليكم

اخي الكريم كود كبير بهذا الحجم لا يمكن تتبعه الا على ارض الواقع

لذا يرجى ارفاق الملف للتعديل او لوضع كود اخر افضل من هذا الكود

رابط هذا التعليق
شارك

يا جماعة الخير

دعوة للمساعدة الكود من اعمال الحسامى

اى حد ممكن يعدله

ياريت يكون فيه طريقه نجلب البيانات من ورقتين الى ورقة واحده

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

ونخفى ونظهر اعمدة التقرير

1.rar

تم تعديل بواسطه mido21
رابط هذا التعليق
شارك

السلام عليكم

ما شاء الله عليك اخي ابو عبدالله

............................

اخي الكريم ....

كان يجب عليك تنظيم الملف للتسهيل علينا للعمل عليه

التقرير وقاعدة البيانات ليست على نفس الشاكلة

ولا تحتوي على بيانات ختى يتم العمل عليه

والقوائم المنسدلة ليست جاهزة جميعها

قم بتنظيم الملف حتى نتمكن من مساعدتك

رابط هذا التعليق
شارك

اخى الحسامى

الملف المرف رؤس قاعدة البيانات هى نفس التقرير باسثناء

عمود اسم المعدة لاننا نقول كشف حساب لحفار رقم 1 مثلا

الملف المرفق ربما تم تنظيمة الوائم المنسدلة انا اعرف الصرف فيها

اما الاكواد اصارحك لا

الشكر موصول لابو عبدالله شكرا جزيلا لانك حاولت مساعدتى

1.rar

تم تعديل بواسطه mido21
رابط هذا التعليق
شارك

السلام عليكم

تفضل اخي التعديل بكود جديد افضل حسب فهمي للموضوع

1920.rar

رابط هذا التعليق
شارك

اخى عماد الحسامى

اشكرك اخى كثير الشكر

جزاك الله خيرا على مد يد العون لنا

اساله تعالى ان يجزل لك العطاء ويسترك فى الدنيا والاخرة

ملحوظة

الكود الجديد مختصر وسريع الفرق بينه والقديم هو ان

الكود القديم يبحث باربع متغيرات واذا غاب متغير يعمل الكود

الكود الحالى لابد من كتابة التاريخ الادنى والاعلى

هل من الممكن معالجة هذا اذا غاب متغير يستكمل البحث

تم تعديل بواسطه mido21
رابط هذا التعليق
شارك

اخى عماد الحسامى

الف الف مبروك يا استاذ عماد الترقية مستحقة ومتاخرة

الكود ده جميل جدا

صدق احمد حمور نفس الاوامر والاكواد احنا نكاد نقول عرفنها نجى ننفذ مش ذى الحسام ابدا

تحياتى

سعد عابد

رابط هذا التعليق
شارك

السلام عليكم

اخي الكريم هنا الملف وفيه التعديل المطلوب لاربعة متغيرات وفي حالة مسح اي متغير يتم تجاهله

1920.rar

رابط هذا التعليق
شارك

اخى عماد الحسامى

الف الف مبروك يا استاذ عماد الترقية مستحقة ومتاخرة

الكود ده جميل جدا

صدق احمد حمور نفس الاوامر والاكواد احنا نكاد نقول عرفنها نجى ننفذ مش ذى الحسام ابدا

تحياتى

سعد عابد

صاحب القلب الدافئ والعزيز لدى قلبي " سعد عابد "

مبارك عليك وعلينا هذه الترقية وهي تكليف لا تشريف

وان شاء الرحمن سنكون عند حسن الظن

اخوك عماد الحسامي

رابط هذا التعليق
شارك

الله محيي النشمي ابن النشمي

كفو والله وقدها

الله يحي اصلك ابو عبدالله والله انك في القلب دائما

رابط هذا التعليق
شارك

السلام عليكم

استاذنا الحبيب عماد الحسامي الف تلريون مبروك ترقية مستحقة

ومتأخرة برضه الى الامام

وكودك مختصر وجميل فعلا ادام الله نشاطك وعلمك

تقبل مروري

رابط هذا التعليق
شارك

  • 1 month later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information