إزالة وإضافة قيمة معينة إلى خلية بمجرد الضغط على خلية معينة

[أبو أنس حاجب]

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

أساتذتي الأفاضل حفظكم الله

المطلوب عند اختيار أي اسم عميل من أي خلية في الصفحة الثانية (Sheet2) أي بمجرد اختيار الخلية يتم وضع علامة أكس في الخلية المقابلة لاسمه في العمود N في الصفحة الأولى(Sheet1) وعند اختياره مرة أخرى يتم إزالة علامة الأكس من الخلية المقابلة لأسمه.

أذا كان الأمر صعب في تحقيق الطلب بكامله يكفي الجزء الأول أي فقط أضافة علامة أكس بمجرد أختيار أسم العميل.

والله الموفق والمستعان

أبو أنس

Totals.rar

تم تعديل أغسطس 31, 2012 بواسطه أبو أنس حاجب

[عبدالله باقشير]

السلام عليكم

الاكواد كثيرة في الملف

يصعب من خلالها تنفيذ الطلب في الملف المرفق

عموما

ضع هذا الكود في حدث الورقة Sheet2

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cel As Range

Dim M As Integer, R As Integer

'----------

On Error GoTo 1

'----------

Set Cel = Sheet1.Range("LIST")

'----------

If Target.Address = Range("A12").Address Then

    M = WorksheetFunction.Match(CStr(Target), Cel.Columns(1), 0)

End If

'----------

1:

If Err Then

    Err.Clear

Else

    R = M + Cel.Row - 1

    With Cel.Worksheet

        If .Cells(R, "N") = "X" Then

            .Cells(R, "N").ClearContents

        Else

            .Cells(R, "N") = "X"

        End If

    End With

End If

Set Cel = Nothing

End Sub

Totals2.rar

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

سلمت يمينك استاذنا الكريم عبدالله باقشير (ابو علي)

وبالفعل كما قلت فالاكواد كثيرة

[عبدالله باقشير]

سلمت يمينك استاذنا الكريم عبدالله باقشير (ابو علي)

وبالفعل كما قلت فالاكواد كثيرة

جمعة مباركة اخي الحبيب عبدالله

الله يسلمك ويحفظك من كل مكروه

تقبل تحياتي وشكري

[جمال عبد السميع]

أستاذنا وعالمنا ( عبد الله بااقشير ) سلمت يمينك وأدامك الله لهذا الصرح عالما ومعلما

هذه محاولة بالمعادلات بسيطة أرجو أن تفيد أك تكون نواة لفكرة بالمعادلات

Book1.rar

[أبو أنس حاجب]

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

أساتذتي الأفاضل عبد الله باقشير أبا محمود حفظكم الله

أولاً أعتذر على التأخر في الرد وذلك لفرق التوقيت مع المشرق والمغرب العربي حيث يكون متقدم بين خمس إلى سبع ساعات حسب الدولة

أذا لا توجد أمكانية لتضبيط الأكواد في المرفق حتى يحقق المطلوب فلا ضير

على العموم جزاكم الله من الخير حتى ترضون وأعزكم ورفع قدركم

أبو أنس

تم تعديل سبتمبر 1, 2012 بواسطه أبو أنس حاجب

[محمد مصطفى ابو حمزة]

بارك الله لكم

[جمال عبد السميع]

شكرا أخي علي مرورك وكلماتك الطيبة بارك الله فيك