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

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

قام بنشر (معدل)

السلام عليكم ،،

أخواني .. النداء قبل الأخير

أرجو إفادتي بطريقة لمعرفة الخلية المرجع أي الخلية التي يظهر محتواها في مربع النص أو القائمة المنسدلة

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

نفس المرفق السابق

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

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

أخواني .. النداء قبل الأخير

أرجو إفادتي بطريقة لمعرفة الخلية المرجع أي الخلية التي يظهر محتواها في مربع النص أو القائمة المنسدلة

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

نفس المرفق السابق

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

قام بنشر (معدل)

السلام عليكم ,,

أخواني يسعد صباحكم

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

أكون لكم من الشاكرين كما أشكر جميع الأعضاء والخبراء الأساتذة الذين ساعدوني من خلال مشاركاتهم السابقة الرائعة حقاً

والتي استفدت منها كثيراً في التوصل إلى كثير من الأفكار

الشرح في الملف المرفق

تقبلوا تحياتي ..

abuzzouz.rar

تم تعديل بواسطه abuzzouz
قام بنشر

السلام عليكم ،،

يا جماعة هل هناك شيء غير منطقي

هل هناك شيء غريب

لماذا لم يؤخذ موضوعي بشكل جدي

هل لأني مضطر

لا أدري ما سبب عدم الرد ولا حتى التعليق

أتمنى أن يكون هذا التأخير خيراً

شكراً لكم جميعاً على أية حال فنحن نبقى أخوة في الله

تقبلوا جميعاً تحياتي ..

قام بنشر

السلام عليكم

Combo_emp.Value = Sheet2.Range("C65536").End(xlUp).Value
عوضا عن هذا
Private Sub Comm_last_Click()
LastRw = Sheet2.Range("C65536").End(xlUp).Row
LastName = "C" & LastRw
Combo_emp.Value = Sheet2.Range(LastName)
''Combo_emp.Value = Sheet2.Range("C65536").End(xlUp).Row       ' كود غير عملي
End Sub

الكود عملى لكن اخره .value وليس .row

قام بنشر

السلام عليكم ،،

تسلم إيديك أستاذ أبو أسامة فقد كنت أشك أن هناك شيء ناقص

وياليت يجاب طلبي بإكمال ما تبقى

شكراً جزيلاً لك ..

قام بنشر

السلام عليكم ،،

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

شكراً جزيلاً لك

أما بالنسبة لآخر ملف أرسلته فلا أريد أكثر من ذلك فأنا أجد متعة في الإكتشاف والتجريب حتى أستطيع

أن أصل إلى الحل بنفسي وهذا يساعدني أكثر على التعلم إلا أني أحتاج إلى من يرشدني إلى الخطوة الأولى

ولي رجاء أن تحل لي مشكلة الترقيم التلقائي للتصفية حيث أنه عند تصفية البيانات يجب أن يظهر الترقيم متسلسلاً من رقم 1

وحتى آخر سطر للتصفية ثم يعود الترقيم عند اختيار الكل (يمكن تطبيق ذلك في الورقة رقم 2 في نفس الملف)

إذا كان الموضوع صعباً أو أنه يحتاج إلى وقت فقط أعلمني بالخطوات الأولى أو بالفكرة التي يمكن

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

أشكرك جزيل الشكر أستاذي الغالي

تقبل تقديري واحترامي

قام بنشر

الاخ abuzzouz

استخدم هذه الصيغة

انسخ الصيفة التالية الى الخلية ( A2 )

ثم الى باقى عمود الترقيم

=IF(B2="";"";SUBTOTAL(3;B$2:B2))

قام بنشر

السلام عليكم ،،

شكراً أستاذي وأخي الغالي أبو تامر دائماً كالعادة أفكار بسيطة إلا أنها قوية

شكراً لك ولكل الأخوة الذين تعبوا معي وأفادوني بخبراتهم وأعمالهم العظيمة والرائعة حقاً

تقبلوا مني كل الإحترام والتقدير

أخوكم abuzzouz

قام بنشر

السلام عليكم ،،

=IF(B2="";"";SUBTOTAL(3;B$2:B2))

أخي أبو تامر العزيز .. قمت بتطبيق الدالة السابقة بسحبها إلى كل العمود وقد كانت ناجحة بامتياز طبعاً

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

تقبل شكري وتقديري

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information