كود رسالة تنبيه

[أبو عبد الملك السوفي]

السلام عليكم

أساتذتي الكرام أريد كود ينبهني إلى أن اسم الحلقة (العمود L)تكرر14 مرة ويأمرني بالانتقال الى الحلقة الموالية

وجزاكم الله كل خير

سجل القيد العام.rar

[أبو عبد الملك السوفي]

السلام عليكم

للرفع

[أبو حنــــين]

السلام عليكم

استعمل هذا الكود في الورقة

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Lr As Long, MyRn As Range
Dim x
    Lr = Cells(Rows.Count, "L").End(xlUp).Row
    Set MyRn = Range("L4:L" & Lr)
    If Target.Column = 12 Then
    For Each x In MyRn
    If Application.WorksheetFunction.CountIf(MyRn, x) = 14 Then GoTo 1
    Next
    End If
    Exit Sub
1
MsgBox "يرجى الانتقال الى الحلقة الموالية", vbInformation, "تنبيه"
ActiveCell = ""

End Sub

[أبو عبد الملك السوفي]

السلام عليكم

جزاك الله خير الجزاء أستاذنا

مبدع والله أسأل الله أن يبارك لك في عمرك وعملك

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

اخى واستاذنا

ابوحنين

تغييت تغييب

لكن دائما فى القلب

وحشتنا والله

وبتوحشنا مشاركاتك

ودائما ما نسعد حينا نرى مشاركاتك

بارك الله فيك

[أبو حنــــين]

السلام عليكم

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

[أبو حنــــين]

اخي ابراهيم

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

اشكرك على مرورك الطيب

احبك الله و حفظك و رعاك  وجعل الجنة مثواك