المساعدة فى اضافة الى هذا الكود

[kalll]

السلام عليكم 
هذا الكود لاحد الاخوة فى هذا الجروب 
الكود للبحث 

شيت حركة الموردين وشيت البحث 
==================

'اسم ورقة البيانات
Private Const Mydate As String = "حركة الموردين"
'  اسم ورقة البحث
Private Const MyFind As String = "البحث"

Sub Kh_Filter()
Dim Last As Long
Last = Worksheets(Mydate).UsedRange.Rows.Count
'-----------------------------
Worksheets(Mydate).Range("A1:G" & Last).AdvancedFilter xlFilterCopy _
, Worksheets(MyFind).Range("K2:L3"), Worksheets(MyFind).Range("A5:G5"), False
'-----------------------------
ActiveWindow.ScrollRow = 1
'
    Sheets("حركة الموردين").Range("A1:G270").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("البحث"), CopyToRange:=Range("البحث") _
        , Unique:=False
End Sub
========================

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

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

[kalll]

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

 

• عبدالعزيز محمد-عاشق البرمجة
• ارجو من سيادتكم التخل 

[kalll]

لااله الا الله 
حضرتكم هو انا تجاوزت فى شيئ 
حتى تتجاهلو مشاركاتى 

ارجو الرد من الادارة 

ارجو الرد من الادارة 

[kalll]

طارق محمود

• mennad sofiane

 

[kalll]

uppjuuu

up

[عبدللرحيم]

من قواعد المنتدى 

رفع ملف تجريبى

لتعديل الكود على البيانات

تم تعديل أكتوبر 22, 2017 بواسطه عبدللرحيم

[kalll]

2 hours ago, عبدللرحيم said:

من قواعد المنتدى 

رفع ملف تجريبى

لتعديل الكود على البيانات

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

Book3330.rar

[عبدللرحيم]

أخى الفاضل 

kalll

هل البيع يتم نقدى أم سداد جزئى ؟

ويجب إدراج رقم المستند فى ورقة حركة النقدية

للبحث برقم المستند 

تم تعديل أكتوبر 22, 2017 بواسطه عبدللرحيم

[kalll]

9 minutes ago, عبدللرحيم said:

أخى الفاضل 

kalll

هل البيع يتم نقدى أم سداد جزئى ؟

ويجب إدراج رقم المستند فى ورقة حركة النقدية

للبحث برقم المستند 

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

[عبدللرحيم]

تفضل أخى 

kalll

 

 

 

OK_Book3330.rar

[kalll]

1 hour ago, عبدللرحيم said:

تفضل أخى 

kalll

 

 

 

OK_Book3330.rar

شكرا اخى الفاضل

عبدللرحيم 

ولكن اخى شاهد النتيجة 
 

[عبدللرحيم]

اخى الفاضل 

kalll

هذه مصفوفات يجب الضغط على مفتاح 

F2 

ثم الضغط على 3 مفاتيح

CTRL + SHIFT + ENTER

يظهر فى بداية و نهاية المصفوفة قوسين

{ } 

وتظهر النتيجة ويتم النسخ لأسفل علامة 

+

أو أرفع ملف بها بيانات سليمة للتجربة

[kalll]

7 hours ago, عبدللرحيم said:

اخى الفاضل 

kalll

هذه مصفوفات يجب الضغط على مفتاح 

F2 

ثم الضغط على 3 مفاتيح

CTRL + SHIFT + ENTER

يظهر فى بداية و نهاية المصفوفة قوسين

{ } 

وتظهر النتيجة ويتم النسخ لأسفل علامة 

+

أو أرفع ملف بها بيانات سليمة للتجربة

اتفضل اخى عبدللرحيم

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

[kalll]

5 hours ago, kalll said:

اتفضل اخى عبدللرحيم

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

 

Book3330-11.rar

Just now, kalll said:

 

Book3330-11.rar

اسف اخى عبدللرحيم

 اتفضل المرفق

[عبدللرحيم]

أخى الفاضل قلت لى 

رقم الايصال هو رقم المستند فى حركة النقدية

والملف المرسل رقم الإيصال يختلف عن رقم المستند

راجع ملفك

رقم الإيصال 101/ 102/ 103 /104

ورقم المستند  33/ 34/ 35/ 36

[kalll]

5 hours ago, عبدللرحيم said:

أخى الفاضل قلت لى 

رقم الايصال هو رقم المستند فى حركة النقدية

والملف المرسل رقم الإيصال يختلف عن رقم المستند

راجع ملفك

رقم الإيصال 101/ 102/ 103 /104

ورقم المستند  33/ 34/ 35/ 36

للتوضيح 
رقم الايصال هو ايصال استلام النقدية 
ورقم المستند هو مستند استلام البضاعة