محتاج تعديل على الكود حد الصفحة

[ابو طيبه]

السلام عليكم استذتنا الاكارم

محتاج تعديل كود حد الصفحة عند اختيار اول مره ( YES او + او ++ او +++ ) من القائمة المنسدلة في أي خلية من الخلايا من O9 الى O16 فان خلية G10 تساوي Positive ويتم تنشيط الخلية T12 واذا لم تحتوي على (  YES او + او ++ او +++ ) فان خلية G10 تساوي Negative

مع جزيل الشكر

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim C As Range, b As Boolean
    For Each C In Range("O9:S16")
        If InStr(C.Value, "+") Then
            Range("G10").Value = "Positive": b = True: Exit For
        End If
    Next
    If b Then Exit Sub Else Range("G10").Value = "Negative"
    End Sub

 

الملف.xlsm

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

وضعت عهداً على نفسي ان لا أعمل مع اي ملف يحتوي فى خلايا مدمجة في جدول حيث يعمل اي كود

ما الغاية مثلاً من دمج 5 أعمدة (O,P,Q,R,S) فقط من اجل كتابة (+++)

تفضل يازالة الحلايا المدمجة  (مع الشرح اللازم لما تريد)

 

[ابو طيبه]

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

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

طبعاً

[ابو طيبه]

السلام عليكم قمت بالتعديل على الملف

اضافة لكود حد الصفحة عند اختيار اول مره ( yes او + او ++ او +++ ) من القائمة المنسدلة في أي خلية من الخلايا من E9 الى E16 فان خلية C10 تساوي Positive ويتم تنشيط الخلية F12 واذا لم تحتوي على (  yes او + او ++ او +++ ) فان خلية C10 تساوي Negative دون تنشيط اي خلية

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim C As Range, b As Boolean
    For Each C In Range("E9:E16")
        If InStr(C.Value, "+") Then
            Range("C10").Value = "Positive": b = True: Exit For
        End If
    Next
    If b Then Exit Sub Else Range("C10").Value = "Negative"
    End Sub

الملف.xlsm

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

الماكرو المطلوب  (كم هو اسهل العمل بدون خلايا مدمجة)

Dim RG As Range
Const P As String = "Positive"
Const N As String = "Negative"
Dim Mot
'+++++++++++++++++++++++++++++++++++++++++
Private Sub Worksheet_Change(ByVal Target As Range)
 Set RG = Range("E9:E16")
 Application.EnableEvents = False

If Not Intersect(Target, RG) Is Nothing _
    And Target.Cells.Count = 1 Then
        Select Case True
            Case Target.Value Like "#*"
             Mot = N
            Case Else
             Mot = P
        End Select
       If Range("C10") = "" Then
         Range("C10") = Mot
         If Mot = P Then Range("F12").Select
       End If
 End If
 
 Application.EnableEvents = True
End Sub

File_tiba.xlsm

[ابو طيبه]

استاذ سليم العزيز لم يتغير شيئ في الملف وبطى عند الاختيار من القائمة المنسدلة . محتوى الخليه c10 من

Negative الى 

Positive

لم يتغير  ولا يتم تنشيط f12 عند وجود yes او + او ++ او+++ في خلايا من e12 ال e16 تحياتي لحضرتك

تم تعديل مارس 4, 2021 بواسطه ابو طيبه

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

أنت طلبت    عند اختيار اول مره لذلك يتفذ الماكرة و اذا كانت الخلية  C10 فارغة

قم بتفريغ الحلية C10  ونفذ الماكرو

[ابو طيبه]

هل يمكن التعديلعلى ملف الذي ارسلته حيث اذا اخترنا yes او + او اكثر في خليه واحده او اكثر يتم ضهور positive ويتم تنشيط f12 وعند تغيير قيمه الخلايا ولم يبقى اي خليه تحتوي على yes او + او اكثر فان قيمه الخليه c10 تتحول الى negative 

او عند اختيار اي شيء من القائمة المنسدلة في اي خليه من الخلايا يتم تنشيط الخلية التي اسفلها 

مع جزيل الشكر

File.xlsm

تم تعديل مارس 4, 2021 بواسطه ابو طيبه