konafa4000

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

السلام عليكم تفضل المرفق به المطلوب حيث عند التغير يحذف المقابل لها konafa4000 2صف ثالث.rar

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

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

الله ينور رد فى الجون ،ابسم ابراهيم، وكود وفورم ممتازة جزاك الله خير konafa4000

ممتاز جدا yamz konafa4000

وهذا الكود يجعلك تحديد العدد المطلوب من الصفوف لادراجها وايضا يجعلك تحدد الحجم المطلوب للصف المدرج Konafa4000 لاداراج صفوف بحجم معين.rar

الله ينور

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

شكرا

اخى خبور الشكر متواصل لك ، ولكل اعضاء المنتدى لقد واجهتنى مشكلةبسيطة بالكود وقد قمت بحلها واحتاج رايك ومراجعتك فيها المشكلة ان الكود لا يرحل الا لغاية التقرير 9 اما التقارير من 10 الى ما فوق لا يرحلها وقد حددت المشكلة بالمتغير z الذى يحدد مسار الفولدر الذى به التقرير (حيث i سياخذ الخانه الاخيرة بعد R00 باسم الفولدر) وقمت بتعديله ليصبح بنفس اسلوب المتغير x (وبالتالى i سيأخذ 3 خانات يمينR باسم الفولدر) وبالتالى سيمكن الترحيل حتى التقرير 999 ان وجد وقمت بالتعديل على الملف Kh_sal وتركته كما هو فى Sal وارفقت تقارير اضافية 10 ، 11 ، 211 وقد نجحت فى ذلك ولكن احتاجك فى مراجعتها فربما اكون مخطئى فى شيئ لن ادركه الا فى حينه konafa4000 Salary.rar

الله يبارك لك يأستاذنا طارق konafa4000

اخى خبور شكرا لك جزاك الله خير اعتقدان ما بين الاقواس بعد كلمة Copy يمثل المدى او المجال الذي يلصق اليه وتنفذ عليه مباشرتا عملية اللصق فCopy هنا ادت غرضين النسخ اولا ثم اللصق الى المجال المحدد بين الاقواس هل أنا محق فى ذلك ؟ konafa 4000

السلام عليكم اخى خبور ،، ان خبرتى محدودة جدا فى مجال اكواد VBA ، ولكننى احاول ان اتعلم هذه اللغة وخباياها سطر مثل Option Explicit اجده فى المديول 1 ، والمديول 2 وانا لا اعرف مافائدته او ماذا يعنى عند انشاء الدالة Workbook_Exists لم افهم السطر Workbook_Exists = .Execute > 0 فى المديول 1 On Error Resume Next عموما جمل on error مش قادر افهمها سطر .Copy (wo.Worksheets(sn).Cells(k, "A")) يوجد النسخ لكن اين عملية اللصق (انا اعلم ان K هو المجال الذى سيتم النسخ اليه) الاسطر Set wo = Nothing On Error GoTo 0 ما معناها و فائدتها شكر على سعة صدرك konafa4000

اخى سعد فى اوفيس 2007 توجد خاصية حفظ الملفات بنوعية تتوافق مع الاصدارات السابقة من اوفيس فعند التسيف يكون الدفولت دائما ملف من نوع xlsx متوافق فقط على 2007 ولتعديل ذلك يكون كالتالى بعد Save as يفتح المربع الحوارى ومن الاسفل ستجد اسفل File name كلمة ٍSave as type اختار من امامها نوع ملف متوافق مع Office 97-2003 konafa4000

السلام عليكم تفضل اخى حل سريع بالمرفقات sum for a month.rar

اخى خبور السلام عليكم ورحمة الله وبركاته بالفعل لقد اذهلتنى بهذه التعديلات ، فالكود يؤدى الوظيفة بفاعلية من اى ملف يوضع به الكود لقد اذهلتنى بانشاء الدالة Workbook_Exists بالمديول 2 لاستخدامها للتحقق من مسار الملفات التقارير فى الكود الاصلى بمديول 1 فى الحقيقة التعديل الاول بمشاركتك رقم 10 كنت ادركه وافهمه تماما بجميع سطوره وسطور الكود التى كتبها الاستاذ طارق ولكن هذا الكود لااستطيع افهمه جيدا فهناك بعض السطور تعتبر جديده على (فخبرتى فى الاكواد تعتبر معدومة جدا امام خبراتكم الواسعه انت واخى الكريم طارق) لذا سأكون سعيدا وممنوناجدا اذا وضعت لى شرح مبسطا للكود بالمديول 1 وانشاء الدالة بالمديول 2 اخيك Konafa4000

السلام عليكم ممتاز جدا ابسمابراهيم ننتظر البقية konafa4000

فكرة ممتازة وموضع متميز كيماس

السلام عليكم أخى العزيز ،،، اعتقد أن اخواننافى المنتدى لن يبخلوا عليك بشيء طالما بالامكان هل يمكننك جعل الملف يتوافق مع Office 2003 ورفعه مرة أخرى (ربما استطيع مساعدتك) اخوك Konafa4000

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

