باسنت العمري قام بنشر أغسطس 23, 2011 قام بنشر أغسطس 23, 2011 لقد وجدت هذا الكود بالمنتدى وهو أكثر من رائع ، ولكن حبذا مساعدتي لإظهار الصفوف بدل الأعمدة . مع شكري لكم ظهور.rar
هشام شلبى قام بنشر أغسطس 23, 2011 قام بنشر أغسطس 23, 2011 السلام عليكم ===== شاهد المرفق ظهور الصفوف2.rar
محمد يحياوي قام بنشر أغسطس 23, 2011 قام بنشر أغسطس 23, 2011 الاخ الحبيب "هشام شلبي" موفق دائما ان شاء الله
ياسر الحافظ قام بنشر أغسطس 23, 2011 قام بنشر أغسطس 23, 2011 السلام عليكم ===== شاهد المرفق استاذنا الكبير المشرف هشـــــــــــــــــــــــام : كنت احاول مساعدة الاخ صاحب الطلب " باسنت العمري " ولكنني لم افلح رغم انني كررت المحاولات عدة مرات وعندا شاهدت مرفقك عرفت تماما اين كان خطأي استفدت كثيرا اشكرك وجزاك الله كل الخير وفقك الله ياسر الحافظ " ابو الحارث "
يحيى حسين قام بنشر أغسطس 24, 2011 قام بنشر أغسطس 24, 2011 السلام عليكم و رحمة الله إخوتي يمكن اختصار الكود ليصبح Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) <> "B2" Then Exit Sub Rows("3:21").Hidden = Target.Value = "بنك" Rows("22:100").Hidden = Target.Value = "شركة" End Sub
باسنت العمري قام بنشر أغسطس 25, 2011 الكاتب قام بنشر أغسطس 25, 2011 السلام عليكم / أستاذي ( هشام سليم ) جزاك الله خيراً وجعل عملك في ميزان حسناتك ، كود أكثر من رائع والشكر لجميع أخواني اللذين حاولوا مساعدتي .
باسنت العمري قام بنشر أغسطس 25, 2011 الكاتب قام بنشر أغسطس 25, 2011 سؤال أرجوا مساعدتي والإجابة عليه عند إضافة جدول ثالث للمؤسسة وآخر للمكتب وآخر للمستودعات فإن الكود لايعمل . آمل مساعدتي ...... ظهور الصفوف 3.rar
heshamsh قام بنشر أغسطس 26, 2011 قام بنشر أغسطس 26, 2011 السلام عليكم ===== شاهد المرفق ظهور الصفوف3.rar
باسنت العمري قام بنشر أغسطس 26, 2011 الكاتب قام بنشر أغسطس 26, 2011 السلام عليكم / اخي و أستاذي (heshamsh) جزاك الله خير وأسعدك الله في الدنيا والآخرة .
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.