مختار حسين محمود قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 (معدل) السلام عليكم الاستاذ أبو حنين طلب فى موضوع سابق بعنوان( كتابة التاريخ أو الوقت الحالى بمجرد الكتابه فى خليه اخرى ) طلب عمل توقيع بدلا من الوقت والتاريخ بمجرد الكتابه فى خليه اخرى. تلبيةً لطلبه عملت هذا الموضوع لتعم الفائده التوقيع بمجرد الكتابه فى خليه.rar تم تعديل ديسمبر 6, 2014 بواسطه مختار حسين محمود رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 السلام عليكم اخى الكريم مختار سلمت يداك ويبقى طلب اخير اذا نم محو ما بخليه A يتم محو التوقيع فى الخليه B مع عدم تغير عرض العمود جزاك الله كل الخير رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر ديسمبر 6, 2014 الكاتب مشاركة قام بنشر ديسمبر 6, 2014 سلمت من كل شر عذرا الآن فلدىّ ظروف سأحاول التعديل وأوافيك إن شاء الله عاجلا رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر ديسمبر 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 رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 السلام عليكم ورحمة الله وبركاته الاخ العزيز مختار حسين جزاكم الله خيرا ما شاء الله عمل اكثر من رائع وان شاء الله ستكون اسما بارزا في هذا الصرح الكبير نامل منكم مواصلة اعمالكم المميزة ومشاركاتكم القيمة تقبلوا فائق الاحترام والتقدير 1 رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر ديسمبر 6, 2014 الكاتب مشاركة قام بنشر ديسمبر 6, 2014 الاخ العزيز أبومحمد عباس السلام عليكم ورحمة الله وبركاته مروركم الكريم شرف لى وللموضوع وأنا لازلت وسأظل تلميذاً لأساتذتى فى هذا الصرح العلمى الكبير و انه لشرف كبير أن أكون كذلك تقبلوا فائق الاحترام والتقدير 1 رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 السلام عليكم الاخ الجليل .. مختار حسين جزاك الله كل الخير .. وسلمت يداك عمل اكثر من رائع رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر ديسمبر 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 رابط هذا التعليق شارك More sharing options...
ابو القبطان قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 استاذ : مختار ، اضم صوتي لصوت الاستاذ : ابو محمد عباس اعمالك ممتازه وتستحق التقييم 1 رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر ديسمبر 7, 2014 الكاتب مشاركة قام بنشر ديسمبر 7, 2014 الأستاذ الفاضل أبوحنين سأحاول تحقيق طلبك وتعديل الكود كما تريد الكابتن أبوالقبطان ,,,,,,, كابتن منتدانا العظيم أما فأعمالى فهى جنب أعمالكم لا تذكر ......شرفنى مروركم الكريم 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان