أبو العاصم قام بنشر مايو 31, 2015 قام بنشر مايو 31, 2015 السلام عليكم ورحمة الله وبركاته أتوجه أولا بالشكر الجم للإخوة ا/ ياسر خليل ا/ بن عليه حاجى وجميع القائمين على هذا الصرح الكبير تبقى على إتمام ملف الخزينة والإيصالات كود لطباعة الإيصالات وهو أحد الكودين التاليين الكود الأول قمت بإرفاقه فى الملف المطلوب تعديله على الكود هو 1- دبلرة الكود بمعنى ان يقوم بعمل التسلسل مرتين مرة فردى فى T7 والاخرى زوجى فى T30 2- جعل معيار البدايه والنهاية فى خلايا شيت الاكسيل وليس محرر الأكواد 3- أن يفصل بين كل مرة تسلسل وأخرى بأمر SAVE ================================================ الكود الثانى هو من أعمال أحد المشاركين الأفاضل على منتدانا الغالى وهو كود للطباعة مكون من ثلاث أجزاء الأول طباعة الشاشة الحالية الثانى طباعة الكل الثالث طباعة الكل مع معاينة الطباعة المطلوب تعديله 1- ان يقوم الكود بعمليه جلب البيانات مرتين لان الايصال 1/2 صفحة 2- وضع معيار ( للبدايه وللنهاية للبيانات التى سيتم جلبها من الصفحة الأولى ) فى خلايا شيت الاكسيل لان الكود يطبع الكل CASH _ CYCLE _ RICIPT.rar PAYROLL AMENDED.rar
أبو العاصم قام بنشر يونيو 1, 2015 الكاتب قام بنشر يونيو 1, 2015 السلام عليكم ورحمة الله هل أوصلتكم المطلوب أم ما زال اللبس موجود الرجاء المساعدة لقد قمت بإنهاء ملف الخزينة وتبقى فيه هذه الجزئية
أبو العاصم قام بنشر يونيو 2, 2015 الكاتب قام بنشر يونيو 2, 2015 السلام عليكم ورحمة الله هل أوصلتكم المطلوب أم ما زال اللبس موجود الرجاء المساعدة لقد قمت بإنهاء ملف الخزينة وتبقى فيه هذه الجزئية
أبو العاصم قام بنشر يونيو 3, 2015 الكاتب قام بنشر يونيو 3, 2015 (معدل) السلام عليكم ورحمة الله نظرا لحاجتى الشديدة قمت بطرح التالى الكود المطلوب تعديله Sub Printing()] Dim I As Integer For I = 1158 To 1160 المطلوب تعديل الكود ليكون معيار البداية هو الخلية V7 ومعيار النهايه هو الخلية V8 Range("T7") = I If I <= 1160 Then هنا معيار النهايه سيحدد فى الكود V8 ActiveWorkbook.Save ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next I [End Sub فهل المطلوب قد وصل لكم تم تعديل يونيو 3, 2015 بواسطه أبو العاصم
أبو العاصم قام بنشر يونيو 3, 2015 الكاتب قام بنشر يونيو 3, 2015 Sub MAN() Dim I As Integer For I = Range("V7") To Range("V8") Range("T7") = I If I <= Range("V8") Then ActiveWorkbook.Save ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next I End Sub
أبو العاصم قام بنشر يونيو 3, 2015 الكاتب قام بنشر يونيو 3, 2015 الحمد لله وصلت للكود هل من تعديل ليقوم بطباعة الظاهر فقط فى الصفحة الأولى من الفلترة
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان