تكرار كود الصنف تلقائي مع التحرير

[controller]

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

جمعه عامره بذكر الله على الجميع

ارجو من الاخوة الاساتذة مساعدتي بكيفية تكرار كود الصنف تلقائي عند الانتقال الى الخليه التاليه مع امكانية تحريرها لادخال كود اخر 

مرفق ملف لعله يشرح ظالتي بشكل اوضح 

وشاااااااااااااااااااااااكر ومقدر جهودتكم مقدما  

اوفسينا.rar

[ياسر خليل أبو البراء]

وعليكم السلام أخي الكريم

يرجى تغيير اسم الظهور للغة العربية ومراعاة الدقة في عناوين الموضوعات

 

جرب الكود التالي في حدث ورقة العمل

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    
    If Target.Column = 2 And Target.Row > 6 Then
        Target = Mid(Target.Offset(-1), 1, 6)
        SendKeys "{F2}"
    End If
End Sub

تقبل تحياتي

 

[controller]

الله يعطيك العافيه يا أخ ياسر هذا هو المطلوب 

الله يجزاك الجنة 

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير

وجزيت خيراً بمثل ما دعوت لي

 

يرجى تغيير اسم الظهور للغة العربية ومراجعة موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى

تقبل تحياتي