اذهب الي المحتوي
أوفيسنا

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


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

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

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

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

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

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

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

 

وشكرا جزيلا

 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

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

الله يسلمك

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

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

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

 

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

 

  • Like 1
رابط هذا التعليق
شارك

تم التعديل

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

 

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

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

 

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

رابط هذا التعليق
شارك

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

 

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

 

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

 

ما رأيك

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

 

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

 

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

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

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

 

Testعمرضاحي.xls

  • Like 2
رابط هذا التعليق
شارك

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

زر الحالة

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

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

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

رابط هذا التعليق
شارك

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

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

 

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

رابط هذا التعليق
شارك

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

وعلى قدر استطاعتى عرفت ان لو عملت تسجيل للميكرو واخفيت صف عرفت انه هيظهرلى الكود الخاص بامر الفلتره وهو  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 مفاتيح 

 

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

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

 

رابط هذا التعليق
شارك

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

السلام عليكم

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

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

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

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

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

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

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

 

Testعمرضاحي.xls

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

لان فى شئ خطأ

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information