اريد اضافة تعديل بسيط بالكود

[ابو محمد الزعفرانية]

السلام عليكم

 

اريد تعديل على الكود الي بالمرفق

بحيث يبقى على نفس اليه العمل التعديل فقط اريد ان يزيل التكرار من عمود الدائرة في جدول 2 

اشكركم على تقديم المساعدة مقدما

خير الناس أنفعهم للناس

مشروع.xlsm

[أ / محمد صالح]

الكود يقوم بهذا الغرض ولكن على العمود 3 بينما عمود الدائرة 16

لذا يجب تغيير هذا السطر

txt = Join(Array(a(i, 3), a(i, 3)), Chr(3))

إلى

txt = Join(Array(a(i, 16), a(i, 16)), Chr(3))

بالتوفيق

[ابو محمد الزعفرانية]

مشكور استاذ محمد

[أ / محمد صالح]

الحمد لله الذي بنعمته تتم الصالحات