احمد محمد على قام بنشر أكتوبر 28, 2011 قام بنشر أكتوبر 28, 2011 اخى الحسامى اريد ان تشرح لى جزء بسيط من الكود ظبط ظهور الصفحة فى التقرير بمعنى اذا اردت اخفاء عمود ماذا افعل ارجو الشرح للاهمية 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
الحسامي قام بنشر أكتوبر 28, 2011 قام بنشر أكتوبر 28, 2011 السلام عليكم اخي الكريم كود كبير بهذا الحجم لا يمكن تتبعه الا على ارض الواقع لذا يرجى ارفاق الملف للتعديل او لوضع كود اخر افضل من هذا الكود
احمد محمد على قام بنشر أكتوبر 28, 2011 الكاتب قام بنشر أكتوبر 28, 2011 ارسل لحضرتك الملف ارجو الاهتمام جزاك الله خيرا المطلوب تقرير باسم المعده بين تاريخين وكرر نفس الكود للسيارات وشكرا 1.rar
احمد محمد على قام بنشر أكتوبر 28, 2011 الكاتب قام بنشر أكتوبر 28, 2011 (معدل) يا جماعة الخير دعوة للمساعدة الكود من اعمال الحسامى اى حد ممكن يعدله ياريت يكون فيه طريقه نجلب البيانات من ورقتين الى ورقة واحده بمعنى ورقة واحد نسميها التقارير ونخفى ونظهر اعمدة التقرير 1.rar تم تعديل أكتوبر 28, 2011 بواسطه mido21
احمد محمد على قام بنشر أكتوبر 28, 2011 الكاتب قام بنشر أكتوبر 28, 2011 اخوانى اعتزر لكم على الالحاح لان الموضوع مهم
احمد حمور-ابوعبدالله قام بنشر أكتوبر 28, 2011 قام بنشر أكتوبر 28, 2011 اخي الكريم هذا بعض التعديل ربما يسهل عليك البحث 2.rar
الحسامي قام بنشر أكتوبر 29, 2011 قام بنشر أكتوبر 29, 2011 السلام عليكم ما شاء الله عليك اخي ابو عبدالله ............................ اخي الكريم .... كان يجب عليك تنظيم الملف للتسهيل علينا للعمل عليه التقرير وقاعدة البيانات ليست على نفس الشاكلة ولا تحتوي على بيانات ختى يتم العمل عليه والقوائم المنسدلة ليست جاهزة جميعها قم بتنظيم الملف حتى نتمكن من مساعدتك
احمد محمد على قام بنشر أكتوبر 29, 2011 الكاتب قام بنشر أكتوبر 29, 2011 (معدل) اخى الحسامى الملف المرف رؤس قاعدة البيانات هى نفس التقرير باسثناء عمود اسم المعدة لاننا نقول كشف حساب لحفار رقم 1 مثلا الملف المرفق ربما تم تنظيمة الوائم المنسدلة انا اعرف الصرف فيها اما الاكواد اصارحك لا الشكر موصول لابو عبدالله شكرا جزيلا لانك حاولت مساعدتى 1.rar تم تعديل أكتوبر 29, 2011 بواسطه mido21
احمد محمد على قام بنشر أكتوبر 30, 2011 الكاتب قام بنشر أكتوبر 30, 2011 اخى الحسامى وعدتنى بكود بحث وانا اعلم انك صادق فلا تنسانى
الحسامي قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 السلام عليكم تفضل اخي التعديل بكود جديد افضل حسب فهمي للموضوع 1920.rar
احمد محمد على قام بنشر أكتوبر 30, 2011 الكاتب قام بنشر أكتوبر 30, 2011 (معدل) اخى عماد الحسامى اشكرك اخى كثير الشكر جزاك الله خيرا على مد يد العون لنا اساله تعالى ان يجزل لك العطاء ويسترك فى الدنيا والاخرة ملحوظة الكود الجديد مختصر وسريع الفرق بينه والقديم هو ان الكود القديم يبحث باربع متغيرات واذا غاب متغير يعمل الكود الكود الحالى لابد من كتابة التاريخ الادنى والاعلى هل من الممكن معالجة هذا اذا غاب متغير يستكمل البحث تم تعديل أكتوبر 30, 2011 بواسطه mido21
saad abed قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 اخى عماد الحسامى الف الف مبروك يا استاذ عماد الترقية مستحقة ومتاخرة الكود ده جميل جدا صدق احمد حمور نفس الاوامر والاكواد احنا نكاد نقول عرفنها نجى ننفذ مش ذى الحسام ابدا تحياتى سعد عابد
الحسامي قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 السلام عليكم اخي الكريم هنا الملف وفيه التعديل المطلوب لاربعة متغيرات وفي حالة مسح اي متغير يتم تجاهله 1920.rar
الحسامي قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 اخى عماد الحسامى الف الف مبروك يا استاذ عماد الترقية مستحقة ومتاخرة الكود ده جميل جدا صدق احمد حمور نفس الاوامر والاكواد احنا نكاد نقول عرفنها نجى ننفذ مش ذى الحسام ابدا تحياتى سعد عابد صاحب القلب الدافئ والعزيز لدى قلبي " سعد عابد " مبارك عليك وعلينا هذه الترقية وهي تكليف لا تشريف وان شاء الرحمن سنكون عند حسن الظن اخوك عماد الحسامي
احمد محمد على قام بنشر أكتوبر 30, 2011 الكاتب قام بنشر أكتوبر 30, 2011 اخى الحسامى كلمة رائع كلمة بسيطة جزاك الله عنا خيرا اسال الله ان يكون عونا لك كما كنت عونا لنا اللهم امين شكرا لك وبارك الله فيك
احمد حمور-ابوعبدالله قام بنشر أكتوبر 31, 2011 قام بنشر أكتوبر 31, 2011 الله محيي النشمي ابن النشمي كفو والله وقدها
الحسامي قام بنشر أكتوبر 31, 2011 قام بنشر أكتوبر 31, 2011 الله محيي النشمي ابن النشمي كفو والله وقدها الله يحي اصلك ابو عبدالله والله انك في القلب دائما
الـعيدروس قام بنشر أكتوبر 31, 2011 قام بنشر أكتوبر 31, 2011 السلام عليكم استاذنا الحبيب عماد الحسامي الف تلريون مبروك ترقية مستحقة ومتأخرة برضه الى الامام وكودك مختصر وجميل فعلا ادام الله نشاطك وعلمك تقبل مروري
الفدائي قام بنشر ديسمبر 18, 2011 قام بنشر ديسمبر 18, 2011 (معدل) شرح ممتاز بارك الله فيكم تم تعديل ديسمبر 18, 2011 بواسطه Alfidai
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.