المبيعات الشهرية

[ayman42001]

الملف يسجل المبيعات اليومية كل مندوب ومبيعاته يوميا ومن ثم جمعها في التقرير الشهري

المطلوب في الملف المرفق

Daily Sales.xlsx

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

Try This file

CODE

Sub Give_Date()
Dim Start_Date As Date
  Start_Date = DateSerial([b5], [b4], 1)
Dim My_date As Date
  My_date = Start_Date
Dim Dict As Object, x%
 On Error GoTo Wrong_data
  Set Dict = CreateObject("Scripting.Dictionary")
Range("G8:AH10") = vbNullString
 With Dict
 Do Until Month(My_date) <> [b4]
   If Weekday(My_date) <= 5 Then
    .Add My_date, ""
    End If
    My_date = My_date + 1
    x = .Count
  Loop
 End With
 With Range("G8")
 .Resize(, x) = Dict.keys
 .Offset(1).Resize(, x) = "Primary"
 .Offset(, x) = "Total"
 End With
 Dict.RemoveAll: Set Dict = Nothing
 Exit Sub
Wrong_data:
 MsgBox "Wrong_data:" & Chr(10) & _
   "Check the value Of $B$4 (Must be an integer between 1 and 12)" & Chr(10) & _
   "$B$5 (Must be an integer>1900)", 1048540, "Salim Tell You"
 
 
End Sub

file included

Daily Sales.xlsm

[ayman42001]

يعطيك العافية اخي

من حيث تغير الاشهر والتواريخ الشغل صحيح

لكن البيانات لما اغير الشهر لا تحفظ في الشهر التي كانت مسجلة

مثلا ادخلت بيانات في شهر مارس وحفظت الملف ثم اخترت شهر ابريل ومازالت البيانات تظهر

من المفترض ان مبيعات كل شهر تظهر في نفس الشهر وعند اختيار شهر جديد لا تظهر مبيعات الاشهر السابقة الا اذا اخترتها من القائمة

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

6 ساعات مضت, ayman42001 said:

يعطيك العافية اخي

من حيث تغير الاشهر والتواريخ الشغل صحيح

لكن البيانات لما اغير الشهر لا تحفظ في الشهر التي كانت مسجلة

مثلا ادخلت بيانات في شهر مارس وحفظت الملف ثم اخترت شهر ابريل ومازالت البيانات تظهر

من المفترض ان مبيعات كل شهر تظهر في نفس الشهر وعند اختيار شهر جديد لا تظهر مبيعات الاشهر السابقة الا اذا اخترتها من القائمة

انا اشتغلت غلى هذا الشيء فقط

تغير الاشهر والتواريخ 

[ayman42001]

هل بالإمكان عمل المطلوب 

الله يعطيك العافية