إنشاء استعلام عن قيم ونصوص معينه تحت شرط معين

[عمر ضاحى]

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

كل عام وانتم بخير

اساتذتى الكرام اخواني الاعزاء

بعد اذن حضراتكم

انا محتاج مساعدة فى عمل  استعلام عن قيم ونصوص معينه تحت شرط معين

وللمزيد من التفاصيل مرفق ملف للشرح عليه

 

وشكرا جزيلا

 

TEST.xlsx

[احمدزمان]

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

كل عام وانتم بخير

اخي الفاضل

اضخل رقم الفاتورة ثم اضغط زر كل البيانات

Dim Q1, Q2, FR, TR
Range("A11:L111").ClearContents
Q1 = Range("C6").Value 'رقم الفاتور
TR = 11
For Q2 = 1 To Sheets.Count
If Sheets(Q2).Name = ActiveSheet.Name Then GoTo 3
With Sheets(Q2)
For FR = 3 To 3333
If .Cells(FR, 14) = Q1 Then
Cells(TR, 1) = .Cells(FR, 3) & .Cells(FR, 4)
Cells(TR, 2) = .Cells(FR, 5)
Cells(TR, 3) = .Cells(FR, 6)
Cells(TR, 4) = .Cells(FR, 7)
Cells(TR, 5) = .Cells(FR, 8)
Cells(TR, 6) = .Cells(FR, 9)
Cells(TR, 7) = .Cells(FR, 10)
Cells(TR, 8) = .Cells(FR, 11)
Cells(TR, 9) = .Cells(FR, 12)
Cells(TR, 10) = .Cells(FR, 13)
Cells(TR, 11) = .Cells(FR, 27)
Cells(TR, 12) = .Cells(FR, 26)
Cells(TR, 13) = Sheets(Q2).Name

TR = TR + 1
End If
Next FR
End With
3 Next Q2


End Sub

 

Testعمرضاحي.xls

[Ali Mohamed Ali]

أحسنت استاذ أحمد كود ممتاز-كل عام وانتم بخير

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

 

[احمدزمان]

9 دقائق مضت, ali mohamed ali said:

أحسنت استاذ أحمد كود ممتاز-كل عام وانتم بخير

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

 

كل سنة وانته طيب و بصة وعافية

الله يسلمك

المنتدى منور بكم

و دام انته موجود في المنتدى فانت الخير والبركة

واعمالك تشهد على ذلك

 

جزاك الله خيرا

 

[احمدزمان]

تم التعديل

Sub Inqwayry()
'   ‎26/08/2018 بواسطة ‎Zmn
' استخراج بيانات برقم الفاتورة
Dim Q1, Q2, FR, TR
Range("A11:L111").ClearContents
Q1 = Range("C6").Value 'رقم الفاتور
TR = 11
For Q2 = 1 To Sheets.Count
If Sheets(Q2).Name = ActiveSheet.Name Then GoTo 3
With Sheets(Q2)
For FR = 3 To 3333
If .Cells(FR, 14) = Q1 Then
Cells(TR, 1) = .Cells(FR, 3) & .Cells(FR, 4)
Cells(TR, 2) = .Cells(FR, 5)
Cells(TR, 3) = .Cells(FR, 6)
Cells(TR, 4) = .Cells(FR, 7)
Cells(TR, 5) = Application.Sum(.Cells(FR, 8), .Cells(FR, 20))
Cells(TR, 6) = Application.Sum(.Cells(FR, 9), .Cells(FR, 21))
Cells(TR, 7) = Application.Sum(.Cells(FR, 10), .Cells(FR, 22))
Cells(TR, 8) = Application.Sum(.Cells(FR, 11), .Cells(FR, 23))
Cells(TR, 9) = Application.Sum(.Cells(FR, 12), .Cells(FR, 24))
Cells(TR, 10) = Application.Sum(.Cells(FR, 13), .Cells(FR, 25))
Cells(TR, 11) = .Cells(FR, 27)
Cells(TR, 12) = .Cells(FR, 26)
Cells(TR, 13) = Sheets(Q2).Name

TR = TR + 1
End If
Next FR
End With
3 Next Q2


End Sub

 

Testعمرضاحي.xls

[عمر ضاحى]

بسم الله ما شاء الله

والله فى قمة العبقريه

 

معلش ممكن استأذن حضرتك تشرحلى الكود وايه وظيفة كل كود فيها

وايضا لو حابب اجيب المنصرف ايضا محتاج اعمل ايه فى الكود علشان اضيف الخانات المحتاج انى لضيف فيها البيانات الناقصه مثل PO واسم المشروع !

 

والف شكر لحضرتك مره اخرى

[احمدزمان]

5 دقائق مضت, عمر ضاحى said:

 

وايضا لو حابب اجيب المنصرف ايضا محتاج اعمل ايه فى الكود علشان اضيف الخانات المحتاج انى لضيف فيها البيانات الناقصه مثل PO واسم المشروع !

 

