عند كتابة أرقام في خلايا العمود A فيظهر الرقم في خلية العمود B

[aspiran]

السلام عليكم زملائي زميلاتي معلمين و متعلمين و خبراء وزوار تحية طيببة وبعد ....أرجو المساعدة في كود بسيط بحيث إذا كتبت رقم في خلايا العمود A فيكتب العدد مباشرة في الصفحة 2 في خلايا العمود B بداية من الخلية B11 تحت الحولات المدفوعة  ولكم مني جزيل الشكر وخالص إمتناني جزاكم الله خيرا

كتابة في خلية صفحة بناء على خلية صفحة أخرى.xls

[سليم حاصبيا]

لا جاحة للكود هنا

تكفي هذه المعادلة في الخلية B11  من الشيت Sheet2 والسحب نزولاً

=IF(Sheet1!A1="","",Sheet1!A1)

 

[aspiran]

عندي ملف ملىء بالمعادلات حبيت نقص شوية كاين هاذ الكود لو تعدلولي أستاذ لك مني جزيل الشكر

معدلات لتطوير الصندوق.xls

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        With Sheets("Sheet2")
            .Range("b11").Offset(Target.Row - 1) = Target.Value
        End With
    End If
End Sub

تفضل

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

[aspiran]

محي الدين ابو البشر  شكرا أستاذي الفاضل على الرد وجزاك الله خيرا .... و لكن ممكن ترفقلي الكود في ملف أستاذ لأني لم أتمكن من تشغيله وجزاك الله خيرا.

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

كتابة في خلية صفحة بناء على خلية صفحة أخرى.xls