أبوبسمله

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

اكيد ممكن باستخدام دالة 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 بالتوفيق اخى الكريم

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

لك العذر يا اخى الفاضل و شكرا لك جزاك الله كل خير اخى رجب

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

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

العفو اخى الكريم الحمد لله اللذى بفضله تتم الصالحات بالتوفيق

اتفضل اخى ان شاء الله يكون ما تريد بالتوفيق مرتب.rar