زيادة التاريخ بعدة اشهر وبحسب هجري او ميلادي

[عاطف عبد العليم محمد]

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

اسعد الله اوقاتكم 

ارجو المساعد في كود  زيادة التاريخ بالخلايا بزيادة عدد اشهر وبحسب التاريخ سواء هجري او ميلاي 

وقد بدات المحاولة بالهجري ولكن لم افلح 

Sub chngedate()
Dim i As Integer
Sheets("test").Select
For i = 4 To 200
If Cells(i, 16).Value = 1 And Cells(i, 15).Value Like "الهجري" And Cells(i, 9).Value Like "نصف سنوي" Then Cells(i, 10).Value = Cells(i, 10).Value + 177

  
Next i

End Sub

مرفق الملف ، وجزاكم الله خيرا 

تغيير تواريخ هجري او ميلادي.xlsm

[عاطف عبد العليم محمد]

باقي ما يخص التاريخ الهجري ، بانتظار افادة من الافاضل 

هذه لزيادة التاريخ الميلادي

If Cells(i, 16).Value = 1 And Cells(i, 15).Value Like "الميلادي" And Cells(i, 9).Value Like "نصف سنوي" Then Cells(i, 11).Value = DateAdd("m", 6, Cells(i, 11).Value)
If Cells(i, 16).Value = 1 And Cells(i, 15).Value Like "الميلادي" And Cells(i, 9).Value Like "ربع سنوي" Then Cells(i, 11).Value = DateAdd("m", 3, Cells(i, 11).Value)
 If Cells(i, 16).Value = 1 And Cells(i, 15).Value Like "الميلادي" And Cells(i, 9).Value Like "سنوي" Then Cells(i, 11).Value = DateAdd("m", 12, Cells(i, 11).Value)

 

[عاطف عبد العليم محمد]

شكرا  للاستاذ سليم حاصبا  

بالبحث وجدت انه سبق ان افادني بموضوع زيادة التاريخ الهجري 

تم اضافة 

Function Higri_Date(but As Range, How As Integer)
 ad = but.Address(1, 0)
 y = "Left(" & ad & "," & 4 & ")+" & How & " & " & "RIGHT(" & ad & ",FIND(""*"",SUBSTITUTE(" & ad & ",""/"",""*"",1),1)+1" & ")"
Higri_Date = Evaluate(y)
End Function

ثم 

If Cells(i, 16).Value = 1 And Cells(i, 15).Value Like "الهجري" Then Cells(i, 10).Value = (Higri_Date(Cells(i, 10), 1))

وفق الله الجميع