كتابة معادلة

[Akram Galal]

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

اريد كود يقوم بالتالي:

عند افتراض ان الخلية E1 مكتوب بها المعادلة التالية

=B1+C1

اريد عند كتابة أي شيء في العمود A يقوم بنسخ المعادلة الموجودة في الخلية E1

ولصقها في الخلية المقابلة في العمود E

وشكرأ .

 

[أبو حنــــين]

السلام عليكم

جرب هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column = 1 Then
        If IsEmpty(.Value) Then
        .Offset(0, 4) = ""
    Exit Sub
    Else
    .Offset(0, 4).Formula = "=B" & .Offset(0, 1).Row & "+C" & .Offset(0, 2).Row
            End If
        End If
    End With
End Sub

[Akram Galal]

بارك الله فيك

كود عظيم

ولكنني اريد أن يقوم بنسخ المعادلة ولصق خاص في العمود E

وجزاك الله خيراً .

تم تعديل فبراير 3, 2014 بواسطه Akram Galal