اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

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

 

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

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

مقاول 1.zip

  • 1 month later...
قام بنشر (معدل)

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

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

تم تعديل بواسطه ali mohamed ali
  • Like 1
  • 4 weeks later...
قام بنشر
في 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 شيت ما ينفعش يكون البحث والترحيل في نفس ورقة العمل 

قام بنشر

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

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

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

قام بنشر

السلام عليكم

اخي الفاضل

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

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

يشتغل

ملاحظة هامة

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

 

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information