ابوالزوز قام بنشر مايو 5, 2008 الكاتب مشاركة قام بنشر مايو 5, 2008 (معدل) السلام عليكم ،، أخواني .. النداء قبل الأخير أرجو إفادتي بطريقة لمعرفة الخلية المرجع أي الخلية التي يظهر محتواها في مربع النص أو القائمة المنسدلة بمعنى آخر الإتجاه العكسي لعملية إدخال البيانات عن طريق الفورم ... وبمعنى أوضح حتى يمكن التعديل والحذف من خلال الفورم نفس المرفق السابق وشكراً جزيلاً تم تعديل مايو 5, 2008 بواسطه abuzzouz رابط هذا التعليق شارك More sharing options...
ابوالزوز قام بنشر مايو 5, 2008 الكاتب مشاركة قام بنشر مايو 5, 2008 السلام عليكم ،، أخواني .. النداء قبل الأخير أرجو إفادتي بطريقة لمعرفة الخلية المرجع أي الخلية التي يظهر محتواها في مربع النص أو القائمة المنسدلة بمعنى آخر الإتجاه العكسي لعملية إدخال البيانات عن طريق الفورم ... وبمعنى أوضح حتى يمكن التعديل والحذف من خلال الفورم نفس المرفق السابق وشكراً جزيلاً رابط هذا التعليق شارك More sharing options...
ابوالزوز قام بنشر مايو 6, 2008 الكاتب مشاركة قام بنشر مايو 6, 2008 (معدل) السلام عليكم ,, أخواني يسعد صباحكم لو تكرمتم بقي لدي استفسارين وأنتهي من الملف لذا أرجو منكم مساعدتي على حلهما أو على الأقل إبداء الرأي بهما أكون لكم من الشاكرين كما أشكر جميع الأعضاء والخبراء الأساتذة الذين ساعدوني من خلال مشاركاتهم السابقة الرائعة حقاً والتي استفدت منها كثيراً في التوصل إلى كثير من الأفكار الشرح في الملف المرفق تقبلوا تحياتي .. abuzzouz.rar تم تعديل مايو 6, 2008 بواسطه abuzzouz رابط هذا التعليق شارك More sharing options...
ابوالزوز قام بنشر مايو 6, 2008 الكاتب مشاركة قام بنشر مايو 6, 2008 السلام عليكم ،، يا جماعة هل هناك شيء غير منطقي هل هناك شيء غريب لماذا لم يؤخذ موضوعي بشكل جدي هل لأني مضطر لا أدري ما سبب عدم الرد ولا حتى التعليق أتمنى أن يكون هذا التأخير خيراً شكراً لكم جميعاً على أية حال فنحن نبقى أخوة في الله تقبلوا جميعاً تحياتي .. رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مايو 6, 2008 مشاركة قام بنشر مايو 6, 2008 السلام عليكم 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 رابط هذا التعليق شارك More sharing options...
ابوالزوز قام بنشر مايو 6, 2008 الكاتب مشاركة قام بنشر مايو 6, 2008 السلام عليكم ،، تسلم إيديك أستاذ أبو أسامة فقد كنت أشك أن هناك شيء ناقص وياليت يجاب طلبي بإكمال ما تبقى شكراً جزيلاً لك .. رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مايو 6, 2008 مشاركة قام بنشر مايو 6, 2008 السلام عليكم لكن بحاجه الى عمل اضافى abuzzouz.rar رابط هذا التعليق شارك More sharing options...
ابوالزوز قام بنشر مايو 6, 2008 الكاتب مشاركة قام بنشر مايو 6, 2008 السلام عليكم ،، الله يعطيك ألف عافية أستاذي أبو أسامة فاهتمامك بموضوعي إنما يدل على كرم أخلاقك شكراً جزيلاً لك أما بالنسبة لآخر ملف أرسلته فلا أريد أكثر من ذلك فأنا أجد متعة في الإكتشاف والتجريب حتى أستطيع أن أصل إلى الحل بنفسي وهذا يساعدني أكثر على التعلم إلا أني أحتاج إلى من يرشدني إلى الخطوة الأولى ولي رجاء أن تحل لي مشكلة الترقيم التلقائي للتصفية حيث أنه عند تصفية البيانات يجب أن يظهر الترقيم متسلسلاً من رقم 1 وحتى آخر سطر للتصفية ثم يعود الترقيم عند اختيار الكل (يمكن تطبيق ذلك في الورقة رقم 2 في نفس الملف) إذا كان الموضوع صعباً أو أنه يحتاج إلى وقت فقط أعلمني بالخطوات الأولى أو بالفكرة التي يمكن أن أستند عليها في الحل وسوف أخبرك بالنتيجة لتقيمها لاحقاً أشكرك جزيل الشكر أستاذي الغالي تقبل تقديري واحترامي رابط هذا التعليق شارك More sharing options...
عبدالقادر غموزي قام بنشر مايو 6, 2008 مشاركة قام بنشر مايو 6, 2008 مشكورون جميعا على الموضوع و لقد في أمس الحاجة إلى زر حذف إنما لعدة أوراق و ليس لورقة واحدة سأحاول أن أطبق الكود على باقي الأوراق و أخبركم لاحقا. مشكورون جميعا مجددا. رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر مايو 6, 2008 مشاركة قام بنشر مايو 6, 2008 الاخ abuzzouz استخدم هذه الصيغة انسخ الصيفة التالية الى الخلية ( A2 ) ثم الى باقى عمود الترقيم =IF(B2="";"";SUBTOTAL(3;B$2:B2)) رابط هذا التعليق شارك More sharing options...
ابوالزوز قام بنشر مايو 7, 2008 الكاتب مشاركة قام بنشر مايو 7, 2008 السلام عليكم ،، شكراً أستاذي وأخي الغالي أبو تامر دائماً كالعادة أفكار بسيطة إلا أنها قوية شكراً لك ولكل الأخوة الذين تعبوا معي وأفادوني بخبراتهم وأعمالهم العظيمة والرائعة حقاً تقبلوا مني كل الإحترام والتقدير أخوكم abuzzouz رابط هذا التعليق شارك More sharing options...
ابوالزوز قام بنشر مايو 12, 2008 الكاتب مشاركة قام بنشر مايو 12, 2008 السلام عليكم ،، =IF(B2="";"";SUBTOTAL(3;B$2:B2)) أخي أبو تامر العزيز .. قمت بتطبيق الدالة السابقة بسحبها إلى كل العمود وقد كانت ناجحة بامتياز طبعاً إلا أن سؤالي كيف يمكن تطبيقها بالكود وليس يدوياً بحيث يكون الموضوع أكثر حرفية كما تعودنا منكم أساتذتنا الأفاضل تقبل شكري وتقديري رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.