الحالة كما هى بالمرفقات مع العلم بان "C:\Documents and Settings\mido\Desktop\Salary\R" & Format(i, "00#") & "\Report" & Format(i, "00#") & ".xls" وهو المسار الذى يوجد به الفولدارات R001,R002,R003 التى بها التقارير Report001,Report002,Report003 Salary.rar

وعليكم السلام ورحمة الله وبركاته اخ خبور خير شكرا على مشاركتك الكود يعمل بشكل تام اذا كانت كل ملفات التقرير مع ملف Sal المجمع داخل فولدر واحد ٍ ولكن ملفات التقارير موجودكل تقرير منهاداخل فولدر خاص به R001 , R002 , R003 (فكل فولدر يعبر عن تقرير لمجموعه بيانات خاصه به داخل هذا الفولدر) وكل هذه الفولدرات موجودة مع ملف الSal داخل مجلد رئيسى Salary وقد ارفقت الحالة بالضبط كماهى والمشكلة تكمن فى ان تنفيذ الكود يفتح التقرير الاول Report001 من داخل الفولدر الخاص به R001 وينقل البيانات الى ملف Sal ولكنه عندما يصل الى السطر Workbooks(a).Close يفشل فى اغلاق التقرير Report001 ويتوقف العمل عند هذا السطر اما اذا حذفت هذا السطر Workbooks(a).Close فان الكود يعمل بسلاسة ويفتح كل تقرير من الفولدر الخاص به وينقل بيناته ولكن فى المقابل تظل التقارير مفتوحة فان كان هناك مثلا 50 فولدر بـ 50 تقرير فان هذا يعنى فتح كل هذه الملفات وتركها مفتوحة مما يمثل حملا على الذاكرة Ram Konafa4000

السلام عليكم ،،، مرة اخرى اشكرك اخى طارق لاهتمامك لكن يعطينى المسار غير صحيح عند كتابة المسار ضمنه المجلد SS حيث ان المجلد SS لايحتوى الا على ملف SAL ونحن نحتاج مسار التقارير نفسهالذلك فحذفت المجلد SS واكتفيت بمسار التقارير وبالفعل يفتح التقرير الاول ويرحله ولكن المشكلة تكمن فى انه لايستطيع اغلاق التقرير الاول ثم الانتقال للتقرير التالى لترحيله ويتوقف الكود ويصبح الخطأ عند السطر Workbooks(a).Close قبل الانتقال للـ next i ولكن اذا حذفت السطر Workbooks(a).Close ينفذ الكود كاملا ولكن التقارير كلها تظل مفتوحة مما يسبب حملا على زائد على الذاكرة اخيرا شكرا على سعه صدرك Konafa4000

اخى طارق شكرا جزيلا لك وعلى مساعدتك الدائمة لى فهذه هى المرة الثانية التى اجدك دليلا داعما ومرشدا لى من اوائل المهتمين باسئلتى منذ انضمامى الفعلى لهذا المنتدى ،،، ابداعك هذا يفى معى بالغرض بدلا من زر الترحيل على كل تقرير، ولقد اضفت سطر اخر فى البداية لكى استطيع تحديد التقرير الاول الذى يتم الترحيل من بدايته ليعطى inputbox يحدد به التقرير الاول الذى يتم الترحيل ابتداء منه ثم يستكمل الكود بـ InputBox يحدد به التقرير الاخير وينفذ الكود واصبح الكود Sub collect_data() ' rep_f = InputBox("number of reports From ? ") rep_N = InputBox("Number of Reports to ?") For i = rep_f To rep_N a = "Report" & Format(i, "00#") & ".xls" Workbooks.Open Filename:=a Sheets(1).Select sign = [c1000].End(xlUp).Value Range([a3], [a3].End(xlToRight).End(xlDown)).Select rr = Selection.Rows.Count Selection.Copy Workbooks("Sal.xls").Activate Sheets(2).Select [A10000].End(xlUp).Offset(2, 0).Select ActiveSheet.Paste ActiveCell.Select For j = 1 To rr Selection.Offset(j - 1, 3) = sign Next j Workbooks(a).Close Next i End Sub واصبح الملف كما هو مرفق Sal.xls وهذا يتناسب معى حيث انى اريد ترحيل مجموعة تقارير بمجرد الانتهاء منها ثم مجموعة اخرى وهكذا... واحصل على نتائج بعد نهاية مجموعة تقارير ثم اضيف مجموعه اخرى وهكذا ، وليس كل التقارير مرة واحدة فى النهاية وهنا لى سؤال هذا كله يجب معه ان يكون الملف Sal مع باقى التقارير فى نفس المجلد ولكن ماذا اذا كان كل تقرير موجود داخل فولدر يحمل اسمه R001,R002,R003 وهذه الفولدارات موجوده داخل فولدر رئيسى به الملف Sal ايضا كما فى الملف المرفق باسم Salary ( لقد حاولت ان اكتب المسار امام المتغير A ولكن كان هناك دائما خطأ) ومرة اخرى شكرا جزيلا ،، ولك منى تحية انت واعضاء هذا المنتدى ،،،، اخوك Konafa4000 Sal.rar Salary.rar