مساعدة في اتمام العمل

[حليم ناصر]

سادة الاعضاء سلام عليكم ورحمة الله تعالى وبركاته

اتمنى ان تكونو في احسن حال وفي صحة جيدة ان شاء الله

لي طلب اتمنى ان اجد عندكم الجواب

في احد المواضيع لاحد الاخوة كان  له جدول عادي يقوم بملئه بالمعلومات وانه عند الانتهاء من ملئه 

تبقى هناك عدة صفوف فارغة هنا كان طلبه انه يريد بمجرد الضغط على الخانة في  العمود A يختفي ذلك الصف 

 وقد اجابوه  بشكل انه عند الضغط على الخلية يغلق الصف

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

طبقت ذلك الماكرو عندي ونجح  

اردت تطبيقه في احد ملفات بها جداول عديدة ومرتبة وفي صفحات مهيئة للطباعة المشكلة انه مثلا في الصفحة الاولى عند اتمام العمل بها وتبقى عدة صفوف فارغة فانه عند تطبيق الماكرو سيقع خلل في الصفحات التي تحتها اي انها ستصعد الى الاعلى وستكون الصفحات غير منسقة للطباعة 

طلبي هو اضافة ماكرو اخر  عكس الماكرو السابق اي بمجرد ضغط على الخلية في  العمود لنجعله العمود B  يقوم باضافة صف اخر

او 

 

طلب ثاني له علاقة بالطلب السابق  لنفترض ان لدي الصفوف رقم 5 و8 و12 مغلقة انا اريد ماكرو عند الضغط في الخلية في الصف C يقوم بفتح الصف الموالي له

اي اذا قمت بالضغط على الخلية رقم 4 يقتح الصف رقم 5 

ستجدون المرفق به مثال

ارجو ان اجد الجوب عندكم 

وفي انتظار ردكم تقبلوا مني فائق التقدير والاحترام

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

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

 

جدول المبيعات.rar

[طارق محمود]

السلام عليكم

أخي العزيز

الحل علي الفرض الثاني أسرع

تفضل

 

إستبدل الكود الخاص بالورقة بالتالي

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LR As Integer
Dim nametodel As String
On Error Resume Next
LR = Cells(Rows.Count, 1).End(xlUp).Row
If LR < 8 Then LR = 8
Set myrg = Range("A8:A" & LR)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, myrg) Is Nothing Then
     nametodel = Target.Offset(0, 1).Value
    Justify = MsgBox(nametodel & " " & "هل تريد إخفاء الصف  ", vbYesNoCancel)
        If Justify = vbYes Then
        Target.EntireRow.Hidden = True
        End If
        
        If Target.Offset(1, 0).EntireRow.Hidden = True Then
            nametodel = Target.Offset(1, 1).Value
            J2 = MsgBox(nametodel & " " & "إذن هل تريد إظهار الصف التالي ", vbYesNoCancel)
            If J2 = vbYes Then Target.Offset(1, 0).EntireRow.Hidden = False
        End If
End If

End Sub

أو تفضل المرفق

جدول المبيعات2.rar

[حليم ناصر]

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

بارك الله فبك وجزاك الله خيرا         

اشكرك على هذا الرد السريع والرائع 

ومن باب حب المعرفة الماكرو الذي وضعته به ماكرو لغلق الخلية اوفتح الخلية الموالية لها ان كانت مغاقة وهو رائع 

انا احببت ان كان ممكن ماكرو وحيد يقوم فقط بفتح الخلية الموالية اذا كانت مغلقة ولتكن الخلايا التي نقوم بالضغط عليها في العمود B   وجزاكم الله خير

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

[حليم ناصر]

سلام عليكم

ممكن اجابة على الطلب في ردي السابق

[حليم ناصر]

ممكن اجابة