الصفتى قام بنشر أغسطس 21, 2021 مشاركة قام بنشر أغسطس 21, 2021 البحث عن رقم العقد الموجود بالفورم في SHEET1 ثم ترحيل القيمة الموجوده في تكست بوكس 4 و التاريخ الموجود في تكست بوكس7فى ااول خليه فارغه في النطاق من T : Atمع عدم فتح SHEET1 TEST.xlsb رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر أغسطس 22, 2021 أفضل إجابة مشاركة قام بنشر أغسطس 22, 2021 جرب هذا الكود لزر الترحيل فقط 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 بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
الصفتى قام بنشر سبتمبر 7, 2021 الكاتب مشاركة قام بنشر سبتمبر 7, 2021 استاذى العزيز الكود كان يعمل جيدا ما دام الرينج t , u به بيانات و لكن فى حالة عدم وجود بيانات بهم فالترحيل يتم فى اخر الصف من اليسار - مرفق ملف شاكرا لك سعة صدركTEST.xlsb 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 7, 2021 مشاركة قام بنشر سبتمبر 7, 2021 الكود كان يعتمد على تسجيل العربون قبل ذلك ويرحل إلى أول خلية فارغة بعد العمود U على كل حال ومع افتراض خلو العربون تم تحديث الكود السابق وإضافة ميزة الترحيل إلى العمود T & U في حال فراغهم بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
الصفتى قام بنشر سبتمبر 7, 2021 الكاتب مشاركة قام بنشر سبتمبر 7, 2021 شكرا جزيلا 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 7, 2021 مشاركة قام بنشر سبتمبر 7, 2021 خالص دعواتي بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.