abouelhassan قام بنشر ديسمبر 15, 2011 مشاركة قام بنشر ديسمبر 15, 2011 (معدل) الاساتذة الافاضل احترامى وتقديرى ارجو التكرم بالاطلاع على المرفق به فورم به خانتين التاريخ وكلمة الاجمالى ما اريده اضافة كود للزر 1 بحيث يضيف الخانتين الى كل اوراق العمل مهما كان عددها فى اخر سطر فاضى اعتمادا على عمود A التاريخ فى العمودA والاجمالى فى العمود B بدأ من الصف 5 من الورقة 2 الى الورقة39 احترام وتقدير من اخيكم New Microsoft Excel Worksheet.rar تم تعديل ديسمبر 15, 2011 بواسطه abouelhssan رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر ديسمبر 15, 2011 الكاتب مشاركة قام بنشر ديسمبر 15, 2011 الاساتذة نفس الفورم السابق بعد اضافة زر لتشغيله برجاء المساعدة فى الكود رجاء احترامى ترحيل.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر ديسمبر 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 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر ديسمبر 16, 2011 الكاتب مشاركة قام بنشر ديسمبر 16, 2011 (معدل) الله لايحرمنى منك ابدا استاذنا وحبيبى والله عبدالله المجرب ( ابواحمد) بارك الله لك وبك وفى ال بيتك اجمعين امين امين امين الله يعزك :signthankspin: تم تعديل ديسمبر 16, 2011 بواسطه abouelhssan رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر ديسمبر 16, 2011 الكاتب مشاركة قام بنشر ديسمبر 16, 2011 (معدل) استاذنا بعد اذنك اريد اضافة شرط الله يخليك اذا كان اخر سطر الخلية B بها كلمة الاجمالى ينتقل الى الصفحة التالية ولا ينفذ الكود الابشرط ان يكون اخر سطر ليس به كلمة الاجمالى فى الخليةB يعنى ما يكونش سطرين متتالين بهما كلمة الاجمالى احترام من كل قلبى تم تعديل ديسمبر 16, 2011 بواسطه abouelhssan رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر ديسمبر 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 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر ديسمبر 16, 2011 الكاتب مشاركة قام بنشر ديسمبر 16, 2011 استاذنا شكر وتقدير وفائق الاحترام لم يتم العمل استاذنا ويضيف الاسطر متتالية بها الاجمالى سامحنى احتاج هذا الكود احترامى رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 16, 2011 مشاركة قام بنشر ديسمبر 16, 2011 السلام عليكم بعد اذن استاذنا الحبيب عبدالله المجرب جرب المرفق ترحيل_ali.rar رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر ديسمبر 16, 2011 الكاتب مشاركة قام بنشر ديسمبر 16, 2011 استاذ ابو نصار استاذ عبدالله المجرب ابو احمد اخوتى فى الله الله لايحرمنى منكم اعزكم الله تم العمل اخى ابو نصار الله يكرمك امين ولاحرمناك ابداً ادام الله كرمك علينا استاذ عبدالله المجرب حبيبى بارك الله لنا فيك أمين احترامى الشديد لعمالقة المنتدى اخيكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان