هانى حرحش

ممكن طريقة حذف الباسور من الملف ومن المطور

أين هو هذا الملف ؟؟؟؟

لم يحضر احد ... واحنا في الاجازه

UP UP UP

ولا احد يجيب ... للرفع

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

يبدو ان الجميع لديه ما يشغله ولا احد لديه الوقت للمساعده في هذا الطلب ... لا اعرف ان كان هذا لانشغالهم ... او أنه - وان كنت اشك في ذلك - لصعوبته ... وبالرغم من أني طلبت من بعض الاساتذه الكبار المساعده على الخاص ولكنهم اعتذروا بانشغالهم عن اجابة طلبي بإجابة طلبات اخرى وأنهم ليس لديهم وقت لمساعدتي ... ورغم انني كررت عليهم طلبي إلا انهم لم يعيروني اهتماما به .... اعتذر للجميع ... فقد مللوا من طلباتي واستداروا عني ... وارجو ان اكون لم اتجاوز عرف المنتدى في طلب العون والمساعده ممن لديهم الخبره .... واني لأحس بالاسى لأنني لم اجد من يساعدني في تلبية حاجتي بمنتدى عملاق يقوم على اساس نشر العلم ومساعدة الآخرين ممن ليس لديهم الخبرة الكافية ... فشكرا للجميع لربما يكون العيب في انا ...

في انتظار المساعده

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

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

جزاكم الله خيرا ولكن ما فائدة المربع الموجود بأعلى الصفحة

اخي ابو البراء مشكور على مجهودك .... واعتذر عن التأخير .... ولكن كان ذلك لظروف صحيه . بالنسبه لاختيار الطابعه عند الطباعه فقد استخدمت هذا الكود : Application.Dialogs(xlDialogPrinterSetup).Show وقمت بوضعه بعد هذه الاوامر : Sub CreateOneSheet() Dim SheetsArr, SH As Worksheet, WS As Worksheet Dim I As Long, LR As Long, Count As Long Dim strSheet As String Set WS = Sheets("اذون الصرف") strSheet = WS.Range("K7").Value Application.DisplayAlerts = False Application.ScreenUpdating = False واصبح يظهر الطابعات الموجوده والموصله مباشر او بالشبكه للاختيار منها فهل مكانه هنا مناسب ام يستحسن وضعه في مكان اخر ؟ ثانيا : اود استخدام هذا الامر لوضع اسماء الشيتات فى الخلايا التي تستخدمها خلية اختيار المصالح ولا اعرف اين يتم وضعه Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In Sheets Range("M" & ws.Index).Value = ws.Name Next ws Columns("M:M").NumberFormat = ";;;" LR = Sheets("Master").Range("m" & Rows.Count).End(xlUp).Row With Range("N2").Validation .Delete .Add xlValidateList, Formula1:="=M2:M" & LR End With End Sub وهل هذا الامر سليم ام يحتاج الى تعديل ؟ وهل يمكن استخدامه للتعديل على هذا السطر تلقائيا ؟ SheetsArr = Array("مصلحه 1", "مصلحه 2", "مصلحه 3") شكرا لصبركم ... وجعلكم الله عونا للجميع .

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

شكرا اخي واسف على الازعاج ساقوم بانهاء الملف واجرب واذا حدث معي شيء ساخبرك ... وجزاكم الله خيرا

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