نقل البيانات بين الشيتات المختلفة

[dr_ahmed_1983]

السلام عليكم ورحمة الله وبركاته

لو سمحتم يا إخوانى أريد المساعدة فى ترحيل البيانات من هذا الشيت بشكل يومى عند اختيار اليوم من القائمة المنسدلة وترحيلها إلى الشيت الشهرى لنفس اليوم , وتفريغ هذا الشيت كل يوم للكتابة فيه من جديد فى اليوم التالى ويفضل بالمعادلات وليس بالأكواد إن أمكن ذلك ... مرفق الملف

تم تعديل رفع الملف بإمتداد XLSM فطلبك لا يمكن حله الا بالأكواد

جرد.xlsm

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

بواسطة المعادلات لا يمكن عمل هذا الشيء لانه مجرد ان تغير الأرقام يتم مسح كل شيء من الصفحة شهري و يبقى فقط اليوم المسجل في اليومية

تفيير اسماء الصفحات الى Daily  و Montghly لحسن نسخ الكود ولصقة

الكود

Option Explicit

Sub From_Daily_to_Monthly()
Dim D As Worksheet, M As Worksheet
Dim F_rg As Range, Find_what, RO%, n%, Answer As Byte

Set D = Sheets("Daily")
Set M = Sheets("Monthly")
Find_what = D.Range("O4")
Set F_rg = M.Range("M3:M35").Find(Find_what, lookat:=1)
 If F_rg Is Nothing Or Find_what = vbNullString Then
     MsgBox "in range " & M.Range("M3:M35").Address & Chr(10) & _
     "I can't find your data " & Find_what, 64
    Exit Sub
 End If
 RO = F_rg.Row
 n = Application.CountA(M.Range("C" & RO).Resize(, 10))
  If n Then
    Answer = MsgBox("This data Already Exit " & Chr(10) & _
    "Do you want to Replace It", vbYesNo)
   If Answer <> 6 Then Exit Sub
  End If
  M.Range("C" & RO).Resize(, 10).Value = _
  D.Range("C6").Resize(, 10).Value
End Sub

dr_ahmed.xlsm

[dr_ahmed_1983]

جزاكم الله خيرا أستاذنا الفاضل