كمال على طارق

وعليكم السلام-تفضل بما انك لم تقم برفع ملف للمطلوب ..فهذا الفيديو به طلبك

السلام عليكم فلابد من بدء أى مشاركة بالتحية ..وأيضاً عنوان مخالف جداً , فلابد من تعديل وتغيير عنوان المشاركة لما يتطابق ويتناسب مع طلبك وشكراً !!

بارك الله فيك استاذنا الجليل شحاته وجزاك الله كل خير على هذه الهدية الممتازة وشكراً لجهودكم الكريمة

أحسنت استاذى الكريم عمل ممتاز جعله الله فى ميزان حسناتك

أحسنت استاذى الكريم بارك الله فيك وزادك الله من فضله وجزاك الله خيراً أستاذنا الكبير عبد الله باقشير

أحسنت استاذ أشرف بارك الله فيك وزادك الله من فضله

وعليكم السلام-انتبه من فضلك لا يمكن تقديم المساعدة لأحد بدون رفع ملف مدعوم بشرح كافى عن المطلوب فلا يمكن العمل على التخمين وتجنباً لإهدار وقت كل من يطلع على مشاركتك دون جدوى أو أهمية !!

وعليكم السلام هدية قيمة ومقبولة بارك الله فيك وأكرمك الله

sabah2023 عليك بالضغط على أفضل إجابة !!!

ارفع من فضلك ملف موضح به المطلوب بكل دقة فلا يمكن العمل على التخمين !!!!

من فضلك عليك بتغيير عنوان المشاركة بما يتناسب مع طلبك كما عليك برفع ملف موضح به المطلوب بكل دقة مع وضع شكل النتائج المرجوة .فلا يمكن العمل على التخمين وتجنباً لإهدار وقت كل من يطلع على مشاركتك دون جدوى أو أهمية وشكراً

تفضل Sub Copying_yellow_cells() Dim i As Long, j As Long For i = 5 To Range("f" & Rows.Count).End(xlUp).Row For j = 1 To Columns("H").Column If Cells(i, j).DisplayFormat.Interior.Color = vbYellow Then Cells(i, "H").Value = Cells(i, j).Value Exit For End If Next Next End Sub نسخ الخلايا الملونة في العمود B.xlsm

تفضل هذا الفيديو وشكراً https://www.youtube.com/watch?v=_yQkEpB56QQ&ab_channel=mosalahtech

abdoghazal82 عنوان مخالف جداً لابد من تعديل وتغيير عنوان المشاركة ليعبر عن طلبك وحتى يسهل البحث بالمنتدى مستقبلاً لمن له مث طلبك !!!

Armia Nabil عنوان مخالف جداً لابد من تعديل وتغيير عنوان المشاركة ليعبر عن طلبك وحتى يسهل البحث بالمنتدى مستقبلاً لمن له مث طلبك !!!

سامر محمود عنوان مخالف جداً لابد من تعديل عنوان المشاركة ليعبر عن طلبك وحتى يسهل البحث بالمنتدى مستقبلاً لمن له مثل طلبك !!! بأن يكون العنوان هكذا تعديل معادلة فرق بين تاريخين وعمل تنسيقات شرطية

وعليكم السلام-تفضل هذا الفيديو به طلبك .. طالما انك لم تقم برفع ملف للمطلوب

2saad -عليك بالضغط على الإعجاب لهذه الإجابة الممتازة .وهذا هو أقل ما يقدم لمن فرج كربتك وحل مشكلتك ..وعليك أيضاً بتحديد أفضل إجابة ..وشكراً !!!!

كان لابد ان تبدأ مشاركتك بالتحية .. كما عليك تغيير عنوان المشاركة ليعبر عن طلبك ... فلا تنتظر المساعدة من أحد بدون رفع ملف مدعوم بشرح كافى عن المطلوب وذلك تجنباً لإهدار وقت كل من يطلع على مشاركتك دون جدوى أو أهمية ؟!!! فلا يمكن العمل على التخمين !! فعليك بالإطلاع على هذا الرابط فقد يفيدك https://www.researchgate.net/profile/Gomaa-Dawod/publication/335110972_qwad_albyanat_w_nzm_almlwmat_aljghrafyt_GIS_and_databases_in_ARABIC/links/5d514c064585153e594eeced/qwad-albyanat-w-nzm-almlwmat-aljghrafyt-GIS-and-databases-in-ARABIC.pdf

اطلبها من فضلك من السادة المشرفين .. فعليك بتحديد المشاركة المراد حذف المرفقات منها وشكراً

كان لابد من بدء مشاركتك بالتحية وكان لزاماَ عليك رفع ملف توضيحى لما تريد .. فكما تعلم يقيناً ان المنتدى تعليمى من المقام الأول وليس لتقديم البرامج الجاهزة !!!! أو يمكنك مشاهدة هذا الفيديو بما انك لم ترفع ملف

وعليكم السلام - يمكنك بإستخدام هذا الكود وتكراره لكل تكست بوكس على حده .. وطبعاً تم الرد بالكود وليس بملف لأنك لم تقم برفع ملف توضيحى من البداية لطلبك !!! Private Sub TextBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) With TextBox5 If IsDate(.Text) Then .Text = Format(DateValue(.Text), "dd/mm/yyyy") Else MsgBox "Not a date" Cancel = True End If End With End Sub

الشكر . كل الشكر لأستاذنا الكبير محمد هشام

وعليكم السلام-انتبه من فضلك فكان عليك استخدام خاصية البحث بالمنتدى فبه طلبك وأكثر !!! -تفضل وهذا برنامج أخر مشروح بالفيديو

أحسنت واحسن الله اليك وجعل الله هذا العمل فى ميزان حسناتك وبارك الله فى جهودكم