midoboha قام بنشر مايو 11, 2016 قام بنشر مايو 11, 2016 جربت هذا الكود ولكن يتم الترحيل في نفس الخانات دون التحرك لليسار x = Range("a6" : "a13").End(xltoleft).column Range("a6" & x + 1).Offset(0, 1).Value = TextBox2.Value Range("a7" & x + 1).Offset(0, 3).Value = TextBox3.Value Range("a8" & x + 1).Offset(0, 5).Value = TextBox6.Value
midoboha قام بنشر مايو 11, 2016 الكاتب قام بنشر مايو 11, 2016 ملحوظة ان الترحيل ناحية اليسار يبدا من الخلية a6 to a13
ياسر خليل أبو البراء قام بنشر مايو 12, 2016 قام بنشر مايو 12, 2016 جرب تغيير السطر الأول بهذا السطر x = Cells(6, Columns.Count).End(xlToLeft).Column
midoboha قام بنشر مايو 16, 2016 الكاتب قام بنشر مايو 16, 2016 شكرا على الاهتمام ولكن لم يعمل في المرفقات تجربتى لو تساعدنى بها أكون شاكر al.rar
ياسر خليل أبو البراء قام بنشر مايو 17, 2016 قام بنشر مايو 17, 2016 جرب الكود التالي وإن كنت لا أدري شكل النتائج المتوقعة Private Sub CommandButton1_Click() With ورقة1 .Range("d10") = TextBox9.Value .Range("f10") = TextBox10.Value .Range("d13") = TextBox1.Value .Range("d14") = TextBox2.Value .Range("d15") = TextBox3.Value .Range("d16") = TextBox4.Value .Range("d17") = TextBox5.Value .Range("d18") = TextBox6.Value .Range("d19") = TextBox7.Value .Range("d20") = TextBox8.Value .Activate .PrintOut From:=1, To:=1, Copies:=2, Collate:=True, IgnorePrintAreas:=False End With Sheets("يناير").Activate x = Cells(6, 10).End(xlToLeft).Column Cells(6, x + 1).Offset(0, 1).Value = TextBox1.Value Cells(7, x + 1).Offset(0, 3).Value = TextBox2.Value Cells(8, x + 1).Offset(0, 5).Value = TextBox3.Value Cells(9, x + 1).Offset(0, 7).Value = TextBox4.Value TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" TextBox5.Value = "" TextBox6.Value = "" TextBox7.Value = "" TextBox8.Value = "" TextBox9.Value = "" TextBox10.Value = "" End Sub إذا لم يؤدي الكود الغرض يرجى إرفاق الملف مرة أخرى وبه شكل النتائج المتوقعة ليسهل تقديم المساعدة من قبل إخوانك بالمنتدى تقبل تحياتي
midoboha قام بنشر مايو 17, 2016 الكاتب قام بنشر مايو 17, 2016 شكرا سيدى الكريم على مساعدتك وارجو حذف مشاراكاتى لهذا الموضوع المتكررة
ياسر خليل أبو البراء قام بنشر مايو 17, 2016 قام بنشر مايو 17, 2016 الحمد لله أن تم المطلوب على خير الموضوع الآخر المكرر تم حذفه .. تقبل تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.