السلام عليكم
أخي new4a
تشير إلى أسماء textbox الموجودة على الفورم.
A = ActiveCell.Offset(0, 2).Value
T = ActiveCell.Offset(0, 3).Value
R = ActiveCell.Offset(0, 4).Value
زود بنفس الطريقة المتبعة بالكود
لو صادفتك مشكلة ارفق ملف و نعمل عليها سويا
تحياتي: أيسم