احمد 505 قام بنشر يناير 30, 2017 مشاركة قام بنشر يناير 30, 2017 السلام علكم ورحمة الله وبركاته اساتذتي الكرام ارجوا مساعدتي في عمل كود يجمع عمودين والناتج يظهر تلقائي بالعمود الثالث شرح للمرفق التاريخ بدخل يدويا للعمود BY وتحدد المدة يدويا فب العمود BZ والنتيجة تظهر تلقائيا بفعل الكود في العمود CA وفي حال عدم ادخال أي معلومات بالعمودين BY + BZ فيكون العمود CA فارغ ملاحظة هامة: في حال عمل الكود من احد عمالقة هذا المنتدى المميز سوف اضيفه على اكواد موجودة عندي مسبقا مربوطة بزر تحديث (يعني مش حفتحله موديول جديد) سوف اضيفه فقط اشكرم جميعا. كود جمع عمودين.rar رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر يناير 30, 2017 مشاركة قام بنشر يناير 30, 2017 (معدل) السلام عليكم ورحمة الله انسخ هذا الكود والصقة فى محرر الاكواد Sub CalcDate() For R = 3 To Range("BY" & Rows.Count).End(xlUp).Row If Cells(R, "BY") <> "" And Cells(R, "BZ") <> "" Then Cells(R, "CA") = Cells(R, "BY").Value + Cells(R, "BZ").Value End If Next End Sub ثم اذهب الى الكود الذى ترغب فى ان يعمل بعده هذا الكود وتكتب هذه التعليمة فى نهاية الكود Call CalcDate تم تعديل يناير 30, 2017 بواسطه زيزو العجوز 1 رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر يناير 30, 2017 مشاركة قام بنشر يناير 30, 2017 مشكور اخي الغالي ا زيزو تفضل اخى الكريم احمد If IsNumeric(Range("BY" & x).Value2) Then If Range("BY" & x) <> "" Or Range("BY" & x) <> "" Then Range("CA" & x) = Range("BY" & x).Value + Range("BZ" & x).Value Else Range("CA" & x) = "" End If Else Range("CA" & x) = "" End If 'ضع الكود قبل كلمة next Next ضع هذا الكود كما هو مذكور قبل كلمة next 1 رابط هذا التعليق شارك More sharing options...
احمد 505 قام بنشر يناير 30, 2017 الكاتب مشاركة قام بنشر يناير 30, 2017 اخب الكريم زيزو اشكرك على ردك الرائع والسريع الاستاذ ياسر اشكرك على الكود الجميل هذا فعلا قام الكود بعمله كما اريد نفعك الله بعلمك وزادك منه ما شاء الله تبارك الله رابط هذا التعليق شارك 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.