حماده ممدوح البحيرى

حسنا اخى فليكن الطلب الاول كفاية

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

السلام عليكم جزاكم الله كل الخير على المجهود الرائع انا عمرى ما كنت احلم انى احاول اتعلم برمجه حتى بس معاكم بجد عملت شغل خاص بى ورغم انه بسيط جدا جدا بس سعيد انى بتعلم منكم ولكنى اعجز عن ما يلى 1 اريد كود مبسط للترحيل غير الكود الخاص بى 2 اريد كود طباعه الفورم غير شامل الازرار التيكستات الفارغه وان كانت التكستات مملوءة كاملة يطبعها ايضا 3 اريد زرار للطباعه بشكل افقى وزرار للطباعه بشكل راسى 4 اريد ان تكون الارقام داخل التكستات جيمعا باللغه العربية فقط عند الضغط لاظهار الفورم لا يمكننى التحرير داخل خلايا الاكسل الا اذا اغلقت الفورم اريد اتاحة التحرير حتى وان كان الفورم مفعلا نسخة_انترنت.xlsm

السلام عليكم اخوانى احتاج الى تبسيط كود الترحيل هذا حيث اننى لم استطع ذلك وشكرا لكم.. ثم ازاى ارفع ملف اكسل على المنتدى لانى لم استطع ذلك Private Sub CommandButton3_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("sheet2") iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = Me.costum.Value ws.Cells(iRow, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow, 4).Value = Me.c1.Value ws.Cells(iRow, 5).Value = Me.c11.Value ws.Cells(iRow, 6).Value = Me.t1.Value ws.Cells(iRow, 7).Value = Me.t11.Value ws.Cells(iRow, 8).Value = Me.t111.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 1, 1).Value = Me.costum.Value ws.Cells(iRow + 1, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 1, 4).Value = Me.c2.Value ws.Cells(iRow + 1, 5).Value = Me.c22.Value ws.Cells(iRow + 1, 6).Value = Me.T2.Value ws.Cells(iRow + 1, 7).Value = Me.T22.Value ws.Cells(iRow + 1, 8).Value = Me.T222.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 2, 1).Value = Me.costum.Value ws.Cells(iRow + 2, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 2, 4).Value = Me.C3.Value ws.Cells(iRow + 2, 5).Value = Me.c33.Value ws.Cells(iRow + 2, 6).Value = Me.t3.Value ws.Cells(iRow + 2, 7).Value = Me.t33.Value ws.Cells(iRow + 2, 8).Value = Me.t333.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 3, 1).Value = Me.costum.Value ws.Cells(iRow + 3, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 3, 4).Value = Me.c4.Value ws.Cells(iRow + 3, 5).Value = Me.c44.Value ws.Cells(iRow + 3, 6).Value = Me.t4.Value ws.Cells(iRow + 3, 7).Value = Me.t44.Value ws.Cells(iRow + 3, 8).Value = Me.t444.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 4, 1).Value = Me.costum.Value ws.Cells(iRow + 4, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 4, 4).Value = Me.c5.Value ws.Cells(iRow + 4, 5).Value = Me.c55.Value ws.Cells(iRow + 4, 6).Value = Me.t5.Value ws.Cells(iRow + 4, 7).Value = Me.t55.Value ws.Cells(iRow + 4, 8).Value = Me.t555.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 5, 1).Value = Me.costum.Value ws.Cells(iRow + 5, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 5, 4).Value = Me.c6.Value ws.Cells(iRow + 5, 5).Value = Me.c66.Value ws.Cells(iRow + 5, 6).Value = Me.t6.Value ws.Cells(iRow + 5, 7).Value = Me.t66.Value ws.Cells(iRow + 5, 8).Value = Me.t666.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 6, 1).Value = Me.costum.Value ws.Cells(iRow + 6, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 6, 4).Value = Me.c7.Value ws.Cells(iRow + 6, 5).Value = Me.c77.Value ws.Cells(iRow + 6, 6).Value = Me.t7.Value ws.Cells(iRow + 6, 7).Value = Me.t77.Value ws.Cells(iRow + 6, 8).Value = Me.t777.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 7, 1).Value = Me.costum.Value ws.Cells(iRow + 7, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 7, 4).Value = Me.c8.Value ws.Cells(iRow + 7, 5).Value = Me.c88.Value ws.Cells(iRow + 7, 6).Value = Me.t8.Value ws.Cells(iRow + 7, 7).Value = Me.t88.Value ws.Cells(iRow + 7, 8).Value = Me.t888.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 8, 1).Value = Me.costum.Value ws.Cells(iRow + 8, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 8, 4).Value = Me.c9.Value ws.Cells(iRow + 8, 5).Value = Me.c99.Value ws.Cells(iRow + 8, 6).Value = Me.t9.Value ws.Cells(iRow + 8, 7).Value = Me.t99.Value ws.Cells(iRow + 8, 8).Value = Me.t999.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 9, 1).Value = Me.costum.Value ws.Cells(iRow + 9, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 9, 4).Value = Me.ca.Value ws.Cells(iRow + 9, 5).Value = Me.caa.Value ws.Cells(iRow + 9, 6).Value = Me.ta.Value ws.Cells(iRow + 9, 7).Value = Me.taa.Value ws.Cells(iRow + 9, 8).Value = Me.taaa.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 10, 1).Value = Me.costum.Value ws.Cells(iRow + 10, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 10, 4).Value = Me.cb.Value ws.Cells(iRow + 10, 5).Value = Me.cbb.Value ws.Cells(iRow + 10, 6).Value = Me.tb.Value ws.Cells(iRow + 10, 7).Value = Me.tbb.Value ws.Cells(iRow + 10, 8).Value = Me.tbbb.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 11, 1).Value = Me.costum.Value ws.Cells(iRow + 11, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 11, 4).Value = Me.cc.Value ws.Cells(iRow + 11, 5).Value = Me.ccc.Value ws.Cells(iRow + 11, 6).Value = Me.tc.Value ws.Cells(iRow + 11, 7).Value = Me.tcc.Value ws.Cells(iRow + 11, 8).Value = Me.tccc.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 12, 1).Value = Me.costum.Value ws.Cells(iRow + 12, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 12, 4).Value = Me.cd.Value ws.Cells(iRow + 12, 5).Value = Me.cdd.Value ws.Cells(iRow + 12, 6).Value = Me.td.Value ws.Cells(iRow + 12, 7).Value = Me.tdd.Value ws.Cells(iRow + 12, 8).Value = Me.tddd.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 13, 1).Value = Me.costum.Value ws.Cells(iRow + 13, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 13, 4).Value = Me.ce.Value ws.Cells(iRow + 13, 5).Value = Me.cee.Value ws.Cells(iRow + 13, 6).Value = Me.te.Value ws.Cells(iRow + 13, 7).Value = Me.tee.Value ws.Cells(iRow + 13, 8).Value = Me.teee.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 14, 1).Value = Me.costum.Value ws.Cells(iRow + 14, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 14, 4).Value = Me.cf.Value ws.Cells(iRow + 14, 5).Value = Me.cff.Value ws.Cells(iRow + 14, 6).Value = Me.tf.Value ws.Cells(iRow + 14, 7).Value = Me.tff.Value ws.Cells(iRow + 14, 8).Value = Me.tfff.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 15, 1).Value = Me.costum.Value ws.Cells(iRow + 15, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 15, 4).Value = Me.cg.Value ws.Cells(iRow + 15, 5).Value = Me.cgg.Value ws.Cells(iRow + 15, 6).Value = Me.tg.Value ws.Cells(iRow + 15, 7).Value = Me.tgg.Value ws.Cells(iRow + 15, 8).Value = Me.tggg.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 16, 1).Value = Me.costum.Value ws.Cells(iRow + 16, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 16, 4).Value = Me.ch.Value ws.Cells(iRow + 16, 5).Value = Me.chh.Value ws.Cells(iRow + 16, 6).Value = Me.th.Value ws.Cells(iRow + 16, 7).Value = Me.thh.Value ws.Cells(iRow + 16, 8).Value = Me.thhh.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 17, 1).Value = Me.costum.Value ws.Cells(iRow + 17, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 17, 4).Value = Me.ci.Value ws.Cells(iRow + 17, 5).Value = Me.cii.Value ws.Cells(iRow + 17, 6).Value = Me.ti.Value ws.Cells(iRow + 17, 7).Value = Me.tii.Value ws.Cells(iRow + 17, 8).Value = Me.tiii.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 18, 1).Value = Me.costum.Value ws.Cells(iRow + 18, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 18, 4).Value = Me.cj.Value ws.Cells(iRow + 18, 5).Value = Me.cjj.Value ws.Cells(iRow + 18, 6).Value = Me.tj.Value ws.Cells(iRow + 18, 7).Value = Me.tjj.Value ws.Cells(iRow + 18, 8).Value = Me.tjjj.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 19, 1).Value = Me.costum.Value ws.Cells(iRow + 19, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 19, 4).Value = Me.ck.Value ws.Cells(iRow + 19, 5).Value = Me.ckk.Value ws.Cells(iRow + 19, 6).Value = Me.tk.Value ws.Cells(iRow + 19, 7).Value = Me.tkk.Value ws.Cells(iRow + 19, 8).Value = Me.tkkk.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 20, 1).Value = Me.costum.Value ws.Cells(iRow + 20, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 20, 4).Value = Me.cl.Value ws.Cells(iRow + 20, 5).Value = Me.cll.Value ws.Cells(iRow + 20, 6).Value = Me.tl.Value ws.Cells(iRow + 20, 7).Value = Me.tll.Value ws.Cells(iRow + 20, 8).Value = Me.tlll.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 21, 1).Value = Me.costum.Value ws.Cells(iRow + 21, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 21, 4).Value = Me.cm.Value ws.Cells(iRow + 21, 5).Value = Me.cmm.Value ws.Cells(iRow + 21, 6).Value = Me.tm.Value ws.Cells(iRow + 21, 7).Value = Me.tmm.Value ws.Cells(iRow + 21, 8).Value = Me.tmmm.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 22, 1).Value = Me.costum.Value ws.Cells(iRow + 22, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 22, 4).Value = Me.cn.Value ws.Cells(iRow + 22, 5).Value = Me.cnn.Value ws.Cells(iRow + 22, 6).Value = Me.tn.Value ws.Cells(iRow + 22, 7).Value = Me.tnn.Value ws.Cells(iRow + 22, 8).Value = Me.tnnn.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 23, 1).Value = Me.costum.Value ws.Cells(iRow + 23, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 23, 4).Value = Me.cq.Value ws.Cells(iRow + 23, 5).Value = Me.cqq.Value ws.Cells(iRow + 23, 6).Value = Me.tq.Value ws.Cells(iRow + 23, 7).Value = Me.tqq.Value ws.Cells(iRow + 23, 8).Value = Me.tqqq.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value ws.Cells(iRow + 24, 1).Value = Me.costum.Value ws.Cells(iRow + 24, 2).Value = Me.daate.Value ws.Cells(iRow, 3).Value = Me.offer.Value ws.Cells(iRow + 24, 4).Value = Me.cs.Value ws.Cells(iRow + 24, 5).Value = Me.css.Value ws.Cells(iRow + 24, 6).Value = Me.ts.Value ws.Cells(iRow + 24, 7).Value = Me.tss.Value ws.Cells(iRow + 24, 8).Value = Me.tsss.Value ws.Cells(iRow, 9).Value = Me.total1.Value ws.Cells(iRow, 10).Value = Me.kh.Value ws.Cells(iRow, 11).Value = Me.total2.Value ws.Cells(iRow, 12).Value = Me.mins.Value ws.Cells(iRow, 13).Value = Me.total3.Value Me.c1.SetFocus End Sub نسخة_من_قاعة_مسايا.xlsm