controller قام بنشر أكتوبر 31, 2023 مشاركة قام بنشر أكتوبر 31, 2023 السلام عليكم ورحمة الله وبركاته الاساتذة الكرام مطلوب مساعدة كم هو واضح بعنون الموضوع الله يسعدكم نسخ بيانات بحسب العدد المرات المسجل مثال : اسم محمد اريد تسخه 5 مرات بكود vba ينسخ بالخليه الاسم ويكرر 5 مرات بالاسفل مرفق مثال للتوضيح شاكر لكم مسبقا اخواني free pl.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر أكتوبر 31, 2023 أفضل إجابة مشاركة قام بنشر أكتوبر 31, 2023 وعليكم السلام أخي الكريم أدرج موديول جديد وضع الدالة المعرفة التالية في الموديول Function xDupsV(fCol As Range, Optional offsetCol As Integer = -1) Dim a, r1 As Range, r2 As Range, c As Range, cc As Range, i As Long, j As Long Application.Volatile True Set r1 = fCol Set r2 = r1.Offset(, offsetCol) ReDim a(1 To 1) For Each c In r1 Set cc = c.Offset(, offsetCol) If Not IsEmpty(c) And cc > 0 Then For j = 1 To cc i = i + 1 ReDim Preserve a(1 To i) a(i) = c Next j End If Next c xDupsV = WorksheetFunction.Transpose(a) End Function ثم في الخلية C11 ضع المعادلة بهذا الشكل =xdupsv(F3:F6) لا تنسى أن تقوم بمسح النطاق C11 إلى آخر النطاق قبل وضع المعادلة 2 رابط هذا التعليق شارك More sharing options...
controller قام بنشر أكتوبر 31, 2023 الكاتب مشاركة قام بنشر أكتوبر 31, 2023 استاذي الفاضل ياسر ابو البراء الله يطول بعمرك ويسعدك دنيا واخره شكرررررررررررررررررررررررررررررررررررررررررررررررررررررررا كثيرا من اعماق قلبي اخي ملاحظه صغيرة الملف المرفق كان مثال كيف اعرف الاعمده من الصفوف في الكود لكي اعدلها صراحه مبين قدامي حروف في حروف ههههههه فتورطت فضلا شرح بسيط من قبلكم لكي اعدله بملفي الاصلي بارك الله بعلمك ونفع بك رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 1, 2023 مشاركة قام بنشر نوفمبر 1, 2023 ارفق المثال الذي تعمل عليه بالضبط أو حاول بنفسك تغيير النطاق فقط في المعادلة المستخدمة في ورقة العمل 1 رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر نوفمبر 4, 2023 مشاركة قام بنشر نوفمبر 4, 2023 controller@ free ppl.xlsm 3 رابط هذا التعليق شارك More sharing options...
controller قام بنشر نوفمبر 5, 2023 الكاتب مشاركة قام بنشر نوفمبر 5, 2023 23 ساعات مضت, محي الدين ابو البشر said: controller@ free ppl.xlsm 33.47 kB · 3 downloads الاستاذ الفاضل محي الدين اسئل الله ان يبارك الله في علمك ويطول بعمرك واشكرك كثيراً على هذا الحل الاخر تحياتي لك اخي الحبيب 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.