المساعدة في تفعيل الكود

[الموسطي]

لدي ملف إكسل مرفق به صفحة فاتورة وشيت ، هناك بالنسبة للأصناف في الفاتورة فيها قائمة منسدلة مرتبطة بكود بالشيت ، وهذا الكود هو 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 4 Then
Sheet.[H1].Value = ActiveCell.Value
    End If
End Sub

عندما أظلل على Sheet.[H1].Value المفروض تكون النتيجة نفس بيانات الخلية النشطة في الفاتورة وهي الصنف لكن يظهر لي أن الخلية فارغة يقول لي الكود الخلية إمبتي فكيف يتم تفعيل الكود، ما المشكلة؟ أرجو المساعدة

_فاتورة أستاندوكس - نسخة.rar

[ابراهيم الحداد]

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

تعديل بسيط ليعمل الكود

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 4 Then Exit Sub
Sheets("Sheet").[H1].Value = ActiveCell.Value
End Sub

 

[الموسطي]

شكرا أخي