حمادة عمر

السلام عليكم لاثراء الموضوع يمكن استخدام الكود التالي للاخراج والطباعة دون اخفاء للورقة رقم 3 او غيرها ويمكن اخفاء الاوراق من ( اخفاء اوراق التبويب ) بشكل عادي قم بوضع الكود التالي في حدث زر الاخراج Private Sub CommandButton6_Click() On Error Resume Next Cells.EntireRow.Hidden = False Sheets("Feuil3").PageSetup.PrintArea = "A1:I20" Sheets("Feuil3").PrintOut copies:=1 Cells.EntireRow.Hidden = False End Sub تقبلوا خالص تحياتي

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

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

وشاهد ايضا اخي الكريم الملف المرفق والكود الموجود به لدالة مغرفة للتفقيط ان شاء الله به ما تريد كود تفقيط وتحويل الارقام الي حروف .rar

وشاهد ايضا الملف المرفق وفورم البحث الموجود به ( ان شاء الله يفي بطلبك ) فهو علي ما اظن به ما تريد ملف بحث بفورم مرتب حسب التاريخ ممتاز+SORT.rar و شاهد أيضا اخي الكريم هذا الموضوع .... به فورم من الممكن ان يفي بطلبك والملف والموضوع للقدير الكبير الاستاذ / عبد الله باقشير .. اعاده الله الينا بكل خير وامان ... جزاه الله خيرا

السلام عليكم الاخ الكريم /أكرم جلال بارك الله فيك اليك الحل علي حسب فهمي لطلبك في الملف المرفق ولكن دائما في اي سؤال من الافضل اضافة ملف كمثال لتوضيح الطلب ارجو ان شاء الله يفي هذا الكود بطلبك اخي الكريم ويمكنك في الكود تغيير الطباعة مباشرة من تغيير السطر .PrintOut الي معاينة الطباعة أولاً ... الي السطر التالي .PrintPreview تقبل خالص تحياتي طباعة لآخر صف به بيانات.rar

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

في انتظار مشاركتك التالية اكيد طبعا لنكمل ( البداية )

السلام عليكم الاخ الفاضلة / سما محمد بارك الله فيكي استخدمي هذا الكود في حدث UserForm_MouseMove اي النتيجة بالتكستات الصغيرة ستظهر لكي بعد تحريك الماوس علي الفورم واليكي الكود والملف المرفق به الحل Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox30.Value = TextBox1.Value + TextBox2.Value + TextBox3.Value TextBox4.Value = Mid(TextBox30, 1, 1) TextBox5.Value = Mid(TextBox30, 2, 1) TextBox7.Value = Mid(TextBox30, 3, 1) TextBox6.Value = Mid(TextBox30, 4, 1) TextBox9.Value = Mid(TextBox30, 5, 1) TextBox8.Value = Mid(TextBox30, 6, 1) TextBox11.Value = Mid(TextBox30, 7, 1) TextBox10.Value = Mid(TextBox30, 8, 1) TextBox12.Value = Mid(TextBox30, 9, 1) TextBox13.Value = Mid(TextBox30, 10, 1) TextBox15.Value = Mid(TextBox30, 11, 1) TextBox14.Value = Mid(TextBox30, 12, 1) TextBox17.Value = Mid(TextBox30, 13, 1) TextBox16.Value = Mid(TextBox30, 14, 1) TextBox19.Value = Mid(TextBox30, 15, 1) TextBox18.Value = Mid(TextBox30, 16, 1) TextBox20.Value = Mid(TextBox30, 17, 1) TextBox21.Value = Mid(TextBox30, 18, 1) TextBox23.Value = Mid(TextBox30, 19, 1) TextBox22.Value = Mid(TextBox30, 20, 1) TextBox24.Value = Mid(TextBox30, 21, 1) TextBox25.Value = Mid(TextBox30, 22, 1) TextBox27.Value = Mid(TextBox30, 23, 1) TextBox26.Value = Mid(TextBox30, 24, 1) TextBox29.Value = Mid(TextBox30, 25, 1) TextBox28.Value = Mid(TextBox30, 26, 1) End Sub فصل حروف الاسم لتكستات بوكس حرف حرف.rar

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

ملف جميل جدا واصل بلا فواصل أخي الحبيب وفي انتظار روائعك

بارك الله فيك جزاك الله خيرا

شاهد اخي الكريم المرفق التالي لا يمكنك الاضافة او التحديث الا عن طريق الفورم .. وبدون الفورم فالشيت المستخدم محمي لا يمكنك الاضافة به مباشرة او التعديل ارجو ان يفي بطلبك تقبل خالص تحياتي المصنف---.rar

السلام عليكم الاخ الكريم / ناصر المصري جزاك الله خيرا وحمد لله علي السلامة .. ونرجو ان يكون غيابك خير من الله وان تكون في احسن حال شاهد اخي الكريم المرفق التالي .. واخبرني بالنتائج .. فكرة بسيطة لتنفيذ طلبك الخاص بالطباعة تقبل خالص تحياتي طباعة صفحات محددة لاكثر من ورقة-new.rar

قم بنسخ المعادلة المرفقة من قبل ا / سليم ثم قم بعمل لصق لها في الخلية التي تريد ان تظهر فيها النتائج تقبل خالص تحياتي

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

جزاك الله خيرا

بارك الله فيك اخي الكريم / ايهاب تقبل خالص تحياتي

برجاء اخي الكريم ارفاق ملف للعمل عليه ويمكنك الاطلاع علي الرابط التالي عله يفيدك .. مبدئيا

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

جزاكم الله خيرا

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