ابو طيبه قام بنشر مارس 9, 2021 مشاركة قام بنشر مارس 9, 2021 السلام عليكم بعد الاختيار من القائمة المنسدلة في العمود المحدد يتم تنشيط خليه اخرى او تنشيط الخلية السفلى التي تلي الخلية التي تم الاختيار منها مع جزيل الشكر لجهودكم File.xlsm رابط هذا التعليق شارك More sharing options...
Mohamed_Fouad قام بنشر مارس 9, 2021 مشاركة قام بنشر مارس 9, 2021 عليكم السلام - جرب هذا الملف Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect ActiveCell.Offset(1, 0).Select ActiveSheet.Protect End Sub File.xlsm 1 رابط هذا التعليق شارك More sharing options...
ابو طيبه قام بنشر مارس 9, 2021 الكاتب مشاركة قام بنشر مارس 9, 2021 مشكور استاذ محمد كيف يمكن دمج الكود مع اكواد الملف وبارك الله بيك رابط هذا التعليق شارك More sharing options...
ابو طيبه قام بنشر مارس 16, 2021 الكاتب مشاركة قام بنشر مارس 16, 2021 للرفع كيف يمكن دمج الكود اعلاه مع كود الملف لتنفيذ المطلوب مع جزيل الشكر والامتنان File .xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابو طيبه قام بنشر مارس 19, 2021 الكاتب أفضل إجابة مشاركة قام بنشر مارس 19, 2021 السلام عليكم الحمدلله تمت الاجابة على المطلوب من قبل الاستاذ ياسر العزير مشكوره جهوده من خلال هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D8")) Is Nothing Then Range("E9:E10").Value = "100" Range("E11:E12").ClearContents Range("E13:E14").Value = "yes" Range("E15:E16").ClearContents ElseIf Not Intersect(Target, Range("E9:E12")) Is Nothing Then Target.Offset(1).Select End If End Sub رابط هذا التعليق شارك 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.