ماسبب ظهور هذه الخلية

[عاشق الاسلام]

السلام عليكم اساتذتي الاعزاء ماسبب ظهور هذه الخلية كما هو في الملف المرفق.تحياتي

ملف.rar

تم تعديل ديسمبر 19, 2014 بواسطه عاشق الاسلام

[عبد الله بولنوار]

تم مسح الخطأ

ملف.rar

[عاشق الاسلام]

تم مسح الخطأ

الله يبارك فيك اخي عبدالله بولنوار

[KHMB]

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

تفضل الملف المرفق حسب ماتريد

1- اذا قمت وضعت تاريخ التسجيل فسيتم وضع تاريخ الاستحقاق بإضافة 5 ايام تلقائيا ويعطيك الايان المتبقية

2- إذا الخلية فارغة اوقمت بمسح البيانات فيها سيتم مسح البيانات في خلية تاريخ الاستحقاق وخلية الايام المتبقية

 

سبب ظهور هذه الخلية.rar

[عاشق الاسلام]

الاخوة الافاضل 

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

انا بحاجة الى تنسيق الصف كله وليست الخلية فقط 

ارجو الافادة 

مع تحياتي

 

 

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

تفضل الملف المرفق حسب ماتريد

1- اذا قمت وضعت تاريخ التسجيل فسيتم وضع تاريخ الاستحقاق بإضافة 5 ايام تلقائيا ويعطيك الايان المتبقية

2- إذا الخلية فارغة اوقمت بمسح البيانات فيها سيتم مسح البيانات في خلية تاريخ الاستحقاق وخلية الايام المتبقية

وعليكم السلام اخي الغالي الله يبارك في جهودك الطيبة ولكن هناك مشكلة في المعادلة اثناء العمل كما في المرفق

سبب ظهور هذه الخلية.rar

[KHMB]

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

اخي المشكلة عندك في عدد الايام المتبقية والمعموله من طرفكم بالمعادلة =IFERROR(DATEDIF($B$2;C2;"md");"")

[عاشق الاسلام]

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

اخي المشكلة عندك في عدد الايام المتبقية والمعموله من طرفكم بالمعادلة =IFERROR(DATEDIF($B$2;C2;"md");"")

السلام عليكم اخي الكريم لقد انحلت المشكلة وبجهودكم الطيبة وعندي طلب اخير انا محتاج توضيح مبسط حول كود الفيجوال لان حاولت ان اطبق الكود في غير عمود مثل العمود السابع ولم اتمكن.

[ياسر خليل أبو البراء]

أخي عاشق الإسلام فين الكود اللي بتسأل على توضيحه ..أنا لا أرى إلا معادلة ؟؟؟

ممكن ترفق ملف بالكود أو انسخ والصق الكود ها هنا

[ياسر خليل أبو البراء]

هل تقصد هذا الكود :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then
    For T = 2 To 6
        If Cells(T, 2) = "" Then Cells(T, 3) = "": Exit Sub
            If Cells(T, 2) > "" Then
                Cells(T, 3).Value = Cells(T, 2).Value + 30
            End If
    Next
End If

End Sub

[عاشق الاسلام]

 

أخي عاشق الإسلام فين الكود اللي بتسأل على توضيحه ..أنا لا أرى إلا معادلة ؟؟؟

ممكن ترفق ملف بالكود أو انسخ والصق الكود ها هنا

 

تفضل يا أخي وحبيبي أستاذ ياسر العزيزهذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Target.Column = 2 Then

For T = 2 To 6

If Cells(T, 2) = "" Then Cells(T, 3) = "": Exit Sub

If Cells(T, 2) > "" Then

Cells(T, 3).Value = Cells(T, 2).Value + 30

End If

Next

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[عاشق الاسلام]

 

هل تقصد هذا الكود :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then
    For T = 2 To 6
        If Cells(T, 2) = "" Then Cells(T, 3) = "": Exit Sub
            If Cells(T, 2) > "" Then
                Cells(T, 3).Value = Cells(T, 2).Value + 30
            End If
    Next
End If

End Sub

نعم استاذ ياسر هذا الكود ,وتقبل مني وافر الاحترام والتقدير