يا خبراء الاكسل حلو لي مشكلتي هذه فلم اجد لها حلا ؟

[m_alshabrawy]

لو سمحتم كنت عايز مساعدتكم في طلبي

عايز لما اكتب نص في خلية A1 مثلا  الخلية D1 تعطيني سيريال رقم ١ 

ثم اذا محوت النص في الخلية A1 واعدت كتابة نص مرة اخري يعطيني في الخلية D1 سيريال رقم ٢ وهكذا

وشكرا للمساعدة

تم تعديل ديسمبر 7, 2018 بواسطه m_alshabrawy

[سليم حاصبيا]

جرب هذا الكود (في جدث الصفحة)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Static t%
Application.EnableEvents = False
If Target.Address = "$A$1" And Target.Value <> vbNullString Then
 Target.Offset(, 3) = t + 1
 t = t + 1
 End If
 Application.EnableEvents = True
End Sub

الملف مرفق

STATIC_NUM.xlsm

[m_alshabrawy]

شكرا جزيلا لحضرتك

 

طيب لو ملف اخر واريد تحديد خليتين غير A1  ,   D1

ما هي الطريقة لتحديد خليتين اخريين غير المشار اليهم عن طريق التغيير في الكود اللي حضرتك عملته 

مثلا اريد النص في F12     وخلية السيريال في B4

 

تم تعديل ديسمبر 7, 2018 بواسطه m_alshabrawy

[سليم حاصبيا]

شاهد هذا القيديو

https://www.youtube.com/watch?v=hJ7sVKI_zGU

 

[m_alshabrawy]

لم افهم من الفيديو المشار اليه
 

ممكن ايميل حضرتك لارسل لك ملفي لتغيير الخليتين المراد التعديل عليهم
حيث ملفي 1.5 ميجا والمتاح للتحميل علي موقعكم لا يتعدي 1 ميجا

تم تعديل ديسمبر 7, 2018 بواسطه m_alshabrawy