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

معادلة نقل وترحيل بيانات بين تاريخين بشرطين( الإسم والصنف)


الردود الموصى بها

السلام عليكم ورحمة الله زملاء ومعلمين وأصدقاء النتدى الكرام

أرجو المساعدة فى ايجاد هذه المعادلة ولكم جزيل الشكر وبارك الله فيكم

معادلة ترحيل ونقل.xlsx

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

لحسن العمل مع لغة 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

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

بارك الله فيك أخى وأستاذى سليم

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

بس هناك بعد اذنك  لو ممكن نقل وترحيل أيضا المبلغ ورقم الإيصال من صفحة النقدية ان كانوا موجودين

ولك جزيل الشكر

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

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