الاخ الفاضل khhanna
تحية طيبة وبعد
اعذرنى لوجود مشكلة فى الانترنت لدى
بالنسبة لطلبك اخى الكريم فالبرنامج لديك مفتوح المصدر تستطيع ان تطلع علية
وتأخذ منه ما يلزم مشروعك
واسف على تأخرى فى الرد مرة اخرى
الاخ سعد عايد
اذهب للنموذج اضافة منتج وافتح شاشة الكود وابحث عن هذا السطر :
Tcode.Value = "RSC" & Sheets("Category").Range("A1000").End(xlUp).Row + 1
وغير فيه الى ما يلزمك