اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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

تم تعديل بواسطه سليم حاصبيا

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