تعديل على كود ترحيل

[mohamedyousef]

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

السادة الافاضل

بعد اذنكم محتاج تعديل على الكود الاتي وهو موجود داخل فورم الوارد في الملف محتاج عند الانتهاء من التسجيل يتم الوقوف على خانة الكود داخل الفورم بعد كل عملية ادخال للبيانات الكود المكتوب هو كالاتي

Private Sub CommandButton1_Click()
Dim my As Worksheet, rng As Range
Set my = Sheet6
Set rng = my.Range("g2100").End(xlUp).Offset(1, 0)
rng.Offset(0, 0).Value = Me.TextBox1.Value
rng.Offset(0, -3).Value = Me.TextBox2.Value
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
End Sub

باركود.xlsm

[عبدالفتاح في بي اكسيل]

ضع  هذا  الشيء  في  نهاية كودك 

Me.TextBox1.SetFocus

 

[mohamedyousef]

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

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