حذف سجلات بين أوراق العمل- سعيد بيرم

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نسعين

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

اعاده الله عليكم جميعا باليمن والبركات

الموضوع

فى حالة إخلاء طرف الموظف لآى سبب يتم حذف سجل هذا الموظف بالكامل

هنا وحسب ترتيب الموظف كما فى المرفق 

يقع ترتيب الموظف " سعيد بيرم " رقم 7 بالشيت DATA 

وترتيبه وفقا لآساسى مرتبه رقم 20 بــــ sheet2 

فكيف يمكن حذف السجل بــــ sheet2 عند حذفه من الشيت DATA 

دون التأثير على باقى السجلات .... نرجو الافاده سواء بمعادله أوكود 

تقلبوا وافراحترامى وتقديرى .... وجزاكم الله خيرا

تم تعديل أكتوبر 13, 2013 بواسطه سعيد بيرم

[أبو سجده]

للرفع

[أم عبد الله]

أستاذنا الفاضل / سعيد بيرم

 

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

 

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

 

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

[أبو سجده]

أختنا الاستاذة الفاضلة / أم عبدالله

وكل عام وانتم بخير

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

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

السلام عليكم

لا ادري معيار الحذف عندك

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

حذف سجلات بين أوراق العمل- سعيد بيرم.rar

تم تعديل أكتوبر 13, 2013 بواسطه أبو حنين

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

السلام عليكم 

قمت بالتعديل على كود الاستاذ ابو حنين لإضافة رسائل تنبيهية واستخدمت مربع الأدخال للبحث عن الأسم بدل الخلية الصفراء

جرب الكود واخبرني عن النتيجة

Private Sub CommandButton2_Click()
Dim Last As Long, i As Long, Lr As Long, ii As Long
MySrchVal = Application.InputBox("بحث", "حذف", "ضع أسم البحث هنا")
T = Application.CountIf(Range("C2:C" & Cells(Rows.Count, "A").End(xlUp).Row), MySrchVal)
If T = 0 Then MsgBox "لأيوجد أسم مشابه": Exit Sub Else MyMsg = MsgBox(" هل ترغب بالحذف علماً بأنه لا يمكن إسترجاع البيانات بعد الحذف", 4, "تم العثور على الأسم")
If MyMsg = 6 Then
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, 3) = MySrchVal Then Range(Cells(i, 1), Cells(i, 4)).Delete Shift:=xlUp: Exit For
Next
With Sheets("Sheet2")
For ii = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
If .Cells(ii, 2) = MySrchVal Then .Range(.Cells(ii, 1), .Cells(i, 3)).Delete Shift:=xlUp: Exit For
Next
End With
End If
End Sub

[محمد السيد الشاطر]

استاذنا الفاضل سعيد برم / كل عام أنت بخير

استاذنا الفاضل عبد الله المجرب/ كل عام أنت بخير

استاذنا الفاضل أبو حنين/ كل عام أنت بخير

اختنا الفاضلة ام عبد الله / كل عام انت بخير

الاخ الفاضل جمال / كل عام انت بخير

هذه وجه نظر فقط مع احترامى الكامل لكل عضو بالمنتدى المتميز

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

وبرجاء عدم التعجل فى طلب الرد من الأخوة الأفاضل لأنهم لا يتأخرون ولكن كل  منا له مشاغلة الخاصة

معذرة اثقلت عليكم وتقبلوا حبى وتقديرى لكم جميعا

=====================================

تم نقل المشاركات المخالفة الى الموضوع المرتبط

تم تعديل أكتوبر 18, 2013 بواسطه عبدالله المجرب
توضيح سبب المشاركة

[أبو سجده]

أخى العزيز/ محمد الشاطر

السلام عليكم

انا معك فى الرأى تماما فوجهة نظركم فى محلها

ولكن يجب علينا التماس العذرللاخ جمال .... فالتمس لاخيك 70 عذرا

كان من المفترض عرض مايريد بموضوع مستقل ولكن !!!!

فهذا الموضوع متوقف على مايتم عرضه خلال أيام

قليله إن قدرالله تعالى لنا البقاء فى أحد أهم الموضوعات

التى تشغل بال الكثيرين من الساده العاملين بالتربية والتعليم

والله المستعان .... وجزاكم الله خيرا

تم تعديل أكتوبر 18, 2013 بواسطه سعيد بيرم

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

عذرا أخوتى ولكنى أريد معرفة من الأخ ( جمال ) المقصود فى كلام أخى ( محمد الشاطر )

لأن ليس هناك سوى 3 أسماء لأسم جمال فى هذا المنتدى

أسمى وأسم أستاذى ( جمال دغيدى )وأسم الأستاذ ( جمال عبد الناصر ) والموضوع الذى يتحدث عنه مبهم وغير واضح

فياريت مزيدا من التوضيح لعدم اللبس فى الأسماء وكلك توضيح الموضوع للفهم ، والأسف علية إذا كنت أنا أو غيرى

وشكرا

تم تعديل أكتوبر 18, 2013 بواسطه جمال عبد السميع

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

اظنه يقصد هذا gaaamaaal 

صاحب المشاركة السابقه لمشاركته (سيتم تعديل الموضوع ونقل المشاركات الى الموضوع المرتبط)

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

شكرا أستاذى ومعلمى ( عبد الله المجرب )

على التوضيح ، وكل عام وحضرتك بخير

وأسف للمشاركة السابقة لأن الغرض منها كان الرغبة منى لعدم الأساءة لأى زميل ، أو التعدى على مجهودة بأى صورة من الصور

تقبلوا تحياتى : وكل عام وحضراتكم بألف خير وسعادة ، وأدام الله بين الجميع الود والمحبة لأنها هى الباقية

[gaaamaaal]

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

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

انتهى الموضوع 

يُغلق