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

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

Recommended Posts

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

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

'اسم ورقة البيانات
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

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

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

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

تم تعديل بواسطه عبدللرحيم

شارك هذه المشاركه


رابط المشاركه
شارك
9 minutes ago, عبدللرحيم said:

أخى الفاضل 

kalll

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

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

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

اخى الفاضل 

kalll

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

F2 

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

CTRL + SHIFT + ENTER

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

{ } 

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

+

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

شارك هذه المشاركه


رابط المشاركه
شارك
7 hours ago, عبدللرحيم said:

اخى الفاضل 

kalll

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

F2 

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

CTRL + SHIFT + ENTER

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

{ } 

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

+

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

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

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

شارك هذه المشاركه


رابط المشاركه
شارك
5 hours ago, kalll said:

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

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

 

Book3330-11.rar

Just now, kalll said:

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

 اتفضل المرفق

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

راجع ملفك

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

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

شارك هذه المشاركه


رابط المشاركه
شارك
5 hours ago, عبدللرحيم said:

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

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

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

راجع ملفك

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

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان


  • المتواجدين الان   0 اعضاء متواجدين الان

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

×