مختار حسين محمود قام بنشر ديسمبر 6, 2014 قام بنشر ديسمبر 6, 2014 (معدل) السلام عليكم الاستاذ أبو حنين طلب فى موضوع سابق بعنوان( كتابة التاريخ أو الوقت الحالى بمجرد الكتابه فى خليه اخرى ) طلب عمل توقيع بدلا من الوقت والتاريخ بمجرد الكتابه فى خليه اخرى. تلبيةً لطلبه عملت هذا الموضوع لتعم الفائده التوقيع بمجرد الكتابه فى خليه.rar تم تعديل ديسمبر 6, 2014 بواسطه مختار حسين محمود
۩◊۩ أبو حنين ۩◊۩ قام بنشر ديسمبر 6, 2014 قام بنشر ديسمبر 6, 2014 السلام عليكم اخى الكريم مختار سلمت يداك ويبقى طلب اخير اذا نم محو ما بخليه A يتم محو التوقيع فى الخليه B مع عدم تغير عرض العمود جزاك الله كل الخير
مختار حسين محمود قام بنشر ديسمبر 6, 2014 الكاتب قام بنشر ديسمبر 6, 2014 سلمت من كل شر عذرا الآن فلدىّ ظروف سأحاول التعديل وأوافيك إن شاء الله عاجلا
مختار حسين محمود قام بنشر ديسمبر 6, 2014 الكاتب قام بنشر ديسمبر 6, 2014 (معدل) تفضل أخى الكريم التوقيع بمجرد الكتابه فى اخرى مع حذف التوقيع بمجرد مسح محتوى الخليه التى كتبنا فيها الكود التالى يحقق لك ذلك الكود المستخدم يوضع فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A2:A10")) Is Nothing Then With Target(1, 2) .Value = Range("k1") If Intersect(Target, Range("A2:A10")) = "" Then .Value = "" End If End With End If End Sub التوقيع بشرط الكتابة.rar تم تعديل ديسمبر 6, 2014 بواسطه مختار حسين محمود 2
أبو محمد عباس قام بنشر ديسمبر 6, 2014 قام بنشر ديسمبر 6, 2014 السلام عليكم ورحمة الله وبركاته الاخ العزيز مختار حسين جزاكم الله خيرا ما شاء الله عمل اكثر من رائع وان شاء الله ستكون اسما بارزا في هذا الصرح الكبير نامل منكم مواصلة اعمالكم المميزة ومشاركاتكم القيمة تقبلوا فائق الاحترام والتقدير 1
مختار حسين محمود قام بنشر ديسمبر 6, 2014 الكاتب قام بنشر ديسمبر 6, 2014 الاخ العزيز أبومحمد عباس السلام عليكم ورحمة الله وبركاته مروركم الكريم شرف لى وللموضوع وأنا لازلت وسأظل تلميذاً لأساتذتى فى هذا الصرح العلمى الكبير و انه لشرف كبير أن أكون كذلك تقبلوا فائق الاحترام والتقدير 1
۩◊۩ أبو حنين ۩◊۩ قام بنشر ديسمبر 6, 2014 قام بنشر ديسمبر 6, 2014 السلام عليكم الاخ الجليل .. مختار حسين جزاك الله كل الخير .. وسلمت يداك عمل اكثر من رائع
۩◊۩ أبو حنين ۩◊۩ قام بنشر ديسمبر 6, 2014 قام بنشر ديسمبر 6, 2014 السلام عليكم الاخ الجليل .. مختار حسين حاولت تطبيق الكود الرائع ولاكن على اساس اضافة مجال اخر للكتابه ( F10:F2 )على ان يظهر التوقيع فى العمود G الا انى لم اتمكن من ذلك اين الخطاء Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A2:A10")) Is Nothing Then With Target(1, 2) .Value = Range("k1") If Intersect(Target, Range("A2:A10")) = "" Then .Value = "" End If Else If Not Intersect(Target, Range("F2:F10")) Is Nothing Then With Target(1, 2) .Value = Range("k1") If Intersect(Target, Range("F2:F10")) = "" Then .Value = "" End If End If End Sub
ابو القبطان قام بنشر ديسمبر 6, 2014 قام بنشر ديسمبر 6, 2014 استاذ : مختار ، اضم صوتي لصوت الاستاذ : ابو محمد عباس اعمالك ممتازه وتستحق التقييم 1
مختار حسين محمود قام بنشر ديسمبر 7, 2014 الكاتب قام بنشر ديسمبر 7, 2014 الأستاذ الفاضل أبوحنين سأحاول تحقيق طلبك وتعديل الكود كما تريد الكابتن أبوالقبطان ,,,,,,, كابتن منتدانا العظيم أما فأعمالى فهى جنب أعمالكم لا تذكر ......شرفنى مروركم الكريم 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.