husas707 قام بنشر مارس 11, 2023 مشاركة قام بنشر مارس 11, 2023 مساء الخير جميعا المطلوب طريقة لترحيل اسم الزبون الى صفحة الخلاصة بمجرد اضافة رقم في التسلسل في صفحة البيانات بحسب المرفق وبارك الله فيكم وجزاكم خيرا خلاصة السلة.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر مارس 11, 2023 أفضل إجابة مشاركة قام بنشر مارس 11, 2023 In worksheet module, try the code Private Sub Worksheet_Change(ByVal Target As Range) Dim x, sh As Worksheet, m As Long If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 1 And Target.Column = 1 Then Set sh = ThisWorkbook.Worksheets(2) m = sh.Cells(31, 1).End(xlUp).Row + 1 If m >= 31 Or (m = 2 And sh.Range("A2").Value <> Empty) Then MsgBox "No More Fields", vbExclamation: Exit Sub x = Application.Match(Target.Offset(, 1).Value, sh.Columns(1), 0) If Not IsError(x) Then MsgBox "Customer Already Exists", vbExclamation: Exit Sub sh.Cells(m, 1).Value = Target.Offset(, 1).Value Target.Select End If End Sub 2 رابط هذا التعليق شارك More sharing options...
husas707 قام بنشر مارس 13, 2023 الكاتب مشاركة قام بنشر مارس 13, 2023 السلام عليكم اخي العزيز اشكرك كثيرا على تعاونك بالكود اعلاة لكن ونتجة لتوسع العمل معي فهناك طريقة اخرى ستسهل عملي بشكل اكبر عبر تجميع البيانات من قاعدة البيانات الى الخلاصة وبحسب رقم الطلبية بحسب ماهو موضح في المرفق اتمنى ان اجد ضالتي لديك وبارك الله فيك وفي جميع المتعاونين في هذة المنتدى الرائع ترحيل السلة.xlsx رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر مارس 13, 2023 مشاركة قام بنشر مارس 13, 2023 I think this is a different request. Please post a new topic for the new question 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.