اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

السلام عليكم

 

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

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

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

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

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

السلام عليكم

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

سلمت يداك 

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

اذا نم محو ما بخليه 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

تم تعديل بواسطه مختار حسين محمود
  • 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
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information