ربا

1 ساعه مضت, خالد الرشيدى said:

السلام عليكم

بعد اذن استاذي القدير / أبو البراء

اعتقد مع كثرة البيانات سيكون الكود الذي ادرجة استاذي ابو البراء جزاه الله عنا خيراً  هو الخيار الافضل  - ومع ذلك اليك حل اخر بالمعادلات 

test 000_2.rar

=IFERROR(INDEX(Sheet1!$B$2:$B$1000,SMALL(IF(Sheet1!$A$2:$A$1000=$A2,ROW($A$2:$A$1000)-ROW($A$2)+1),COLUMN(A1))),"")

 

نعم قمت بتجربته ولم يزبط  ، فهدفي من طريقة اخرى اتقنها لتكرار هذا العمل بكل مرة 

انا غلبتك معاي بس هادا شي بالنسبة لالي صعب لو في اي طريقة غير هذا يا ريت 

وشكرااااااااااااااااااااااااااااااااااااااااااااااااااااا

عملت جميع الخلايا text وعند نقل الكود يعلق على range

منذ ساعه, ياسر خليل أبو البراء said:

وعليكم السلام

قومي بتنسيق أعمدة ورقة النتائج كنص من خلال كليك يمين على خلايا ورقة العمل ثم اختاري Format Cells ثم اختاري Text ثم جربي الكود التالي 

Sub Test()
    Dim coll As New Collection, arr, maxItem As Long, i As Long, j As Long, str1 As String, v1, v2

    arr = Sheets("Sheet1").Range("A1").CurrentRegion.Value

    For i = 1 To UBound(arr, 1)
        str1 = CStr(arr(i, 1))

        On Error Resume Next
            coll.Add Key:=str1, Item:=New Collection
        On Error GoTo 0

        If coll(str1).Count = 0 Then coll(str1).Add str1
        For j = 2 To UBound(arr, 2)
            If Len(arr(i, j)) Then coll(str1).Add CStr(arr(i, j))
        Next j
    Next i

    For Each v1 In coll
        If v1.Count > maxItem Then maxItem = v1.Count
    Next v1

    ReDim arr(1 To coll.Count, 1 To maxItem)
    i = 0
    For Each v1 In coll
        i = i + 1
        j = 0
        For Each v2 In v1
            j = j + 1
            arr(i, j) = v2
        Next v2
    Next v1

    For j = 2 To maxItem
        arr(1, j) = j - 1
    Next j

    Sheets("Sheet2").Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
End Sub

 

حاولت ولم تزبط . هل يوجد طريقة اسهل 

منذ ساعه, ياسر خليل أبو البراء said:

وعليكم السلام

قومي بتنسيق أعمدة ورقة النتائج كنص من خلال كليك يمين على خلايا ورقة العمل ثم اختاري Format Cells ثم اختاري Text ثم جربي الكود التالي 

Sub Test()
    Dim coll As New Collection, arr, maxItem As Long, i As Long, j As Long, str1 As String, v1, v2

    arr = Sheets("Sheet1").Range("A1").CurrentRegion.Value

    For i = 1 To UBound(arr, 1)
        str1 = CStr(arr(i, 1))

        On Error Resume Next
            coll.Add Key:=str1, Item:=New Collection
        On Error GoTo 0

        If coll(str1).Count = 0 Then coll(str1).Add str1
        For j = 2 To UBound(arr, 2)
            If Len(arr(i, j)) Then coll(str1).Add CStr(arr(i, j))
        Next j
    Next i

    For Each v1 In coll
        If v1.Count > maxItem Then maxItem = v1.Count
    Next v1

    ReDim arr(1 To coll.Count, 1 To maxItem)
    i = 0
    For Each v1 In coll
        i = i + 1
        j = 0
        For Each v2 In v1
            j = j + 1
            arr(i, j) = v2
        Next v2
    Next v1

    For j = 2 To maxItem
        arr(1, j) = j - 1
    Next j

    Sheets("Sheet2").Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
