اريد كود استخراج اخر يوم فى السنه السابقه

[إبراهيم ابوليله]

الاخوه الافاضل

مرفق شيت يوضح

ماريده

وهو استخراج اخر يوم فى السنه السابقه

بالاضافه

الى تقسيم

المستخرج

الى خلايا

 

السنه.rar

[احمد عبد الناصر]

السلام عليكم 

 

هذا حل يعتمد علي طرح 1 من السنة فقط علي اساس ان اخر يوم دائما 31 و اخر شهر 12 

 

 

تحياتي

السنه+.rar

[إبراهيم ابوليله]

الاخ احمد

بارك الله فيك

ولكنى بالفعل محتاج الى كود لعمل ذلك

وفكرتك جميله جدا فى عمل المعادلات

ولكن اسمح لى ان اضيف

فى استخراج الايام - الشهر - والسنه

السنه+.rar

[إبراهيم ابوليله]

اخوانى الكرام

وهذه فكره اخرى لعمل المطلوب

عن طريق المعادلات

وما زلت فى انتظار كود لعمل ذلك

السنه+.rar

[إبراهيم ابوليله]

للرفع

[بن علية حاجي]

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

 

أخي الكريم إبراهيم، باعتبار أن آخر يوم من كل سنة هو 31 من الشهر 12 حضرت لك الكود البسيط التالي (حسب ملفك) والذي يوضع في حدت الورقة: 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect([C2], Range("C:C")) Is Nothing Then
           [C4].Value = "12/31/" & [C2] - 1: [C6] = [C2] - 1: [D6].Value = 12: [E6].Value = 31
    End If
End Sub
 

وتجد تطبيقه في الملف المرفق التالي :  السنه+.rar

 

أخوك بن علية

تم تعديل مارس 13, 2013 بواسطه بن علية حاجي

[إبراهيم ابوليله]

الاخ الكريم

بن عليه

بارك الله فيك

ومشكورا على الرد