الموسطي قام بنشر ديسمبر 20, 2016 مشاركة قام بنشر ديسمبر 20, 2016 لدي ملف إكسل مرفق به صفحة فاتورة وشيت ، هناك بالنسبة للأصناف في الفاتورة فيها قائمة منسدلة مرتبطة بكود بالشيت ، وهذا الكود هو 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 رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر ديسمبر 20, 2016 مشاركة قام بنشر ديسمبر 20, 2016 السلام عليكم ورحمة الله تعديل بسيط ليعمل الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 4 Then Exit Sub Sheets("Sheet").[H1].Value = ActiveCell.Value End Sub رابط هذا التعليق شارك More sharing options...
الموسطي قام بنشر ديسمبر 21, 2016 الكاتب مشاركة قام بنشر ديسمبر 21, 2016 شكرا أخي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.