End Sub

 

منذ ساعه, ربا said:

حاولت ولم تزبط . هل يوجد طريقة اسهل 

 

السلام عليكم اصدقائي

انا بحاجة لمساعدتكم لتقل بيانات من الصفحة الاولى الى الصفحة الثانية وقد جربت جميع الطرق و من بينها pivot table ولم انجح والمراد أن البيانات التي بالصفحة الاولى كما بالمثال اريد نقلها وفق الترتيب بالصفحة الاخرى بطريقة افقية 

مع الشكر الجزيل

test 000.rar

صباح الخير للجميع واسعد الله ايامكم بكل خير

اخي السيد ابو البراء انتو ما قصرتو معي و ساعدتوني وانا بقدر هادا الشي وممتنه لاهتمامكم و رحابة صدركم ، وعزيزي السيد عبد العزيز سامحك الله - لم تكن معلوماتي مملة بالعكس ارت ان تكون ميسرة و قريبة للاستيعاب ، وربي يجعل تعاونك بالمنتدى بميزات حسناتك .

قال صلى الله عليه وسلم: (وعَوْنُكَ الضعيفَ بِفَضْلِ قُوَّتِكَ صدقة)

يسعد صباحكم جميعا 

بداية اشكر الجميع على مشاركتهم و جزاكم الله الف خير ، والكود شكلو صعب علي واكبر من استيعابي  مقابل معلوماتكم و خبرتكم بالاكسيل ، يعني لو اردت ان اعدك على الكود لا استطيع لان الملف المرفق كمثال وليس هو ملفي الاصلي 

كما ان الارقام بالشيتات لا تتكرر نهائيا 

لكم مني جميعا كل تحية

اخي الفاضل الصقر 

يسلموا على الاجابة ولكن اريد ان يضع اوتماتكلي اسم الشيت لانو الملف المراد الشغل عليه كبير جدا وبع لا يقل عن 15 شيت لعمل للبيانات ، وان كان كود بسيط استطيع عمل نسح لصف وارسالة للملف الخاص به سيكون افضل بكثير

وشكرا جزيلاااااااااااااااااااااااا

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

اخواني و اخواتي بالمنتدى المميز

اسعد الله اوقاتكم بكل خير ،،،

انا اود الاسترشاد بخبرتكم بشأن كود للبحث واحضار بيانات الخلية المطلوب التحري عنها وفق مثالنا :

1.       يوجد 3 شيتات من البيانات لسنوات سابقة

2.       يوجد شيت النتيحة للرقم المراد التحري عنه وهي أن يضع اسم الخلية و اسم الصفحة

الهدف من الكود :

السرعة بأنجازأي عملية بحث لارقام محددة وعدم استخدام دالة البحث F

شاكرة لكم حسن تعاونكم معنا

مثال.rar

Thanx Mr Yaser

كيف تم استخدام IF و index   المعادلة روعه ولم اعرف كيفية اعدادها 

السلام عليكم ،

من خلال معلوماتي المتواضعة بالاكسيل ، فلا يصلح لطلبك غير pivot table  لتوزيع الداتا على عدة شيات 

احترامي وتقديري 

توزيع بيانات على صفحات مختلفة.rar

سيد حسام المعادلة سليمة 100% بارك الله فيك 

يسلم ايديك اخي حسام و بارك الله فيك وسأقوم بمحاولة فهم المعادلة و اختبار النتيجة حسب المجهود اليدوي  لاهمية النتائج بعملي . اشكرك شكرا جزيلا 

صباح الخير ،،

مرفق لحضرتكم الملف ولكم جزيل الشكر 

احترامي و تقديري لكم 

Test.rar

صباح الخير لجميع المتواجدين بالمنتدى ،،

ارجو التكرم بمساعدتي بمعادلة IF الشرطية لحساب نتائج مبيعات لتحقق الشروط التالية :

واليكم مثال على المبيعات المحققة :

مرحبا انا ربا من فلسطين