هانى محمد قام بنشر فبراير 25, 2018 مشاركة قام بنشر فبراير 25, 2018 السلام عليكم ورحمة الله زملاء ومعلمين وأصدقاء النتدى الكرام أرجو المساعدة فى ايجاد هذه المعادلة ولكم جزيل الشكر وبارك الله فيكم معادلة ترحيل ونقل.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 25, 2018 مشاركة قام بنشر فبراير 25, 2018 لحسن العمل مع لغة VBA تم تغيير اسماء الصفحات الى الاجنبية الكود Option Explicit Sub filter_for_ME() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim S_sh As Worksheet: Set S_sh = Sheets("MouwariDDin") Dim T_sh As Worksheet: Set T_sh = Sheets("Search_") Dim My_Table As Range: Set My_Table = S_sh.Range("A1").CurrentRegion T_sh.Range("a5").CurrentRegion.ClearContents T_sh.Range("q2").Formula = "=AND($A2>=Search_!$B$2,$A2<=Search_!$B$3,Search_!$C$2=$B2,Search_!$D$2=$D2)" My_Table.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=T_sh.Range("Q1:q2"), _ CopyToRange:=T_sh.Range("A5:G5") T_sh.Range("q2").ClearContents With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف معادلة ترحيل ونقل Salim.xls 2 1 رابط هذا التعليق شارك More sharing options...
هانى محمد قام بنشر فبراير 25, 2018 الكاتب مشاركة قام بنشر فبراير 25, 2018 بارك الله فيك أخى وأستاذى سليم أحسنت وابدعت فتح الله عليك وزادك من علمه وجعلك دائما لمساعدة المحتاجين والوقوف بجانبهم شكرا لك بس هناك بعد اذنك لو ممكن نقل وترحيل أيضا المبلغ ورقم الإيصال من صفحة النقدية ان كانوا موجودين ولك جزيل الشكر رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 25, 2018 مشاركة قام بنشر فبراير 25, 2018 لا يمكن للفلتر ان يعمل على جدولين في نفس الصفحة (كيف اذا كانا في صفحتين مختلفتين..؟؟؟) رابط هذا التعليق شارك More sharing options...
هانى محمد قام بنشر فبراير 25, 2018 الكاتب مشاركة قام بنشر فبراير 25, 2018 شكرا جزيلا أستاذنا الغالى وبارك الله فيك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.