أبوبسمله

يارب يطلع صح علشان الاستاذ ميزعقش ويقول عليا ....... ههههههههههههههه Sub Macro1() ' ' Macro1 ?C??? ' ???? C??EC?? CE?? ?C??I ??? I?? E?I?? E????CE C?C??C? EC?O?E ' ' ws = Application.PrintCommunication = False For Each ws In Worksheets With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" .BlackAndWhite = True End With Application.PrintCommunication = True Next ws End Sub فى انتظار تعليقك على الكود اخى ياسر

ليه الاحراج ده بس اخى ياسر سوف اجرب وضع الحلقه التكراريه واشوف بس ما تعتقدش انى هنجح فيها هقع بس اجرب الاول وخلينا نشوف باستخدام for و next بالتوفيق

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

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

طيب حدث البرامج دى او اعمل رستارت

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

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

ده رابط للاستذاده وجزاك الله خيرا اخى رجب

للرفع ولا استعجل عليكم ولكنها للتذكير فقط بالتوفيق اخوانى الافاضل

جزاكم الله كل خير اخوانى رجب وياسر وذاكم الله من فضله وكرمه وجعلكم سابقون دائما لما فيه خير للناس تمنياتى لكم وللجميع بالتوفيق

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

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

جزاك الله كل خير اخى ياسر على تعليمنا هذا الاختصار وبالتوفيق اخى خيثر وجزاك الله خيرا بالتوفيق اخوانى الافاضل

اكيد ممكن باستخدام دالة counta لحساب اخر خليه فارغه واكيد ممكن بطرق تانيه طول ما فى دماغ بتشرب قهوه ههههههههههههه بس العباقره حبايبنا بقا عليهم يظبطوها بالتوفيق اخوانى

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

جزاك الله خيرا على التذكير اخى ياسر نسيت تسجيل الماكرو دى فعلا وساقوم بتسجيل الماكرو وارفاقه للاخ السائل بارك الله فيك اتفضل الكود اخى الكريم وادعى لاخونا ياسر بتذكيرنا اياها واذا كان فى اختصار للكود ده هيدلونا عليه طبعا Sub Macro1() ' ' Macro1 ãÇßÑæ ' áÌÚá ÇáØÈÇÚå ÇÈíÖ æÇÓæÏ ÝÞØ Ïæä ÊÚÏíá ÊäÓíÞÇÊ ÇáÇáæÇä ÈÇáÔíÊ ' ' Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.708661417322835) .RightMargin = Application.InchesToPoints(0.708661417322835) .TopMargin = Application.InchesToPoints(0.748031496062992) .BottomMargin = Application.InchesToPoints(0.748031496062992) .HeaderMargin = Application.InchesToPoints(0.31496062992126) .FooterMargin = Application.InchesToPoints(0.31496062992126) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = True .Zoom = 100 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True End Sub بالتوفيق اخى الكريم

جزاك الله خيرا اخى ياسر بالتوفيق

انا معرفش اكواد بصراحه ولكن فى الاعدادات هتقدر تظبطها برضه ولعل احد الاخوه ياتيك بكود مرفق صوره بالتوفيق اخى

فكره جميله جزاك الله خيرا اخى ياسر بالتوفيق اخى الفاضل

جزاك الله خيرا استاذى العزيز مختار بالتوفيق

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

جزاك الله كل خيرا اخى ياسر على هذا الشرح الاكثر رائع بالتوفيق

عاوز كود ولا واقلك اعدادت الملف العاديه

جزاك الله كل خير أخى ياسر

أحلا مسا عليك أخى ياسر