البروفسير

عايز افكار اضافة وجهة نظر ..تساعدنى بها ... لو امكن .. عارف ومقدر انكم مشغولين .. بس برجاء الاهتمام .. السلام عليكم

عايز تعديل بسيط فى الكود .. لو امكن .. عارف ومقدر انكم مشغولين .. بس برجاء الاهتمام .. السلام عليكم

السلام عليكم لدي ملف به عدد من الصفحات اريد تجميع خلايا معينة من الصفحات الاولى ونسخها الى شيت ( مصروفات السيارات ) وجدت الكود ده فعلا كود رائع واعطانى تحكم عالي جدا فى نقل ما اريد من الصفحات . المشكلة فيه انه ينسخ البيانات من اي صفحة على نفس خلايا صفحة ( مصروفات السيارات ) كل مرة ... حاولت استخدم كود .End(xlUp).Row بدون فائدة ده الكود ومحتاج انه ينسخ البيانات بدون ما يضعها على بعض .. فهل من حل ؟؟ Sub aaa() On Error Resume Next Dim ws As Worksheet For Each ws In Worksheets If ws.Name <> "مصروفات السيارات" And ws.Name <> "كشف حساب" And ws.Name <> "تقارير" Then Iarr = Array("H14", "c18", "B21", "B22", "B23", "B24", "B25", "E21", "E22", "E23", "E24", "E25", "E27", "F21", "F22", "F22", "F23", "F24", "F25", "C30", "B31", "B32", "B33", "B34", "C32", "C33", "C34", "D32", "D33", "D34", "B35", "B35", "C35", "D35", "I37", "B61", "H31", "b27") Oarr = Array("f2", "c3", "B4", "B5", "B6", "B7", "B8", "c4", "c5", "c6", "c7", "c8", "c10", "d4", "d5", "d5", "d6", "d7", "d8", "C13", "B14", "B15", "B16", "B17", "C15", "C16", "C17", "D15", "D16", "D17", "B18", "B18", "C18", "D18", "I20", "B44", "H14", "b20") For i = LBound(Iarr) To UBound(Iarr) Sheets("مصروفات السيارات").Range(Oarr(i)).Value = Worksheets(ws.Name).Range(Iarr(i)) Next i End If Next ws End Sub

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

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

الموضوع ده غير محلول

اين مشرفين ومراقبين ومسئولين الموقع ؟؟؟ طيب

ضروري

للرفع - up

جرب هذا المرفق قد يعجبك هذا الحل ^_^ للاسف لا املك خبرة كافية بالاكواد .. حاولت اساعدك قدر الاستطاعة .. اتمنى ان اكون وفقت ..!! الاستعلام_prof.rar

السلام عليكم : طلب كود للبحث عن قيمة بداخل صفحات ملف اكسيل .. وان وجدت نتيجة ما , يتم نسخ الصف باكمله فى صفحة جديدة - النسخ سيكون فى صفحة تسمي " تقرير عميل" . * - لا يتم البحث فى صفحة " تقرير عميل " ولا صفحة اخري تسمي " التقارير" شكرا

شكرا اخي .. أبـوخليل جزاك الله خير .. انا بدأت اتعلم vba مخصوص لقلة الرد علي .. لعله خير يا اخي ^_^

رجاء الرد .. احتاج هذا العمل بشدة

السلام عليكم اريد تعديل على هذا الفورم http://www.officena.net/ib/index.php?showtopic=43749 ( اذا سمحتم لى ان اطلب التعديل ) ليبحث فى صفحات الملف من 1 الى 31 او كما احدد له يعنى من صفحة 5 الى صفحة 7 من صفحة 1 الى صفحة 15 او كما يطلب منى فى العمل . عن قيمة اكتبها له في مكان البحث وعند كتابتها . يقوم كما فى هذا الفورم بتصفية النتائج بمجرد كتابة اول حرف او حرفين من الكلمة المراد البحث عنها . وعند الضغط عليها يتم بدأ البحث عنها . ويقوم الكود ( بنسخ ) صفوف النتائج من الشيتات ووضعها فى الشيت المسمى بكشف حساب . والذي به زر استدعاء فورم البحث . ليظهر فى النهاية بهيئة كشف حساب . كما بالصورة التالية الخزينة.zip

