محمدي عبد السميع

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

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

حفظك ربنا ورعاك أيها العالم العلامة

ماشاء الله صوت عذب وشرح رائع جزاكم الله خيرا

ماشاء الله صوت عذب وشرح رائع جزاكم الله خيرا

العالم الكبير/ خبور خير حفظك الله ورعاك وحفظ أهل اليمن السعيد

بارك الله لك

جزاك الله كل خير ماشاء الله

ماشاء الله جزاك الله خيرا

ماشاء الله جعلك الله عونا للجميع

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

ماشاء الله عمل ولاأروع منه جزاك الله خيرا

ماشاء الله عمل ولاأروع منه جزاك الله خيرا

ماشاء الله عمل ولاأروع منه جزاك الله خيرا

وقد اخبرتك التالي الاطار الخاص بالشهادة الاولى استدلينه علية بالاسم وهو "Group 6394" الازار والتعليقات استدلينه عليها بنوعية الكائن نوع الكائن الزر هو msoFormControl او الرقم 8 نوع الكائن التعليقات هو msoComment او الرقم 4 =============================================== وساعطيك كود مختصر انت بعد استخدام زر المسح والخفظ سيبقى معاك فقط الاطارات التي قمت باضافتها وسيكون ارتفاع هذه الاطارات بعد حذف الصفوف العدد صفر اذن استخدم هذا الكود : Sub kh_Delete_Group() Dim shp As Shape Dim U As Integer For Each shp In Sheet3.Shapes If shp.Height = 0 Then shp.Delete: U = U + 1 Next shp MsgBox U End Sub جرب واخبرنا بالنتيجة أمدك الله ببسطة في العلم والحلم

من باب تجميع الاعمال المرتبطة بالعالم الكبير خبور خير لاستخراج الشهادات نضع هذه المشاركه == وقد اخبرتك التالي الاطار الخاص بالشهادة الاولى استدلينه علية بالاسم وهو "Group 6394" الازار والتعليقات استدلينه عليها بنوعية الكائن نوع الكائن الزر هو msoFormControl او الرقم 8 نوع الكائن التعليقات هو msoComment او الرقم 4 =============================================== وساعطيك كود مختصر انت بعد استخدام زر المسح والخفظ سيبقى معاك فقط الاطارات التي قمت باضافتها وسيكون ارتفاع هذه الاطارات بعد حذف الصفوف العدد صفر اذن استخدم هذا الكود : Sub kh_Delete_Group() Dim shp As Shape Dim U As Integer For Each shp In Sheet3.Shapes If shp.Height = 0 Then shp.Delete: U = U + 1 Next shp MsgBox U End Sub جرب واخبرنا بالنتيجة

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

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

ماشاء الله حفظك ربنا ورعاك

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

رابط يفيد في الموضوع بخصوص استخراج لشهادات http://www.officena.net/ib/index.php?showtopic=35401

رابط يفيد في الموضوع بخصوص استخراج الأوائل للاستاذ الكبير خبور http://www.officena.net/ib/index.php?showtopic=35409

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

لإثراء الموضوع استخراج البيانات إلى ورقة عمل أخرى إذا كانت قاعدة البيانات في Sheet1 ، يمكنك استخراج البيانات إلى sheet2 ، باستخدام التصفيه المتقدمه الذهاب إلى ورقة 2 حدد خلية في جزء غير مستخدمة من ورقة من القائمة بيانات ، اختر تصفية ، تصفية متقدمة اختر نسخ إلى موقع آخر. انقر في قائمة المربع نطاق . حدد ورقة 1 ، وحدد قاعدة البيانات. انقر في المربع نطاق المعايير. حدد نطاق المعايير انقر في نسخ إلى مربع. . حدد خلية في ورقة 2 التي تريد النتائج فيها ، أو حدد العناوين التي كتبته على ورقة 2. انقر فوق موافق

جزاك الله خيرا كثيرا == يوجد فورمه اريد تضبيطها مع الكود وشكرا ادراج صفوف كيماس.zip