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

[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]

  في 22‏/10‏/2017 at 15:12, عبدللرحيم said:

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

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

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

Expand  

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

Book3330.rar

[عبدللرحيم]

أخى الفاضل 

kalll

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

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

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

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

[kalll]

  في 22‏/10‏/2017 at 18:34, عبدللرحيم said:

أخى الفاضل 

kalll

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

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

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

Expand  

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

[عبدللرحيم]

تفضل أخى 

kalll

 

 

 

OK_Book3330.rar

[kalll]

  في 22‏/10‏/2017 at 20:59, عبدللرحيم said:

تفضل أخى 

kalll

 

 

 

OK_Book3330.rarFetching info...

Expand  

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

عبدللرحيم 

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

[عبدللرحيم]

اخى الفاضل 

kalll

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

F2 

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

CTRL + SHIFT + ENTER

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

{ } 

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

+

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

[kalll]

  في 23‏/10‏/2017 at 01:22, عبدللرحيم said:

اخى الفاضل 

kalll

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

F2 

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

CTRL + SHIFT + ENTER

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

{ } 

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

+

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

Expand  

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

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

[kalll]

  في 23‏/10‏/2017 at 08:50, kalll said:

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

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

Expand  

 

Book3330-11.rar

  في 23‏/10‏/2017 at 14:05, kalll said:

 

Book3330-11.rarFetching info...

Expand  

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

 اتفضل المرفق

[عبدللرحيم]

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

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

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

راجع ملفك

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

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

[kalll]

  في 23‏/10‏/2017 at 17:01, عبدللرحيم said:

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

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

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

راجع ملفك

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

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

Expand  

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