والف شكر لحضرتك مره اخرى

جزاك الله خيرا

تم التعديل الأخير بيجيب لك المنصرف و الوارد مع بعض

 

[احمدزمان]

في فكرة ممكن تعجبك

نعدل على الكود بحيث يضع المصروف من الكميات و المبالغ ب السالب " - "

حتى تكون النتائج النهائية افضل

 

ما رأيك

[عمر ضاحى]

ما فى مشكله اى فكره من حضرتك

وياريت لو تقدر تضيف مفتاحين تاني معاهم

واحد عرض المنصرف فقط

والاخر عرض الوارد فقط

والاخير عرض الجميع

 

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

 

[احمدزمان]

السلام عليكم

تم التعديل للنتائج السالبة

تم اضافة زر بحث الحالة

بعد جلب بيانات الفاتورة

اختار من القائمة المنسدلة نوع الحالة المطلوبة

و اضغط بحث الحالة

اذا مسحت الخانة و ضغط بحث الحالة تظهر لك كل العمليات

تم اضافة صف للمجاميع اعلى الورقة

 

Testعمرضاحي.xls

[عمر ضاحى]

مش عارف فى خطأ ما لا ادري السبب

زر الحالة

مش منه المفترض لما اختر مثلا المنصرف يظهر لى المنصرف فقط ؟ويخفى باقى النتائج

لكن كل ال بيظهر لى قائمه بكل المكتب تحت الحالة

وعامل التصفيه لا بعمل معها ام ان له عمل اخر غير هذا ؟

[عمر ضاحى]

طلب اخر بعد اذن حضرتك انا لو عاوز انقل الكود هذا الى ملف اخر

كيف اقوم بهذه الخطوة

 

وتسلم على هذه المجهود وبارك الله فيك

[عمر ضاحى]

#تذكير

[عمر ضاحى]

انا لو حابب اني اقوم بعمل فلتره حسب قيمة خلية معينه ايه الكود المطلوب لعمل هذه الحركة ؟

 

[عمر ضاحى]

انا وجدة كود لموضوع القائمة للفتلرة 

وعلى قدر استطاعتى عرفت ان لو عملت تسجيل للميكرو واخفيت صف عرفت انه هيظهرلى الكود الخاص بامر الفلتره وهو  EntireRow.Hidden = True

والكود كامل بعد التعديل هو 

Sub hiden_line()
'CODE FOR HIDE VALUE 

Dim rng As Range
Dim cell As Range
Set rng = Range("A10:M25")
For Each cell In rng
' D7 هى الخلية التى بها القائمة او القيمة المطلوب الفلتره عليها
    If cell.Value = Range("D7").Value Then
    cell.EntireRow.Hidden = True
    End If

Next cell
End Sub

Sub show_line()
'CODE FOR SHOW VALUE 

Dim rng As Range
Dim cell As Range
Set rng = Range("A10:M25")
For Each cell In rng
    If cell.Value = Range("D7").Value Then
    cell.EntireRow.Hidden = False
    End If

Next cell
End Sub

Sub show_lineALL()
'CODE FOR SHOW ALL VALUE 

Dim rng As Range
Dim cell As Range
Set rng = Range("A10:M25")
For Each cell In rng
    If cell.Value = "وارد" Or cell.Value = "صرف" Then
    cell.EntireRow.Hidden = False
    End If

Next cell
End Sub

@احمدزمان   لو امكن حضرتك ممكن تساعدنى فى هذه النقطة 

بحيث ادمج هذا الكود  مع كود حضرتك بحيث يكون هناك زرار واحد لعمل كل الخطوات بدل 4 مفاتيح 

 

يعنى انا محتاج من حضرتك تساعدنى فى دمج هذه الاكواد او 

كيف اخلى لما اختار شئ من القائمة المنسدلة يتم تطبيق الميكرو تلقائي دون ان يكون هناك مفتاح لتنفيذ المايكرو

 

[عمر ضاحى]

up

[عمر ضاحى]

up

[عمر ضاحى]

في ٢٦‏/٨‏/٢٠١٨ at 20:02, احمدزمان said:

السلام عليكم

تم التعديل للنتائج السالبة

تم اضافة زر بحث الحالة

بعد جلب بيانات الفاتورة

اختار من القائمة المنسدلة نوع الحالة المطلوبة

و اضغط بحث الحالة

اذا مسحت الخانة و ضغط بحث الحالة تظهر لك كل العمليات

تم اضافة صف للمجاميع اعلى الورقة

 

Testعمرضاحي.xls

ممكن استأذن حضرتك في مراجعة الملف مرة اخري 

لان فى شئ خطأ

 

[عمر ضاحى]

up

[عمر ضاحى]

up

[عمر ضاحى]

up

[عمر ضاحى]

up

[عمر ضاحى]

UP

[عمر ضاحى]

UP

[عمر ضاحى]

up