التوقيع فى خليه بمجرد الكتابه فى أخرى

[مختار حسين محمود]

السلام عليكم

 

الاستاذ أبو حنين طلب فى موضوع سابق بعنوان( كتابة التاريخ أو الوقت الحالى بمجرد الكتابه فى خليه اخرى )

طلب عمل توقيع بدلا من الوقت والتاريخ  بمجرد الكتابه فى خليه اخرى.

تلبيةً لطلبه عملت هذا الموضوع لتعم الفائده

التوقيع بمجرد الكتابه فى خليه.rar

تم تعديل ديسمبر 6, 2014 بواسطه مختار حسين محمود

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الكريم مختار

سلمت يداك 

ويبقى طلب اخير

اذا نم محو ما بخليه A يتم محو التوقيع فى الخليه B

مع عدم تغير عرض العمود 

جزاك الله كل الخير

[مختار حسين محمود]

سلمت من كل شر

 

عذرا الآن فلدىّ ظروف

سأحاول التعديل وأوافيك إن شاء الله عاجلا

[مختار حسين محمود]

تفضل أخى الكريم    التوقيع بمجرد الكتابه فى اخرى

مع حذف التوقيع بمجرد مسح محتوى الخليه التى كتبنا فيها 

 

الكود التالى يحقق لك ذلك

  الكود المستخدم يوضع فى حدث الورقة              

				
					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 بواسطه مختار حسين محمود

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاخ العزيز مختار حسين جزاكم الله خيرا

ما شاء الله عمل اكثر من رائع

وان شاء الله ستكون اسما بارزا في هذا الصرح الكبير

نامل منكم مواصلة اعمالكم المميزة ومشاركاتكم القيمة

تقبلوا فائق الاحترام والتقدير

[مختار حسين محمود]

الاخ العزيز أبومحمد  عباس

السلام عليكم ورحمة الله وبركاته

مروركم الكريم شرف لى وللموضوع

وأنا لازلت وسأظل تلميذاً  لأساتذتى فى  هذا الصرح العلمى الكبير و انه لشرف كبير أن أكون كذلك

تقبلوا فائق الاحترام والتقدير

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الجليل .. مختار حسين

جزاك الله كل الخير .. وسلمت يداك 

عمل اكثر من رائع

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الجليل .. مختار حسين

حاولت تطبيق الكود الرائع ولاكن على اساس

 

اضافة مجال اخر للكتابه ( 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

[ابو القبطان]

استاذ : مختار ، اضم صوتي لصوت الاستاذ : ابو محمد عباس

اعمالك ممتازه وتستحق التقييم

[مختار حسين محمود]

الأستاذ الفاضل أبوحنين سأحاول تحقيق طلبك وتعديل الكود كما تريد

 

 

الكابتن أبوالقبطان ,,,,,,, كابتن منتدانا العظيم  

 

أما فأعمالى فهى جنب أعمالكم  لا تذكر  ......شرفنى مروركم الكريم