اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

السلام عليكم

 

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

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

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

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

تم تعديل بواسطه مختار حسين محمود
قام بنشر (معدل)

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

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

 

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

	

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

				
					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

تم تعديل بواسطه مختار حسين محمود
  • Like 2
قام بنشر

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

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

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

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

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

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

  • Like 1
قام بنشر

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

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

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

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

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

  • Like 1
قام بنشر

السلام عليكم

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

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

 

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

قام بنشر

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

 

 

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

 

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

  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information