skyblue قام بنشر يناير 21, 2012 مشاركة قام بنشر يناير 21, 2012 الاساتذة المشرفين والاعضاء الافاضل السلام عليكم ورحمة الله وبركاته وبعد برجاء المساعدة حسب المرفق BOOK1.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يناير 21, 2012 مشاركة قام بنشر يناير 21, 2012 السلام عليكم و رحمة الله وبركاته اخي الكريم اتذكر هذا الموضوع زمان اشتغلنا علية على اي حال ادور علية وان حصلته اوافيك به رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 21, 2012 مشاركة قام بنشر يناير 21, 2012 السلام عليكم ضع هذا الكود في زر أمر في ورقة 1 Sub Abu_Ahmed() Set MySh = Sheets("ورقة2") Select Case [D7].Value: Case Is <> 0 MySh.[e6] = [D7] MySh.[e11] = [D8] MySh.[e16] = [D9] MySh.[e21] = [D10] Case Else GoTo 1 End Select 1 End Sub رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يناير 21, 2012 مشاركة قام بنشر يناير 21, 2012 ارجو المعذرة أنا استعجلت في الرد وما فهمت مظبوط ولكن اتضحت الروئيا بعد رد اخي ابو احمد رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر يناير 21, 2012 الكاتب مشاركة قام بنشر يناير 21, 2012 ايو احمد اعجز ماذا اقول لك . لكن مشكور والف شكر على الحل . استاذ احمد زمان ايضا مشكور فلطالما تعملت منك الكثير . حفظكم الله رابط هذا التعليق شارك 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.