عبد العزيز كمال قام بنشر يوليو 9, 2011 قام بنشر يوليو 9, 2011 السلام عليكم ورحمة الله وبركاته لو سمحتم عايز من حضراتكم كود او طريقة او دالة تخليني لما اضغط علي الزر المسمي بترحيل ينقل التاريخ اعلي الشيت الحالي والقيم اللي اسفل الزر اللي هي بتاعة البضاعه والاجهزة و ... الي الاجمالي والقيم دي تنتقل لصف جديد في الشيت بتاع تجميع شهري ولما امسح البيانات دي واضيف غيرها واضغط ترحيل تنتقل البيانات الجديدة الي صف جديد في شيت التجميع الشهري . لمزيد من الفهم لسؤالي من فضلكم حملوا الملف . حمل الملف في المرفقات account.rar
عبدالله المجرب قام بنشر يوليو 9, 2011 قام بنشر يوليو 9, 2011 السلام عليكم ورحمة الله وبركاته لو سمحتم عايز من حضراتكم كود او طريقة او دالة تخليني لما اضغط علي الزر المسمي بترحيل ينقل التاريخ اعلي الشيت الحالي والقيم اللي اسفل الزر اللي هي بتاعة البضاعه والاجهزة و ... الي الاجمالي والقيم دي تنتقل لصف جديد في الشيت بتاع تجميع شهري ولما امسح البيانات دي واضيف غيرها واضغط ترحيل تنتقل البيانات الجديدة الي صف جديد في شيت التجميع الشهري . لمزيد من الفهم لسؤالي من فضلكم حملوا الملف . حمل الملف في المرفقات اخي الفاضل جرب المرفق account.rar
معتصم محمد قام بنشر يوليو 9, 2011 قام بنشر يوليو 9, 2011 (معدل) بعد إذن الأستاذ عبدالله قمت بكتابة الكود التالي (أول كود اقوم بكتابته :) ) Private Sub CommandButton1_Click() If Sheets("تجميع شهري").Range("a450").End(xlUp).Value = Sheets("بيانات يومية").Range("b1").Value Then Exit Sub Else Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(1, 0).Value = Sheets("بيانات يومية").Range("b1").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 1).Value = Sheets("بيانات يومية").Range("e2").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 2).Value = Sheets("بيانات يومية").Range("e3").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 3).Value = Sheets("بيانات يومية").Range("e4").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 4).Value = Sheets("بيانات يومية").Range("e5").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 5).Value = Sheets("بيانات يومية").Range("e6").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 6).Value = Sheets("بيانات يومية").Range("e7").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 7).Value = Sheets("بيانات يومية").Range("e8").Value End If Sheets("تجميع شهري").Activate End Sub تم تعديل يوليو 9, 2011 بواسطه معتصم محمد
هشام شلبى قام بنشر يوليو 9, 2011 قام بنشر يوليو 9, 2011 السلام عليكم ===== اخى *** عبدالله المجرب كود سهل مرن بارك الله فيك اخى *** المعتصم كودك ايضا سيفى بالغرض بارك الله فيك (أذا كان هذا اول اكوادك فالويل لصانعى الاكواد منك فيما بعد)
عبدالله المجرب قام بنشر يوليو 9, 2011 قام بنشر يوليو 9, 2011 السلام عليكم ===== اخى *** عبدالله المجرب كود سهل مرن بارك الله فيك اخى *** المعتصم كودك ايضا سيفى بالغرض بارك الله فيك (أذا كان هذا اول اكوادك فالويل لصانعى الاكواد منك فيما بعد) استاذ هشام اخجلتمونا شرف كبير مرورك وتعليقك فشكراً لك ابواحمد
معتصم محمد قام بنشر يوليو 9, 2011 قام بنشر يوليو 9, 2011 السلام عليكم ===== اخى *** عبدالله المجرب كود سهل مرن بارك الله فيك اخى *** المعتصم كودك ايضا سيفى بالغرض بارك الله فيك (أذا كان هذا اول اكوادك فالويل لصانعى الاكواد منك فيما بعد) الأستاذ : هشام شكراً على التشجيع فقط احب ان اشير بقصدي اول كود اكتبه اي اول مشكلة اجدها واقوم بكتابة كود لها من البداية ثم يعمل الكود بفضل الله لكنني احاول التعلم والإستفادة من امكانية استخدام الأكواد في الإكسل لانها تعطي مرونة اكبر للشيت
عبد العزيز كمال قام بنشر يوليو 10, 2011 الكاتب قام بنشر يوليو 10, 2011 والله انا شاكر ليكم جدا علي الكود اناححاول افهمها وابدا اتعلم الفي بي لانه يبدو جدا انه عصب الاكسل للي عايز بقي محترف وجزاكم الله خيرا جميعا ومبروك يا اخي علي اول كود ليك وعقبالي ومتشكر علي سرعة الاستجابة المعهودة منكم دايما
MAHMOUD ALI YOUSSEF قام بنشر يوليو 10, 2011 قام بنشر يوليو 10, 2011 السلام عليكم كود جميل وسهل وبسيط اخي ابو احمد تسلم افكارك :fff: :fff:
MAHMOUD ALI YOUSSEF قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 بعد إذن الأستاذ عبدالله قمت بكتابة الكود التالي (أول كود اقوم بكتابته :) ) Private Sub CommandButton1_Click() If Sheets("تجميع شهري").Range("a450").End(xlUp).Value = Sheets("بيانات يومية").Range("b1").Value Then Exit Sub Else Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(1, 0).Value = Sheets("بيانات يومية").Range("b1").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 1).Value = Sheets("بيانات يومية").Range("e2").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 2).Value = Sheets("بيانات يومية").Range("e3").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 3).Value = Sheets("بيانات يومية").Range("e4").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 4).Value = Sheets("بيانات يومية").Range("e5").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 5).Value = Sheets("بيانات يومية").Range("e6").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 6).Value = Sheets("بيانات يومية").Range("e7").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 7).Value = Sheets("بيانات يومية").Range("e8").Value End If Sheets("تجميع شهري").Activate End Sub السلام عليكم اخي معتصم هل من الممكن ان تضع الكود في مرفق حتي تعم الفائدة عمليا جزاك الله كل خير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.