السلام عليكم اريد تعديل على هذا الفورم ( اذا سمحتم لى ان اطلب التعديل ) ليبحث فى صفحات الملف من 1 الى 31 او كما احدد له يعنى من صفحة 5 الى صفحة 7 من صفحة 1 الى صفحة 15 او كما يطلب منى فى العمل . عن قيمة اكتبها له في مكان البحث وعند كتابتها . يقوم كما فى هذا الفورم بتصفية النتائج بمجرد كتابة اول حرف او حرفين من الكلمة المراد البحث عنها . وعند الضغط عليها يتم بدأ البحث عنها . ويقوم الكود ( بنسخ ) صفوف النتائج من الشيتات ووضعها فى الشيت المسمى بكشف حساب . والذي به زر استدعاء فورم البحث . ليظهر فى النهاية بهيئة كشف حساب . كما بالصورة التالية

السلام عليكم اريد تعديل على هذا الفورم ( اذا سمحتم لى ان اطلب التعديل ) ليبحث فى صفحات الملف من 1 الى 31 او كما احدد له يعنى من صفحة 5 الى صفحة 7 من صفحة 1 الى صفحة 15 او كما يطلب منى فى العمل . عن قيمة اكتبها له في مكان البحث وعند كتابتها . يقوم كما فى هذا الفورم بتصفية النتائج بمجرد كتابة اول حرف او حرفين من الكلمة المراد البحث عنها . وعند الضغط عليها يتم بدأ البحث عنها . ويقوم الكود ( بنسخ ) صفوف النتائج من الشيتات ووضعها فى الشيت المسمى بكشف حساب . والذي به زر استدعاء فورم البحث . ليظهر فى النهاية بهيئة كشف حساب . كما بالصورة التالية

السلام عليكم اريد تعديل على هذا الفورم ( اذا سمحتم لى ان اطلب التعديل ) ليبحث فى صفحات الملف من 1 الى 31 او كما احدد له يعنى من صفحة 5 الى صفحة 7 من صفحة 1 الى صفحة 15 او كما يطلب منى فى العمل . عن قيمة اكتبها له في مكان البحث وعند كتابتها . يقوم كما فى هذا الفورم بتصفية النتائج بمجرد كتابة اول حرف او حرفين من الكلمة المراد البحث عنها . وعند الضغط عليها يتم بدأ البحث عنها . ويقوم الكود ( بنسخ ) صفوف النتائج من الشيتات ووضعها فى الشيت المسمى بكشف حساب . والذي به زر استدعاء فورم البحث . ليظهر فى النهاية بهيئة كشف حساب . كما بالصورة التالية

يا جدعان

السلام عليكم اريد تعديل على هذا الفورم ( اذا سمحتم لى ان اطلب التعديل ) ليبحث فى صفحات الملف من 1 الى 31 او كما احدد له يعنى من صفحة 5 الى صفحة 7 من صفحة 1 الى صفحة 15 او كما يطلب منى فى العمل . عن قيمة اكتبها له في مكان البحث وعند كتابتها . يقوم كما فى هذا الفورم بتصفية النتائج بمجرد كتابة اول حرف او حرفين من الكلمة المراد البحث عنها . وعند الضغط عليها يتم بدأ البحث عنها . ويقوم الكود ( بنسخ ) صفوف النتائج من الشيتات ووضعها فى الشيت المسمى بكشف حساب . والذي به زر استدعاء فورم البحث . ليظهر فى النهاية بهيئة كشف حساب . كما بالصورة التالية

يا جدعااااااااااااااان ؟؟

طب لو فيه حاجة غلط قولوا لى

فورم تكست

فورم تكست

هناك صفحة اخيرة تسمي كشف حساب هى التى اريد ان اضع بها الزر .. ويتم فيها وضع النتائج للبحث . ابو احمد اريد ان ابحث عن عميل ما فيتم نسخ كل الصف الذى ظهر فيه اسمه فى الصفحة الاخيرة كما اوضحت لحضرتك فى الملف .. قد يطلب مني كشف حساب لعميل من يوم 5 الى يوم 12 فى الشهر او من يوم 1 الى 25 او طول الشهر وهكذا .. ارجوا ان تكون الفكرة وصلت

ابو احمد لم يعمل الكود بالشكل المطلوب ارفق لك ملف المراد البحث فيه .. لعله يساعدك فى الوصول لما اريد .. خزينة3_2.rar