اخي الكريم ابو حنين ممكن استفسار لو امكن
ينقل التنقيط بشكل عشوائي ليس حسب الاسم الذي تم اختياره في الكمبوبوكس
لتوضيح tank هو اسم الكمبوبوكس
عند تطبيق الاكواد على الملف الاصلي اتضح هناك خطأ
في السطر التالي
'On Error Resume Next
x = MyRange.Cells.Find(tank, LookAt:=xlWhole, MatchCase:=True).Activate