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

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

قام بنشر

السلام عليكم

الاخ الكريم / wzacc214

طلبك غير واضح بعض الشئ برجاء ارفاق ملف ليتم العمل عليه ويوضح الطلب اكثر

واليك كود من اعمال الاستاذ / عبد الله المجرب

لمعرفة آخر تاريخ ادخال في الخلية عسي ان ينفع معك لتستخدمه وتطوعة لطلبك


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

	 If Not Intersect(Target, Range("a1:a1000")) Is Nothing Then

	 VBA.Calendar = vbCalGreg

	 If IsEmpty(Target) Then

		 Target(1, 2).ClearContents

Else

		 With Target(1, 2)

			 .Value = Date

			 .EntireColumn.AutoFit

		 End With

	 End If

End If

End Sub


Book1.rar

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

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

أو أرفق ملف وأشرح به المطلوب

أخر تاريخ.rar

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

المقصود عندي ملف بة كشف عملاء ومن حين لاخر اقوم بعمل تقرير باخر تحديث لكشف العملاء كل علي حده واريد طريقة لمعرفة اخر تاريخ قمت بعمل تحديث لكشف العميل xx مثلا

قام بنشر

السلام عليكم

ارفق الملف الذي تعمل عليه

الاليه عند النقر على انشاء تقرير

نظيف تاريخ في خليه معينه

بحيث نستدعي قيمة الخليه فيوقت اردت معرفة اخر مرة ضغطت على زر التقرير

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