استدعاء بيانات من جدول بشروط

[امجد عبدالحليم]

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

الرجاء الافادة في " الملف المرفق " حيث حاولت كثيرا في ايجاد حل فلم اجد سوى التوجه الى الله ثم ( اوفيسنا ) لاني اعلم انني سوف اجد الحل عندكم باذن الله تعالي 

يوجد لدي ملف " المرفق" حيث يوجد جدول به بيانات معينة مثل كشف الحساب ولابد من تحليل الرصيد بكشف الحساب عبارة عن ماذا ؟

فانشات له تحليله معينة ولكن لم تكن كما اريد 

فقد قمت بتوضيح المطلوب " النتيجة التي اريدها " ووضعت النتيجة التى تحصلت عليها ولكن الغير مطلوبة

 

فالرجاء افادتي 

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

مقاول 1.zip

[Ali Mohamed Ali]

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

هل بالنسبة للصفوف المخفية مهمة بالنسبة لك أم يمكن تجاهلها أو إلغائها ؟

تم تعديل فبراير 3, 2018 بواسطه ali mohamed ali

[امجد عبدالحليم]

في 2/4/2018 at 00:48, ali mohamed ali said:

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

هل بالنسبة للصفوف المخفية مهمة بالنسبة لك أم يمكن تجاهلها أو إلغائها ؟

اخي العزيز علي محمد علي          اشكرك على تقديرك واهتمامك   جزيت خيرا 

نعم كل الصفوف مهمه 

[احمدزمان]

متابع

[احمدزمان]

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

حاولت اعمل المطلوب باستخدام التصفية المتقدمة بالكود ولكن لم استطيع 

لذلك تم عمل كود ترحيل الى صفحة اخرى

يمكنك جلب بيانات اي عميل حسب اسم الصفحة

Sub ãÇßÑæ1()
' ÇáãÇßÑæ ãÓÌá ý01/03/2018 ÈæÇÓØÉ ýZmn
    Range("D7:N999").ClearContents
    Range("D7").Select
Dim FS As Worksheet, TS As Worksheet
Dim Q1, Q2, Q3, Q4, Q5, Q6, ER, FR, TR, FC
Set TS = Sheets(ActiveSheet.Name)
Q1 = TS.Range("B1").Text
Set FS = Sheets(Q1)
Q2 = TS.Range("B2").Text
Q3 = TS.Range("B3").Text
Q4 = TS.Range("B4").Text
Q5 = TS.Range("B5").Text
TR = 6
For FR = 6 To 6666
    If FS.Cells(FR, 4).Text = Q2 Then
    Q6 = FS.Cells(FR, 5).Text
        If Q6 = Q3 Or Q6 = Q4 Or Q6 = Q5 Then
        TR = TR + 1
            For FC = 1 To 11
            TS.Cells(TR, FC + 3) = FS.Cells(FR, FC)
            Next 'FC
        End If
    End If
Next 'FR
End Sub

آمل ان يفي بالغرض المطلوب

AZ_مقاول1.xls

[امجد عبدالحليم]

استاذي الكريم احمدزمان 

جزاكم الله خيرا على اهتمام حضرتك ومحاوله رائعه من سيادتك 

لكن اضافة لسيادتك انا عندي ما يقارب 100 شيت ما ينفعش يكون البحث والترحيل في نفس ورقة العمل 

[احمدزمان]

ان شاء الله لا مشكلة

 

[احمدزمان]

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

اللآن في نفس الورقة

 

AZ_مقاول1.xls

[امجد عبدالحليم]

 الاستاذ / احمدزمان    " المحترم"

انا شاكر لحضرتك جدا جدا وجزيت خيرا على المجهود الرائع وبالفعل تم وهذا ما اريده بالفعل انا عاجز عن الشكر 

*** ممكن بعد اذنك طريقة التطبيق على جميع الشيتات اللي عندي  " كيف اطبقها على جميع الشيتات "   ناسف على ازعاج سيادتك ***

[احمدزمان]

السلام عليكم

اخي الفاضل

انسخ الموديل الى الملف الذي ترغب فية

في اي صفحة من الملف اعمل الزر و اربطه بالماكرو 

يشتغل

ملاحظة هامة

انتبه للأرقام الصفوف التي سوف يعمل عليها الكود