عبد العزيز كمال قام بنشر يوليو 9, 2011 مشاركة قام بنشر يوليو 9, 2011 السلام عليكم ورحمة الله وبركاته لو سمحتم عايز من حضراتكم كود او طريقة او دالة تخليني لما اضغط علي الزر المسمي بترحيل ينقل التاريخ اعلي الشيت الحالي والقيم اللي اسفل الزر اللي هي بتاعة البضاعه والاجهزة و ... الي الاجمالي والقيم دي تنتقل لصف جديد في الشيت بتاع تجميع شهري ولما امسح البيانات دي واضيف غيرها واضغط ترحيل تنتقل البيانات الجديدة الي صف جديد في شيت التجميع الشهري . لمزيد من الفهم لسؤالي من فضلكم حملوا الملف . حمل الملف في المرفقات account.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 9, 2011 مشاركة قام بنشر يوليو 9, 2011 السلام عليكم ورحمة الله وبركاته لو سمحتم عايز من حضراتكم كود او طريقة او دالة تخليني لما اضغط علي الزر المسمي بترحيل ينقل التاريخ اعلي الشيت الحالي والقيم اللي اسفل الزر اللي هي بتاعة البضاعه والاجهزة و ... الي الاجمالي والقيم دي تنتقل لصف جديد في الشيت بتاع تجميع شهري ولما امسح البيانات دي واضيف غيرها واضغط ترحيل تنتقل البيانات الجديدة الي صف جديد في شيت التجميع الشهري . لمزيد من الفهم لسؤالي من فضلكم حملوا الملف . حمل الملف في المرفقات اخي الفاضل جرب المرفق account.rar رابط هذا التعليق شارك More sharing options...
معتصم محمد قام بنشر يوليو 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 بواسطه معتصم محمد رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر يوليو 9, 2011 مشاركة قام بنشر يوليو 9, 2011 السلام عليكم ===== اخى *** عبدالله المجرب كود سهل مرن بارك الله فيك اخى *** المعتصم كودك ايضا سيفى بالغرض بارك الله فيك (أذا كان هذا اول اكوادك فالويل لصانعى الاكواد منك فيما بعد) رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 9, 2011 مشاركة قام بنشر يوليو 9, 2011 السلام عليكم ===== اخى *** عبدالله المجرب كود سهل مرن بارك الله فيك اخى *** المعتصم كودك ايضا سيفى بالغرض بارك الله فيك (أذا كان هذا اول اكوادك فالويل لصانعى الاكواد منك فيما بعد) استاذ هشام اخجلتمونا شرف كبير مرورك وتعليقك فشكراً لك ابواحمد رابط هذا التعليق شارك More sharing options...
معتصم محمد قام بنشر يوليو 9, 2011 مشاركة قام بنشر يوليو 9, 2011 السلام عليكم ===== اخى *** عبدالله المجرب كود سهل مرن بارك الله فيك اخى *** المعتصم كودك ايضا سيفى بالغرض بارك الله فيك (أذا كان هذا اول اكوادك فالويل لصانعى الاكواد منك فيما بعد) الأستاذ : هشام شكراً على التشجيع فقط احب ان اشير بقصدي اول كود اكتبه اي اول مشكلة اجدها واقوم بكتابة كود لها من البداية ثم يعمل الكود بفضل الله لكنني احاول التعلم والإستفادة من امكانية استخدام الأكواد في الإكسل لانها تعطي مرونة اكبر للشيت رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يوليو 9, 2011 مشاركة قام بنشر يوليو 9, 2011 اكواد وحلول جميله بارك الله فيكم تحياتي رابط هذا التعليق شارك More sharing options...
عبد العزيز كمال قام بنشر يوليو 10, 2011 الكاتب مشاركة قام بنشر يوليو 10, 2011 والله انا شاكر ليكم جدا علي الكود اناححاول افهمها وابدا اتعلم الفي بي لانه يبدو جدا انه عصب الاكسل للي عايز بقي محترف وجزاكم الله خيرا جميعا ومبروك يا اخي علي اول كود ليك وعقبالي ومتشكر علي سرعة الاستجابة المعهودة منكم دايما رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر يوليو 10, 2011 مشاركة قام بنشر يوليو 10, 2011 السلام عليكم كود جميل وسهل وبسيط اخي ابو احمد تسلم افكارك :fff: :fff: رابط هذا التعليق شارك More sharing options...
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 السلام عليكم اخي معتصم هل من الممكن ان تضع الكود في مرفق حتي تعم الفائدة عمليا جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.