اذهب الي المحتوي
أوفيسنا

طلب كود جمع عمودن


الردود الموصى بها

السلام علكم ورحمة الله وبركاته

اساتذتي الكرام

ارجوا مساعدتي في عمل كود يجمع عمودين والناتج يظهر تلقائي بالعمود الثالث

شرح للمرفق

التاريخ بدخل يدويا للعمود BY

وتحدد المدة يدويا فب العمود BZ

والنتيجة تظهر تلقائيا بفعل الكود في العمود CA

وفي حال عدم  ادخال أي معلومات بالعمودين BY + BZ فيكون العمود CA فارغ

ملاحظة هامة:

في حال عمل الكود من احد عمالقة هذا المنتدى المميز

سوف اضيفه على اكواد موجودة عندي مسبقا مربوطة بزر تحديث

(يعني مش حفتحله موديول جديد) سوف اضيفه فقط

اشكرم جميعا.

كود جمع عمودين.rar

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله

انسخ هذا الكود والصقة فى محرر الاكواد

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

 

تم تعديل بواسطه زيزو العجوز
  • Like 1
رابط هذا التعليق
شارك

مشكور اخي الغالي ا زيزو  

تفضل اخى الكريم احمد 

            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
:wink2::wink2:

 

  • Like 1
رابط هذا التعليق
شارك

اخب الكريم زيزو

اشكرك على ردك الرائع  والسريع

 

الاستاذ ياسر

اشكرك على الكود الجميل هذا

فعلا قام الكود بعمله كما اريد :clapping:

نفعك الله بعلمك وزادك منه

ما شاء الله تبارك الله

:signthankspin:

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information