نــــ حلمي ــوّار

مواضيع ومشاركات اكثر من رائعة. شكرا للجميع وجزاكم الله خيرا

تفضل مرتبات-على.xls

السلام عليكم ورحمة الله وبركاته استاذ/ السيد المصري محاولة بالمرفقات حيث تم عمل ارتباطات للأوراق بالخلايا نفسها واخفاءها أما اذا كان مرادك اخفاء الاشكال نفسها يمكنك الانتظار hide1.xls

حل مؤقت به نوع من الصعوبة على قدر معرفتي الضئيلة كنت أتمنى ان يكون مبسط على أي مستخدم : بعد الاختيار من القائمة المنسدلة بالورقة m1 يتم البحث مع الإخفاء للأعمدة الغير مرغوب فيها حسب الوظيفة بالملف المرفق pass= 3599011

حل مؤقت به نوع من الصعوبة على قدر معرفتي الضئيلة كنت أتمنى ان يكون مبسط على أي مستخدم : بعد الاختيار من القائمة المنسدلة بالورقة m1 يتم البحث مع الإخفاء للأعمدة الغير مرغوب فيها حسب الوظيفة بالملف المرفق pass= 3599011 مرتبات.rar

السلام عليكم واجهتني مشكلة في تشغيل الكود على الملف الأصلي في الورقة m1 أرجوا ألا اثقل عليك الملف الأصلي في المرفقات وبه الكود أسعد الله جميع أوقاتكم بكل خير مرتبات.rar

لو تكرمت استاذ سليم الكود يعمل بشكل رائع لكن بعد نسخه للورقة الأصلية لا يعمل إلا بعد عمل قائمة منسدلة في خلية أخرى مثل B2 غير مرتبطة بمعادلات البحث INDEX والتنويه اليها في الكود حيث اختار أولا من قائمة الإخفاء ثم قائمة البحث أو العكس .. لكن لا يتم إخفاء الأعمدة مع البحث هل استمر على ذلك أم هناك خطأ مني؟ ولكم جزيل الشكر

جزاكم الله خيرا استاذ سليم .. هذا هو المطلوب بالتحديد شكرا جزيلا جعله الله في ميزان حسناتك

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

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

محاولة مني ولكن بائت بالفشل لأن الشروط كاملة لا أعرف كيفية تحقيقها بالكود مرتبات.rar مرتبات.rar

ممكن كود لإخفاء أعمدة محددة ثم إظهارها واخفاء أعمدة أخرى استنادا لتحديد قائمة منسدلة أو رجاء توجيهي لموضوع ذات صلة لأني بحثت ولم أجد كود يحقق الشروط المطلوبة ربما لأن معرفتي بالأكواد محدودة جداً، وجزاكم الله خيرا الشرح في المرفقات مرتبات.rar

تفضل أخي PrintWebBrowser.rar

تفضل كود من عمل استاذنا الفاضل دغيدي قم بعمل زر واستخدم الكود وسيقوم بعمل المطلوب Sub sama2012() Application.ScreenUpdating = False With ActiveSheet With .UsedRange For i = 1 To .Rows.Count If .Cells(i, 1).Value = "" Then .Cells(i, 1).EntireRow.Hidden = True End If Next i End With .PrintOut .Rows.Hidden = False End With Application.ScreenUpdating = True End Sub