احمد محمد على

اخى بن علية تحياتى لك ولكل اهل الجزائر الكرام جزاك الله خيرا والف الف شكر هذا هو المطلوب بالظبط الكلمات سهلة والعمل مهم لى جدا اشكرك اشكرك اخوك mido21

اخوانى واحبابى اريد الترحيل لاوراق متعدده الفكرة بالنسبه لى صعبة رؤس الاعدة بالنسبة للاوراق واحدة باستثناء السيارات فى عدد الساعات فى الورقة توجد اكثر من معده فما السبيل ساقبل اى تعديل مع الحفاظ على فكرة العمل ===== قمت بتعديل عناوين الاعمده لكى تكون موحده فى كل الاوراق * ملاحظة هناك اكثر من معده فى ورقة واحده العمل_2.rar

اخى هشام ارجو ان يتسع صدرك ولك الف شكر ودعوات خالصة فى ايام مباركه ان يجزيك الله عنى خيرا المطلوب الاول هو جمع مجال بناء على شرطين تاريخ اول وتاريخ ثانى(اسم المعده ثابت ولا ينظر اليه فى المعادلة) المطلوب الثانى هو جمع مجال بناء على اسم المعده (اختيار من القائمة) وشرطى التاريخ الاول والثانى اسم المعده متغير وقد جعلت لكل ورقة فورم حتى يكون التعامل مع ورقة واحده

استاذى هشام الشكر الجزيل لك على مساعدتك لى هذا هو المطلوب بالضبط جزاك الله خيرا استكملت الجدول بنفس الفكره والمعادله مساعده اخرى الجدول الاول اخفيته لو اردت الاطلاع عليه اريد مساعده فى الجدول الثانى كيف اجلب مجموع البيانات بناء على تاريخين واسم المعده من ورقة حتى لو غيرت فى الجداول اللى فى ورقة الحفارات فى حالة التغيير ارجو الاشارة الى التغيير العمل_2.rar

الاخوة الافاضل اريد فى ورقة الاجماليات كما شرحت فى الملف اجمالى كل البنود للحفارت من ورقة الحفارات بين تاريخين احددهم انا ولكم كل الشكر العمل.rar

اخى الحسامى كلمة رائع كلمة بسيطة جزاك الله عنا خيرا اسال الله ان يكون عونا لك كما كنت عونا لنا اللهم امين شكرا لك وبارك الله فيك

استاذى محمد طاهر عبدالله والحسامى لانزكيهم على الله هم من خيرة الناس

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

اخى الحسامى وعدتنى بكود بحث وانا اعلم انك صادق فلا تنسانى

اخى الحسامى الملف المرف رؤس قاعدة البيانات هى نفس التقرير باسثناء عمود اسم المعدة لاننا نقول كشف حساب لحفار رقم 1 مثلا الملف المرفق ربما تم تنظيمة الوائم المنسدلة انا اعرف الصرف فيها اما الاكواد اصارحك لا الشكر موصول لابو عبدالله شكرا جزيلا لانك حاولت مساعدتى 1.rar

اخوانى اعتزر لكم على الالحاح لان الموضوع مهم

يا جماعة الخير دعوة للمساعدة الكود من اعمال الحسامى اى حد ممكن يعدله ياريت يكون فيه طريقه نجلب البيانات من ورقتين الى ورقة واحده بمعنى ورقة واحد نسميها التقارير ونخفى ونظهر اعمدة التقرير 1.rar

ارسل لحضرتك الملف ارجو الاهتمام جزاك الله خيرا المطلوب تقرير باسم المعده بين تاريخين وكرر نفس الكود للسيارات وشكرا 1.rar

اخى الحسامى اريد ان تشرح لى جزء بسيط من الكود ظبط ظهور الصفحة فى التقرير بمعنى اذا اردت اخفاء عمود ماذا افعل ارجو الشرح للاهمية 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

جزاك الله خيرا

اخى شكرا لانك جمعت ثلاث دوالى فى ملف واحد جزاك الله خيرا

اخى سعد عابد جزاك الله خيرا عمل مفيد فعلا

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

اخى سعد جزاك الله خيرا فعلا اساتذة يستحقون السؤال عنهم اصلح الله لهم دنياهم واخراهم

أخوتى انا من هنا ولا يمكن أقبل اكون هناك انا من هنا واسمى احمد اومحمد او جلال انا من هنا بفكـــــــــر اسلامى اصيل احيا بلغتى لغة القديم لغة الحــديث لغة كتابى لغة نبى لغة اجداد متاصلين اخوكم ميدو (على فكره ده مش شعر ده احساس وارتجال) شكرا للاستاذ /محمد طاهر مدير الموقع على سرعة الاستجابة

استاذى دغيدى اشكرك على فراستك وشكرا لك ده ممكن يكون من هناك او لوهو من هنا يبقى بفكر وعقل هناك وربنا يسترها

اخى فى الله اكواد جميله جدا ومواضيعك الاربع حلوه فية معاك مواضيع تانية (يا ريت)يعنى اتمنى وياريت تكتب اسم الموقع

خى كيماس شكرا لك وجزاك الله خيرا

اخى وعالمنا خبور خير شكرا لك على كل ابداعاتك جزاك الله خيرا وعلى فكره الاعمال الخاصة بالمدرسين كترت جامد ممكن شوية للمحاسبين( بضحك معاك احنا خدنا حقنا ببرامج خبور للمحاسبة)

يا جماعة دائما اى شئ جميل لا يكتمل سنة الحياة لا حول ولا قوة الا بالله