طلب تصحيح معادلة أضافة شيت جديد

[وليد شعراوى]

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

عندي برنامج لأضافة أصناف جديدة للمخازن

البرنامج يقوم بأضافة شيت جديدة

(المشكلة) أن الشيت الأصلي المطلوب نسخه كما هو فيه عامود ( خلية ضرب الصنف في السعر)

لكن عندما أقوم بعمل أضافة لشيت / صنف جديد يقوم بأضافتها ولكن بدون عملية الضرب الموجودة في الخلية (عامود C)

هل من الممكن التفضل بوضوع صيغة تصحيح للمعادلة

بحيث يمكن للبرنامج إضافة الشيت الجديدة بجميع معادلاتها الموجودة في الشيت الأصلي الأول ( سواء ضرب أو طرح أو جمع ) ؟

مع خالص الشكر مقدماً

صورة البرنامج مرفقة

ودي صيغة المعادلة الموجودة عندي

Private Sub CommandButton4_Click()

chosename = InputBox("اختار اسم الصنف")

Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = chosename

Sheet1.Range("a1:c1").Copy ActiveSheet.Range("a1:c1")

ActiveSheet.Range("a1:c1").ColumnWidth = 23

Me.ComboBox1.Clear

UserForm_Initialize

End Sub

 

[Ali Mohamed Ali]

اهلا بك اخى الكريم فى المنتدى كان عليك رفع الملف نفسه

تفضل هذا هو الملف

 

Search & add Sheets.xlsm

[وليد شعراوى]

14 ساعات مضت, ali mohamed ali said:

اهلا بك اخى الكريم فى المنتدى كان عليك رفع الملف نفسه

تفضل هذا هو الملف

 

Search & add Sheets.xlsm

بداية ً ... أشكرك على الأهتمام بالرد 

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

المشكلة في هذا الملف ( المعادلة) أنها تنسخ الشيت بدون العمليات الموجودة في الخلية ( ضرب أو جمع أو طرح )

النسخ بيتجاهل تماما وجود عمليات حسابية داخل أي خلية !!

هل هناك صيغة معينة لنسخ الشيت بنفس العمليات الموجودة في الشيت الذي يسبقه ؟

بمعنى هنا المعادلة بتقول 

Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = chosename

دي إضافة للشيت بدون عملياته - هل هناك صيغة أخرى لنسخ الشيت كما حددته أنا ؟

مع خالص شكري وتقديري