حذف بيانات

[أبو زهرة]

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

ولكم جزيل الشكر

Book99.rar

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

السلام عليكم اخي محمد

اليك ما طلبت

الكود لا يخفي اكثر من اسم واحد كل مرة منعاً للأخطاء

Book99.rar

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

اخى محمد

هل تقصد هكذا

 

Book99.rar

[أبو زهرة]

جزاك الله خيرا استاذ / سليم

جزاك الله خيرا استاذ / ابراهيم

الحل الذى ارفقته أستاذ /  ابراهيم هو المطلوب .فانا اريد حذف البيانات المتعلقة بالاسم وليس اخفاءه

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

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

[محمد الورفلي1]

استاذ سليم اذا كان مثلاًُ في العمود k كلمة منتقل و ناجح و راسب  واريد معادلة عند وجود كلمة منتقل في احدي الخلية  يختفي  الصف الذي به الكلمة فقط تلقائي هل هذا ممكن في الاكسيل

 

 

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

استاذ محمد

بعد السلام/تستطيع ذلك عبر وضع الكود في الصفحة وليس في General module

انما في الصفحة المعنية تحت هذا العنوان

(Private Sub Worksheet_SelectionChange(ByVal Target As Range

اكتب الكود هنا

End Sub

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

استاذ محمد 

انا وضعت الكود خصيصاً ليخفي البيانات وليس حذفها

لأن بإخفائها تستطيع ان تتراجع !/أما بالحذف فلا

[محمد الورفلي1]

اخي سليم كذالك ان طلبت اخفاء صف وليس حذف ولكن علي ان يكون الشرط في اى خلية في العمود  F وتكون الكلمة منتقل وياريت يتم تنفيذها لاني لم افهم طريقة وضع الكود

[أبو زهرة]

اخى محمد

هل تقصد هكذا

السلام عليكم. هل يمكن عمل حذف لبيانات الصف .دون نقل البيانات لاعلى بعد الحذف. بمعنى ان يظل الصف فارغ فى مكانه

ولكم جزيل الشكر

[أبو زهرة]

 

اخى محمد

هل تقصد هكذا

السلام عليكم. هل يمكن عمل حذف لبيانات الصف .دون نقل البيانات لاعلى بعد الحذف. بمعنى ان يظل الصف فارغ فى مكانه

ولكم جزيل الشكر

 

Book99_2.rar

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

اخى محمد

جرب الكود الاتى

Private Sub CommandButton1_Click()
Dim Last As Long, i As Long
With æÑÞÉ1
    Last = .Cells(Rows.Count, "b").End(xlUp).Row
    For i = Last To 3 Step -1
        If .Cells(i, 2) = Me.ComboBox1 Then
            .Cells(i, "b").Resize(1, 10).Clear
        End If
    Next
End With

End Sub