طلب تعديل كود إدخال بيانات

[عاشق الاكسيل]

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

كنت محتاج مساعدة فى تعديل كود إدخال بيانات الكود بيدخل البيانات بشكل افقى ( الاعمدة A - B - c..............الخ )

الصراحة كنت بستخدم الطريقة دى

Sheets("Archive").Activate
lrow = Range("b" & Rows.Count).End(xlUp).Row
Range("A" & lrow + 1).Value = Textbox1.Value
Range("b" & lrow + 1).Value = Textbox2.Value

بس الفكرة ان الكود بيبقى طويل جدا واكيد فى حل افضل فياريت طريقة اخرى.

بحيث ان الكود يبقى عبارة عن ان التيكست بوكس 1 فى العمود الاول والتيكست بوكس 2 فى العمود الثانى وهكذا.

[عاشق الاكسيل]

مفيش حل اسهل ؟؟

[عاشق الاكسيل]

هل الطريقة اللي ضيفها طيب طريقة وحيدة؟؟