ممكن المساعدة فى كود ترحيل

[الصفتى]

البحث عن رقم العقد الموجود بالفورم في SHEET1 ثم ترحيل القيمة الموجوده في تكست بوكس 4 و التاريخ الموجود في تكست بوكس7فى ااول خليه فارغه في النطاق من T : Atمع عدم فتح  SHEET1
TEST.xlsb

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

جرب هذا الكود لزر الترحيل فقط

Private Sub CommandButton3_Click()
Dim rng1 As Range
Dim str_search As String
str_search = Txt2.Value
Set rng1 = sheets("SHEET1").Range("E:E").Find(str_search, , xlValues, xlWhole)
If Not rng1 Is Nothing Then
Application.ScreenUpdating = False
Dim row_number As Long
row_number = rng1.Row
lastColumn = IIf(Sheets("SHEET1").Range("t" & row_number) = "", 20, Sheets("SHEET1").Range("t" & row_number).End(xlToRight).Column + 1)
sheets("SHEET1").Cells(row_number, lastColumn).Value = Txt4.Value
sheets("SHEET1").Cells(row_number, lastColumn + 1).Value = Txt7.Value
sheets("SHEET1").Select
Cells(row_number, lastColumn).Select
Me.Hide
Application.ScreenUpdating = True
End If
MsgBox "تم ترحيل المبلغ والتاريخ"
End Sub

بالتوفيق 

[الصفتى]

استاذى العزيز الكود كان يعمل جيدا ما دام الرينج t , u به بيانات و لكن فى حالة عدم وجود بيانات بهم فالترحيل يتم  فى اخر الصف من اليسار - مرفق ملف

شاكرا لك سعة صدركTEST.xlsb

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

الكود كان يعتمد على تسجيل العربون قبل ذلك ويرحل إلى أول خلية فارغة بعد العمود U 

على كل حال ومع افتراض خلو العربون 

تم تحديث الكود السابق وإضافة ميزة الترحيل إلى العمود T & U في حال فراغهم

بالتوفيق 

[الصفتى]

شكرا جزيلا

 

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

خالص دعواتي بالتوفيق