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

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

قام بنشر

أخي الكريم وائل

قم بإرفاق ملف مع التوضيح التام للمطلوب لتتضح صورة طلبك

أذكر أن هناك موضوع للأخ أبو عيد بهذا الخصوص .. استخدم خاصية البحث علك تجد ضالتك

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

أستاذنا الحبيب الأستاذ ياسر كل الشكر و التقدير لمرورك الكريم

أرفق لك الملف و فيه التوضيح للمطلوب

وكل الشكر و التقدير لجهودك

 

تاريخ التعديل.zip

تم تعديل بواسطه وائل يونس سلامي
قام بنشر

بارك الله فيك أخي الحبيب صلاح

أعتقد أن المطلوب التغيير في خلية واحدة ، لنفترض أن الخلية الهدف هي الخلية B3 جرب الكود بهذا الشكل

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$3" Then
        Dim LR As Long
        LR = Cells(Rows.Count, 7).End(xlUp).Row + 1
        
        Cells(LR, 6).Value = Target.Value
        Cells(LR, 7).Value = Date
        Cells(LR, 8).Value = Time
    End If
End Sub

 

 

  • Like 1
قام بنشر (معدل)
18 دقائق مضت, صلاح الصغير said:

ا / سليم

ممكن توضيح بسيط

الكتابة فى العمود الاول اين التغيير انا مش ملاحظ اى تغيير

عفوا

 

حاول نغيير قيمة اي خلي في العامود A

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

قبل كل شي كل عام و أنتم بألف خير          و تقبل الله طاعتكم 

وكل شكري و تقديري لكل الأساتذة الكرام الذين شاركوا في الحل 

وفقكم الله

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information