Ali Mohamed Ali

بسبب تاخرك فى الرد فقد تم حذفه اليك الشيت مرة اخرى-برجاء الإهتمام والرد تغيير اسم الخلية مع اسم الورقة.xlsm

لو ممكن ترسل الملف لمساعدتك

يمكنك تتبع هذا : https://support.office.com/ar-sa/article/استخدام-بيانات-ورقة-العمل-في-onedrive-c051a205-1c06-4feb-94d8-793b0126b53a وتتبع هذا الفيديو http://godialy.com/video/73_YJEg3FtU

ممكن استخدام هذا الكود فى حدث الصفحة Option Explicit Const WelcomePage = "Macros" Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Turn off events to prevent unwanted loops Application.EnableEvents = False 'Evaluate if workbook is saved and emulate default propmts With ThisWorkbook If Not .Saved Then Select Case MsgBox("Do you want to save the changes you made to '" & .Name & "'?", _ vbYesNoCancel + vbExclamation) Case Is = vbYes 'Call customized save routine Call CustomSave Case Is = vbNo 'Do not save Case Is = vbCancel 'Set up procedure to cancel close Cancel = True End Select End If 'If Cancel was clicked, turn events back on and cancel close, 'otherwise close the workbook without saving further changes If Not Cancel = True Then .Saved = True Application.EnableEvents = True .Close savechanges:=False Else Application.EnableEvents = True End If End With End Sub

جزاك الله كل الخير-وجعله فى ميزان حسناتك

هذا الملف به الأكواد وهذه ايضا صورتين للتوضيح لكيفية وضع الأكواد فى الملف التاريخ والوقت.xlsm

أهلا وسهلا بك فى منتدانا الكريم من الأفضل ارسال الملف للعمل عليه ولكن يمكنك وضع هذه المعادلة فى الخلية التى تريدها لإعطاء الوقت والتاريخ الحاليين =TEXT(TODAY(),"d/m/yyy")&" "&TEXT(NOW(),"hh:mm:ss") وهناك ايضا هذا الكود لجعل الوقت يعمل وشغال بأستمرار Sub Date_Time() On Error Resume Next 1 DoEvents N = Now Range("c13") = Format(N, "[$-F400]h:mm:ss AM/PM") T = T + 1 For r = 1 To 10000000: Next r GoTo 1 End Sub وهذا كود اخر يمكنك اضافته فى حدث الورقة بحيث اذا قمت بتسجيل اى شيء فى العمود B سيضهر لك التاريخ فى العمود C والوقت فى العمود D Private Sub Worksheet_Change(ByVal Target As Range) n = Now If Target.Column = 2 Then If Target = "" Then Cells(Target.Row, Target.Column + 1) = "" Cells(Target.Row, Target.Column + 2) = "" Exit Sub ElseIf Target <> "" Then Cells(Target.Row, Target.Column + 1) = Date Cells(Target.Row, Target.Column + 2) = Time End If End If End Sub بارك الله فيك

بارك الله فيك وجعله فى ميزان حسناتك وهذا هو الملف بدون حماية لتعم الفائدة World_Cup_Russia_2018_Chart_(Basic_Excel_2003)_Ver_1.00-unprotected.rar

هل تقصد هكذا Boook.xlsx

تفضل هذا ما طلبت بالمعادلات 1.xlsm

على فكرة الكود اسرع وادق من المعادلات

تفضل اخى

وعليكم السلام ممكن توضح أكثر للمطلوب على الشيت نفسه

أهلا وسهلا بك فى منتدانا الكريم تفضل اخى الكريم لعله المطلوب 1.xlsm

جرب هذا ترحيل نتائج البحث الى الشيت المستلمين.xls

تفضل استاذى الكريم 3مشكلة.xlsx

فى هذه الحالة يمكنك تجربة الملف التالى مشكلة2.xlsx

تفضل اخى الكريم مشكلة.xlsx

تفضل اخى الكريم وموقع فيديو الشرح بداخل الملف تحويل الصفوف الى اعمدة.xlsx

تفضل أستاذى وايضا يمكنك زيادة ما شئت من الصفوف بنفسك من قبل صف الإجمالى شيت فاضى.xlsx

تفضلى هذا حل بالمعادلات الى ان تقومى بارشادات استاذنا الكبير سليم صف ثاني.xlsm

أخى الكريم لقد قمت بالإضافة فى كل الصفحات تأكد من فضلك مرة اخرى جزاك الله كل خير

السلام عليكم أحبائى وأساتذتى أقدم لكم اليوم -موضوع عن البحث بمجرد كتابة اول حرف فى التكست بوكس لإظهار بيانات البحث فى الليست بوكس والإختيار منها بارك الله فيكم جميعا https://www.youtube.com/watch?v=CmkhFzH95ss البحث بمجرد كتابه اول حرف من خلال ليست بوكس .xlsm

معادلة رائعة استاذ زيزو بارك الله فيك أما اذا كان وضع الإسم المراد البحث به فى الأول أو الإسم الثانى-فتكون المعادلة كالتالى حيث تقوم بالعد سواء الإسم كان فى الأول او ثانى اسم =COUNTIF($B$2:$C$7,"*"&$A14 &"*") جزاكم الله كل خير

أخى الكريم يمكنك نقل مشاركتك الى قسم الأكسيس حتى يتم استجابتك فأنت الأن فى قسم الإكسيل جزاك الله كل خير