ترحيل البيانات حسب التاريخ من شيت الى شيت اخر

[محمد لؤي]

السلام عليكم

محتاج كود لترحيل البيانات من شيت (البيانات) الى شيت (الذين استلموا اجورهم) حسب التاريخ  من والى 

مع بقاء البيانات في شيت (البيانات)

جزيتم خيرا

ترحيل نتائج البحث الى الشيت المستلمين.rar

[سليم حاصبيا]

وكيف نعرف من استلم اجره

[محمد لؤي]

السلام عليكم

يتم تسديد الاجور حسب التاريخ المحدد ، فالفترة من 1/ 1 ولغاية 5 / 1 تعتبر هذه الفترة هي (استلام الاجور ) ويصبح معلوم لدينا ولدى المستحق بأنه هذه الفترة قد سددت الاجور

وعند سحب النتائج تعلق على صبورة اللوحات وبذلك يصبح معلوم بالتسديد

 

تم تعديل أبريل 23, 2018 بواسطه محمد لؤي

[Ali Mohamed Ali]

جرب هذا

 

ترحيل نتائج البحث الى الشيت المستلمين.xls

[محمد لؤي]

تسام - حزيت خيرا

 

[Gmal samy]

Sub Find_Between()
Dim First_Sh, Sec_Sh As Worksheet
Dim First_Rg, Sec_Rg As Range
Dim My_Min As Long, My_Max, x As Long
Dim lr, m, i As Integer
Application.ScreenUpdating = False
  Set First_Sh = Sheets("ÇáÈíÇäÇÊ"): Set Sec_Sh = Sheets("ÇáÐíä ÇÓÊáãæÇ ÇÌæÑåã")
  My_Min = First_Sh.Range("k2"): My_Max = First_Sh.Range("l2")
  Set First_Rg = First_Sh.Range("a1").CurrentRegion.Offset(1)
 Set Sec_Rg = Sec_Sh.Range("a1").CurrentRegion.Offset(1)
 Sec_Rg.ClearContents
lr = First_Rg.Rows.Count - 1
    m = 2
    For i = 1 To lr

  x = CDate(First_Rg.Cells(i, 1))
 
     If First_Rg.Cells(i, 1) >= My_Min And First_Rg.Cells(i, 1) <= My_Max Then
       Sec_Sh.Cells(m, "a").Resize(1, 9).Value = First_Rg.Cells(i, 1).Resize(1, 9).Value
       m = m + 1
      End If
       Next
       Application.ScreenUpdating = True
End Sub

 

 

ممكن شرح للكود