محمد التميمي قام بنشر ديسمبر 18, 2022 مشاركة قام بنشر ديسمبر 18, 2022 السلام عليكم اخواني الكرام في الملف المرفق لدي جدول اكسل لسجل الصادر. المطلوب اخواني الكرام : كيف لي ان امنع المواس او الكيبورد من الانتقال الى راس الجدول المجمد والعمود الاول (رقم الصادر) اي بمعنى التحرك والانتقال فقط في الخلايا باللون الاصفر لا حاجة لي بالانتقال لغير الخلايا الصفراء مع فائق الشكر والتقدير السجــــــــــل.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة وايلي حبيب قام بنشر ديسمبر 18, 2022 أفضل إجابة مشاركة قام بنشر ديسمبر 18, 2022 السلام عليكم مرفق لك الملف السجــــــــــل.xlsx 1 1 رابط هذا التعليق شارك More sharing options...
محمد التميمي قام بنشر ديسمبر 18, 2022 الكاتب مشاركة قام بنشر ديسمبر 18, 2022 الف شكر اخي العزيز (وايلي حبيب) ولكن ارجوا من جنابكم الكريم شرح بسيط لما فعلته والسبب انه عندي سجلات حكومية حتى اطبق عليهم نفس الغرض الف شكر رابط هذا التعليق شارك More sharing options...
وايلي حبيب قام بنشر ديسمبر 18, 2022 مشاركة قام بنشر ديسمبر 18, 2022 حياك اخوي محمد التميمي الطريقة ان شاء الله تكون سهوله 1- من تنسق الخلايا - تروح لـ حماية بعدين تختار - تم تامينها للخلاليا الي ماراح تحتاجها 2- طبق نفس الحركة للخلايا الي انت محتاجها ولكن عكس الحركة الاولة تشيل علامة الاختيار من خانة - تم تامينها تخليها بدون تامين 3- من مراجعة تختار - حماية ورقة البيانات - من مربعات الاختيارات شيل الاختيار الاول وخلي العلامة الصح فقط على / تحديد الخلايا غير المؤمنه اتمنى يكون واضح الشرح رابط هذا التعليق شارك More sharing options...
محمد التميمي قام بنشر ديسمبر 19, 2022 الكاتب مشاركة قام بنشر ديسمبر 19, 2022 شكرا اخي الكريم وصلت الفكرة بارك الله بجهودك رابط هذا التعليق شارك More sharing options...
وايلي حبيب قام بنشر ديسمبر 22, 2022 مشاركة قام بنشر ديسمبر 22, 2022 سلم عليكم حبيت اضيف لمسات على الملف اخوي /محمد التميمي تفضل سجل سنوي.xlsm 1 رابط هذا التعليق شارك More sharing options...
abdelfattahbadawy قام بنشر ديسمبر 22, 2022 مشاركة قام بنشر ديسمبر 22, 2022 ممكن أخى شرح الكود الذى أضفت لو تكرمت Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo 1 If Target.Column <> 5 Then Exit Sub ActiveSheet.Unprotect Password:="123" If Target.Offset(1, 0).Value <> "" And Target.Offset(-1, 0).Value <> "" Then Exit Sub If Target.Column <> 5 Then Exit Sub Application.EnableEvents = False If Target.Value <> "" Then Target.Offset(1).EntireRow.Insert Target.EntireRow.Copy Target.Offset(1).EntireRow On Error Resume Next Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents Target.Offset(1, -5).Select ActiveSheet.Protect Password:="123" End If On Error GoTo 0 Application.EnableEvents = True 1 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.