abouelhassan قام بنشر ديسمبر 15, 2011 قام بنشر ديسمبر 15, 2011 (معدل) الاساتذة الافاضل احترامى وتقديرى ارجو التكرم بالاطلاع على المرفق به فورم به خانتين التاريخ وكلمة الاجمالى ما اريده اضافة كود للزر 1 بحيث يضيف الخانتين الى كل اوراق العمل مهما كان عددها فى اخر سطر فاضى اعتمادا على عمود A التاريخ فى العمودA والاجمالى فى العمود B بدأ من الصف 5 من الورقة 2 الى الورقة39 احترام وتقدير من اخيكم New Microsoft Excel Worksheet.rar تم تعديل ديسمبر 15, 2011 بواسطه abouelhssan
abouelhassan قام بنشر ديسمبر 15, 2011 الكاتب قام بنشر ديسمبر 15, 2011 الاساتذة نفس الفورم السابق بعد اضافة زر لتشغيله برجاء المساعدة فى الكود رجاء احترامى ترحيل.rar
عبدالله المجرب قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 السلام عليكم ضع هذا الكود في زر امر الترحيل Private Sub CommandButton1_Click() Dim I As Integer For I = 2 To Sheets.Count LR = Sheets(I).Range("A" & Rows.Count).End(xlUp).Row + 1 Sheets(I).Range("A" & LR).Value = TextBox1 Sheets(I).Range("A" & LR).Offset(0, 1).Value = TextBox2 Next Unload Me End Sub
abouelhassan قام بنشر ديسمبر 16, 2011 الكاتب قام بنشر ديسمبر 16, 2011 (معدل) الله لايحرمنى منك ابدا استاذنا وحبيبى والله عبدالله المجرب ( ابواحمد) بارك الله لك وبك وفى ال بيتك اجمعين امين امين امين الله يعزك :signthankspin: تم تعديل ديسمبر 16, 2011 بواسطه abouelhssan
abouelhassan قام بنشر ديسمبر 16, 2011 الكاتب قام بنشر ديسمبر 16, 2011 (معدل) استاذنا بعد اذنك اريد اضافة شرط الله يخليك اذا كان اخر سطر الخلية B بها كلمة الاجمالى ينتقل الى الصفحة التالية ولا ينفذ الكود الابشرط ان يكون اخر سطر ليس به كلمة الاجمالى فى الخليةB يعنى ما يكونش سطرين متتالين بهما كلمة الاجمالى احترام من كل قلبى تم تعديل ديسمبر 16, 2011 بواسطه abouelhssan
عبدالله المجرب قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 جرب هذا Private Sub CommandButton1_Click() Dim I As Integer For I = 2 To Sheets.Count LR = Sheets(I).Range("A" & Rows.Count).End(xlUp).Row + 1 If Sheets(I).Range("A" & LR).Offset(0, 1).Value = "الاجمالى" Then GoTo 0 Sheets(I).Range("A" & LR).Value = TextBox1 Sheets(I).Range("A" & LR).Offset(0, 1).Value = TextBox2 0 Next Unload Me End Sub
abouelhassan قام بنشر ديسمبر 16, 2011 الكاتب قام بنشر ديسمبر 16, 2011 استاذنا شكر وتقدير وفائق الاحترام لم يتم العمل استاذنا ويضيف الاسطر متتالية بها الاجمالى سامحنى احتاج هذا الكود احترامى
الـعيدروس قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 السلام عليكم بعد اذن استاذنا الحبيب عبدالله المجرب جرب المرفق ترحيل_ali.rar
abouelhassan قام بنشر ديسمبر 16, 2011 الكاتب قام بنشر ديسمبر 16, 2011 استاذ ابو نصار استاذ عبدالله المجرب ابو احمد اخوتى فى الله الله لايحرمنى منكم اعزكم الله تم العمل اخى ابو نصار الله يكرمك امين ولاحرمناك ابداً ادام الله كرمك علينا استاذ عبدالله المجرب حبيبى بارك الله لنا فيك أمين احترامى الشديد لعمالقة المنتدى اخيكم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.