تعديل على برنامجى

[سماح الهياتمى]

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

اريد ان يظهر تاريخ اليوم فى عمو د ( تاريخ السداد ) عند وجود كلمة ( سدد ) فى العمود ( حالة السداد ) 

أريد ان يظهر تاريخ اليوم الحالى لدفع العميل ولا يتغير بتاريخ اليوم التالي يبقي ثابتا واذا قمت بسداد شهر اخر في تاريخ كختلف يظهر تاريخ اليوم الاخر 

بمعنى ان العمل كان عليه قسطين وسدد يوم 12/8/2020   يظهر امامه هذا التارريخ ولا يتبدل عند اليوم التالي ويكون 13/8/2020 واذا سدد يوم 14/8/2020 مثلا القسط الثانى يظهر في نفس التاريخ 14/8/2020

حسابات.xlsb

[عبدالفتاح في بي اكسيل]

على حسب معطياتك  اعتقد  هذا  المطلوب  بالكود  لا يظهر التاريخ  الا في  حالة سداد قسط  معين  بناء على  تاريخ  اليوم  ولن  يتغير في  الايام  القادمة 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub
    If Target.Row > 6 Then
        If Target.Column = 5 Or Target.Column = 8 Or Target.Column = 11 Then
            If Target.Value = "سدد" Then
                Target.Offset(0, 1) = Date
                Else
                Target.Offset(0, 1) = ""
            End If
        End If
    End If

End Sub

 

حسابات (1).xlsb

[قنديل الصياد]

بعد اذن الاخوة الافاضل ... دا شرجح مبسط لبعض اسطر الكود

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub
    If Target.Row > 6 Then
    ' الرقم 6 هو رقم الصف الذى به سطر العنوان للجدول
        If Target.Column = 5 Or Target.Column = 8 Or Target.Column = 11 Then
        ' الارقم 5 / 8 / 11 هي ارقم الاعمدة التى به حالة السداد ليختار منها سد د او لم يسدد
            If Target.Value = "سدد" Then
                Target.Offset(0, 1) = Date
                Else
                Target.Offset(0, 1) = ""
            End If
        End If
    End If

End Sub

 

تم تعديل أغسطس 14, 2020 بواسطه قنديل الصياد

[أحمد يوسف]

سماح الهياتمى

فين الضغط على الإعــجـــاب على هذه الإجابة الممتازة طالما هى المطلوبة وكما نبهنا كثيراً ان هذا هو اقل ما يقدم لصاحب الفضل عليكى بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!💙