إدراج قيم في خلايا معينة

[لزهر مدلل]

السلام عليكم

أريد إدراج قيم في خلايا معينة آليا بمجرد إدخال قيمة في العمود A

 

الملف في المرفق

Suivi des Créances.xlsx

[Ali Mohamed Ali]

تفضل

 

Suivi des Créances1.xlsx

[لزهر مدلل]

أخي Ali Mohamed Ali هل يمكن أن يكون كود بدل معادلة يكون أفضل

[محي الدين ابو البشر]

تفضل

Suivi des Créances1.xlsm

[لزهر مدلل]

بارك االله فيك أخي الكريم محي الدين ابو البشر

هناك مشكلة صغيرة قمت بإستبدال العمود a ب e في الكود فوقع مشكل أرجوا حله

Suivi des Créances1.xlsm

تم تعديل نوفمبر 27, 2019 بواسطه لزهر مدلل

[محي الدين ابو البشر]

استبدل الكود بـ

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("e:e")) Is Nothing Then
            With Target
            On Error GoTo 1
             If Target <> "" Then
                .Offset(, -3) = "BFL"
                .Offset(, 2) = 0
                .Offset(, 3) = "398"
                End If
            End With
        End If
1 End Sub

أو

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("e:e")) Is Nothing Then
        With Target
            If Target.Count > 1 Then Exit Sub
            If Target <> "" Then
                .Offset(, -3) = "BFL": .Offset(, 2) = 0: .Offset(, 3) = "398"
            End If
        End With
    End If
End Sub

 

تم تعديل نوفمبر 27, 2019 بواسطه محي الدين ابو البشر

[لزهر مدلل]

بارك الله فيك أخي الكريم

[محي الدين ابو البشر]

الحمد لله أنه تم المطلوب

شكرا لكم