اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

وبه نسعين

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

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

الموضوع

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

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

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

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

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

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

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

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

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

 

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

 

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

 

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

السلام عليكم 

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

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

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
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

تم تعديل بواسطه عبدالله المجرب
توضيح سبب المشاركة
رابط هذا التعليق
شارك

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

السلام عليكم

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

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

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

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

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

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

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

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

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

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

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

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

وشكرا

تم تعديل بواسطه جمال عبد السميع
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
×
×
  • اضف...

Important Information