معادلة MONTH بداخل كود

[الجازع]

الاخوة الافاضل
تحية طيبة.... واسعد الله صباحكم

 

المطلوب هو كود يقوم بأضافة معادلة =MONTH() في العمود I بشرط ان يكون التاريخ مدخل بالعمود B للعمود كامل

 

COUNTIFS.rar

تم تعديل فبراير 16, 2013 بواسطه jazea

[عبدالله المجرب]

السلام عليكم 

ضع هذا الكود في حدث الصفحة

(للاسف اقتباس الكود لا يعمل)

 

 

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [b2:B100]) Is Nothing Then

If IsDate(Target) Then Target.Offset(0, 7) = Month(Target)

End If

End Sub

[الجازع]

اخي العزيز

اشكرك جزيل الشكر لتجاوبك ولاكن لم يتم عمل الكود بعد اضافته للملف ومرفق لكم الملف .

 

 

ارجو المساعده وشكراَ

COUNTIFS.rar

[رجب جاويش]

أخى الفاضل

ضع الكود فى حدث الصفحة المطلوبة وليس فى حدث ال workbook

 

[طارق محمود]

السلام عليكم

بعد إذن أخي الحبيب / عبد الله

 

أخي العزيز

ضع الكود في حدث الورقة  Sheet9(الأخطاء)

وليس حدث الملف ThisWorkbokk

[طارق محمود]

عفوا اخي الحبيب رجب

لم أر ردك قبل أن أرد

[أبو محمد أشرف]

بعد إذن الخوة الزملاء وضعته ولا يعمل فما السبب

[أبو محمد عباس]

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

بعد اذن اساتذتنا الكرام جزاهم الله خيرا

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

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

مع احترامي وتقديري

COUNTIFS.rar  

[الجازع]

اشكركم من اعماق قلبي يا اساتذتي

هذا هو المطلوب

ولاكن هل لي بأن اثقل عليكم بدمج هذه الامرين بكود واحد فقط

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = 1 Then

Cells(Target.Row, 1) = 1

Else

Cells(Target.Row, 1) = Cells((Target.Row) - 1, 1) + 1

End If

End Sub

وهذا

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [b2:B100]) Is Nothing Then

If IsDate(Target) Then Target.Offset(0, 7) = Month(Target)

End If

End Sub

واعتذر على الاطالة

ولكم جزيل الكشر والتقدير

[طارق محمود]

السلام عليكم

أخي العزيز

جرب هذا

 

 

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
    Cells(Target.Row, 1) = 1
ElseIf Not Intersect(Target, [B2:B100]) Is Nothing Then
    If IsDate(Target) Then Target.Offset(0, 7) = Month(Target)
Else
    Cells(Target.Row, 1) = Cells((Target.Row) - 1, 1) + 1
End If

End Sub

[الجازع]

اشكرك  يا استاذي الفاضل

ولاكن عند تنفيذ الكود يظهر خطأ

ElseIf Not Intersect(Target, [b2:B100]) Is Nothing Then في هذا السطر

[الجازع]

للرفع

[طارق محمود]

السلام عليكم

أخي العزيز

 

جرب هذا مرة أخري

 

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
    Cells(Target.Row, 1) = 1
Else
    Cells(Target.Row, 1) = Cells((Target.Row) - 1, 1) + 1
End If

If Not Intersect(Target, [B2:B100]) Is Nothing Then If IsDate(Target) Then Target.Offset(0, 7) = Month(Target)

End Sub

 

[الجازع]

يوجد خطأ

 

 

[طارق محمود]

السلام عليكم

تعديل طفيف آخر

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
    Cells(Target.Row, 1) = 1
Else
    Cells(Target.Row, 1) = Cells((Target.Row) - 1, 1) + 1
End If

If Not Intersect(Target, [B2:B100]) Is Nothing Then
        If IsDate(Target) Then Target.Offset(0, 7) = Month(Target)
End If
End Sub

 

مرفق الملف وبه الكود ومعه فيديو يوضح أنه شغال

COUNTIFS_2.rar

[الجازع]

استاذي الفاضل

اعتقد اختلاف الاصدار المستخدم من قبلي وقبلكم حيث اني استخدم Microsoft Office2007 يظهر لي خطأ

ولاكن قمت بأضافة on error resume next لكي  تعمل

و الحمد لله تعمل الان بشكل جيد

 

وشكراً

[طارق محمود]

الحمد لله