عادل حنفي

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

اخي الفاضل بكل بساطه عندما تربط ملف اكسل باخر اظن انك تستخدم علامة التساوي "=" و للعلم اذا كان ربط خليتين في نفس الشيت فليس هناك اي مشكله اما اذا كان الربط مع خليه في ملف اخر تظهر المشكله و المشكله باختصار انه يتولد عن ذلك معادله ولكن مع تصبيت الخليه التي اشر اليها في الملف الاخر لذا يجب عليك التعديل عليها قبل سحبها داخل الملف فسيكون شكل المعادله علي سبيل المثال كالتالي ='[العملاء.xls]تحليلي لحساب العملاء'!$D$68 لذا يتوجب عليك التخلص من علامتي ال $ ليكون شل المعادله كالتالي ='[العملاء.xls]تحليلي لحساب العملاء'!D68 بعد ذلك اسحب الخليه لتعمل باقي الخلايا ...... وياريت يكون هو ده قصدك و اكون قدرت اوصلك المعلومه....

اضافه بسيطه omaart1.rar omaart1.rar

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

اخي العزبز ارسل المطلوب في ملف مرفق

الاخ العزيز ابو تامر بعد تجربة الكود اكثر من مره وجد به شيئ بسيط اعذرني و سامحني اخي لاضافتي هذه Private Sub CommandButton_Click() On Error Resume Next MySheet = InputBox(ActiveSheet.Name, "Omar", ActiveSheet.Name) If MySheet = "" Then Exit Sub Sheets(MySheet).Select Sheets(MySheet).Copy Before:=ActiveSheet ActiveSheet.Name = "SendMe2 Mail" Application.ScreenUpdating = False With ActiveSheet.UsedRange .Value = .Value .Cells.Hyperlinks.Delete End With Application.ScreenUpdating = True End Sub

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

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

الاخ العزيز بالامس رايت طلبك ووجدت لك الحل و لكن للاسف كان الوقت متاخر و اليوم لمجرد وجدت فرصه احببت ان ارسل لك هذا فقد يساعدك ان شاء الله و لكن ارجو الرد لمعرفة ان هذا الحل قد افادك من عدمه For_you.rar

احسنت اخي سمير

الاخ العزيز forcast اتمني ان يكون قصدك قد وصلني وان كان كذلك فاليك الحل و ان لم يكن فارجو الرد Example.rar

اخي العزيز نزار سليمان شكرا علي مرورك الكريم

اخي العزيز عذرا ارجو ان افهم الذي تريد ان تحققه المعادله

اخي العزيز ياريت تشرح ماتريد ان تفعله لك المعادله لان المعادله بها خطأ و لكن الحل سيكون بفهم ماتريد ان تحققه المعادله

بسم الله الرحمن الرحيم الاخوه الاعزاء هذه اول مشاركه فعايه لي و اتمني ان اجيد فيها قدر استطاعتي لانني لالفعل احببت ان اكون مشاركا في هذا المنتدي الرائع و المشرف لكل فرد تحت لواء الوطن العربي لن ادعي ابد انني فلتة زماني في الاكسيل فما وجدته هنا بالفعل مستوي عالي و اسعدني علي الاقل ان اكون عضوا بهذا المنتدي و اشارك فيه بما عملت يداي حتي لو كان هذا الاشتراك بشكل بدائي او بمعني اصح علي قدر معرفتي فلن اخزل ابدا من ان اكون مبتدئ فانا بالفعل مبتدئ بالنسبه لعظام موجودون بهذا المنتدي و لن اذكر اسماء حتي لا انسي احدا فكل من مر علي هذا المنتدي عرفهم من اللحظه الاولي فلهم مني خالص الاحترام و التقدير اطلت عليكم انا اسف علي ذلك اليوم اشترك معكم بملف اعمل عليه في عملي و كان المروض ان امحي البيانات التي داخل الملف شهريا و اعمل منه 30 نسخه لتجهيزهم للشهر الجديد و من هنا بدأت فكره عمل شئ يكون سريع وامن قدر المستطاع و لن انكر ان ما كنت اريده قربه لذهني هذا المنتدي و جعلني افكر فيه بترتيب ذهني لاعمل هذا علي برنامج صغير و لمجرد ان نجحت في هذا احببتكم ان تشاركوني اولا الرقم السري 1234 شرح سريع لاذرار الفورم clear without save هذا الذر لمسح مدي معين في ال3 ورقات عمل و تجهيزهم فقط للعمل save as هذا الذر لحفظ الملف بعد المسح باسم معين تريده و في مكان معين تريده clear&save all work هذا الذر لمسح المدي المحدد سابقا و حفظ كامل الملف في مكان معين تم تحديده برمجيا و بمسار و اسماء محدده وسيكون في درايف ال D داخل فولدر اسمه Adel لذا يجب عليك وخصوصا قبل الضغط علي ذر clear&save all work ان تذهب لل D و تنشئ فولدر جديد و تسميه باسم Adelلعله عمل يعجبكم و منتظر ردوكم و آرائكم و دعواتكم My_work.rar

اخي العزيز عذرا فقد يكون في كلامي قلة خبره ازعجتك و لكن اعزرني فعندما جربت الكود وجدته يعمل عدد صفحات ل29 يوم فقط و عندما عملت تعديل يدوي للمديول وجعلته For i = 1 To 32 النتيجه كانت جيده ولكن المطلوب الاول من البرنامج ان يعمل عدد صفحات من 1:30 او من 1:31 حسب الشهر الفعلي دون تدخل مني اما المطلوب الثاني ان يراعي او يضع في الاعتبار شهر مثل شهر فبراير اذا كان لعام 2008 او 2007 بمعني اخر فقد يكون في سنه 28 يوم و في اخري 29 يوم و الا سيتم التعديل اليدوي كل فتره قد تكون فكرتي وصلت اليك و اسف علي الطلب القليل الخبره

اخي الحبيب و استاذنا ابو اسامه دائما رائع و مبدع و لكن ليكون للكود اكثر نفعا هل من الممكن ان يضيف بالضغطه الواحده عدد صفحات بعدد ايام الشهر عن سنه معينه

اخي العزيز لا نملك الا القول بالدعاء لوالدك ان يتغمده الله برحمته و ان لله و انا اليه لراجعون

الاح العزيز ابو اسامه كود رائع ما شاء الله عليك و لكن عذرا انه عند حذف اسم بعد اضافته لايظهر هذا التاثير علي باقي الصفحات و اشكرك

رائع ما شاء الله عيك

مرة اخري ملف اخر لنفس الامر ولكن يطريقة اخري قد يكون هذا وفقا لما طلبته testprint2.rar

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

اخي العزيز لعل في هذا المثال اجابه لطلبك _________________________.rar

اخي العزيز لعل في هذا المثال اجابه لطلبك _________________________.rar _________________________.rar