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

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


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

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

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

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

تم تعديل بواسطه عبدللرحيم
رابط هذا التعليق
شارك

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information