السلام عليكم
هذا الكود لاحد الاخوة فى هذا الجروب
الكود للبحث
شيت حركة الموردين وشيت البحث
==================
'اسم ورقة البيانات
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
========================
المطلوب المساعدة فى تعديل الكود ليجلب ايضا من شيت حركة النقدية (عمودا"لمبلغ المسدد" و عمود "رقم الايصال") وجزاكم الله كل خيرا
اي هيكون عندنا ورقة "حركة الموردين" وورقة "حركة النقدية " وورقة "البحث" ارجو ان اكون وصلت المطلوب لحضرتكم
وشكرا