ياسر أحمد الشيخ

السلام عليكم ورحمه الله وبركاته اريد ترحيل بيانات لعدة ملفات فى الدليل E:/excel work/daily plant report / septemper والملفات اسمها daily plant report 1-9-2011 إلى نهاية الشهر 30/9 البيانات فى شيت production c85:c91 وهذا هو الملف المصدر وملف الترحيل وأرجو أيضا أن يتم عمل الشيتات التالية لنفس نطاق البيانات: sum-count-sumif(>12000)-countif(->12000) average-if وذلك بجانب شيت ترحيل البيانات دون اجراء أى عملية عليها الملفات فى المرفقات Daily plant report 01-09-2011.rar ملف الترحيل.rar

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

اين الردود يا جماعه

السلام عليكم ورحمه الله وبركاته اريد دالة اضافة مسافة فارغة بين كل كلمه وأخرى لاحظ الخلية تحتوي على 3 اسماء أو اكثر بالعربى وشكرا

أخى : أنا لا اعرف إزاى أضع البيانات داخل الاكواد (فانا جديد فى مجال الأكواد) فبرجاء أن تطبق عليه ولو بمثال صغير

السلام عليكم ورحمه الله وبركات ارجو ه أن يطبق أحد الأخوة على هذا الكود بمثال من عنده Sub MergeAllWorkbooks() Dim MyPath As String, FilesInPath As String Dim MyFiles() As String Dim SourceRcount As Long, FNum As Long Dim mybook As Workbook, BaseWks As Worksheet Dim sourceRange As Range, destrange As Range Dim rnum As Long, CalcMode As Long ' Change this to the path\folder location of your files. MyPath = "C:\Users\Ron\test" ' Add a slash at the end of the path if needed. If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\" End If ' If there are no Excel files in the folder, exit. FilesInPath = Dir(MyPath & "*.xl*") If FilesInPath = "" Then MsgBox "No files found" Exit Sub End If ' Fill the myFiles array with the list of Excel files ' in the search folder. FNum = 0 Do While FilesInPath <> "" FNum = FNum + 1 ReDim Preserve MyFiles(1 To FNum) MyFiles(FNum) = FilesInPath FilesInPath = Dir() Loop ' Set various application properties. With Application CalcMode = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False .EnableEvents = False End With ' Add a new workbook with one sheet. Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1) rnum = 1 ' Loop through all files in the myFiles array. If FNum > 0 Then For FNum = LBound(MyFiles) To UBound(MyFiles) Set mybook = Nothing On Error Resume Next Set mybook = Workbooks.Open(MyPath & MyFiles(FNum)) On Error GoTo 0 If Not mybook Is Nothing Then On Error Resume Next ' Change this range to fit your own needs. With mybook.Worksheets(1) Set sourceRange = .Range("A1:C1") End With If Err.Number > 0 Then Err.Clear Set sourceRange = Nothing Else ' If source range uses all columns then ' skip this file. If sourceRange.Columns.Count >= BaseWks.Columns.Count Then Set sourceRange = Nothing End If End If On Error GoTo 0 If Not sourceRange Is Nothing Then SourceRcount = sourceRange.Rows.Count If rnum + SourceRcount >= BaseWks.Rows.Count Then MsgBox "There are not enough rows in the target worksheet." BaseWks.Columns.AutoFit mybook.Close savechanges:=False GoTo ExitTheSub Else ' Copy the file name in column A. With sourceRange BaseWks.Cells(rnum, "A"). _ Resize(.Rows.Count).Value = MyFiles(FNum) End With ' Set the destination range. Set destrange = BaseWks.Range("B" & rnum) ' Copy the values from the source range ' to the destination range. With sourceRange Set destrange = destrange. _ Resize(.Rows.Count, .Columns.Count) End With destrange.Value = sourceRange.Value rnum = rnum + SourceRcount End If End If mybook.Close savechanges:=False End If Next FNum BaseWks.Columns.AutoFit End If ExitTheSub: ' Restore the application properties. With Application .ScreenUpdating = True .EnableEvents = True .Calculation = CalcMode End With End Sub

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

يا جماعه اين الردود اين الاخ عبدالله المجرب وأحمد زمان و يحياوي وبقيه الاخوة هل الموضوع صعب الكود موجود فى الرابط ولكننى لا أعرف كيف اعدل عليه لأطبق على ملفى وشكرا

السلام عليكم ورحمه الله وبركاته شكرا أخ عبد الله المجرب حل موفق ولكننى اريد بهذا الملف عندما أكتب اكتب رقم اليوم والشهر تظهر لى المدخلات من شيت data بتاعه هذا اليوم رجاء باستخدام الدوال

الطلب فى المرفق suppliers required.rar

يا جماعه اين الردود اين الاخ عبدالله المجرب وأحمد زمان و يحياوي وبقيه الاخوة هل الموضوع صعب الكود موجود فى الرابط ولكننى لا أعرف كيف اعدل عليه لأطبق على ملفى وشكرا

لقد وجدت معادلة ولكن اريد أن تأخذ منها دالة vlookup ك lookup value ولكنها تعطى خطأ

السلام عليكم ورحمه الله وبركاته عندى شيت به 3 خانات (واحدة لليوم والثانيه للشهر والثالثه للعام) اريد معادلة لدمج ال 3 خلايا لخانه واحدة تظهر التاريخ كاملا (يوم- سهر- سنه) وشكرا

السلام عليكم ورحمه الله وبركاته يا جماعه أنا وجدت موضوعا على الانترنت لكن بالانجليزية ارجو الشرح أو التطبيق على موضوعى باستخدام هذا الكود الموجود فى الرابط التالى Merging a Range from All Workbooks in a Folder الطلبين: 1- ارجو تطبيق الكود الموجود فى الرابط على موضوعى والشرح كيف اضع (اسم الفولدر واسماء الملفات والشيت والنطاق )بالكود (التنفيذ بذر ماكرو) 2- ارجو تبسيط الكود لأقوم بتنفيذه على ملف واحد مع فائق الشكر والتقدير لكل أعضاء المنتدى

السلام عليكم ورحمه الله وبركاته ازيكم يا جماعه الموضوع ده أنا وضعته فى موضوع سابق باسم جلب بيانات من أكثر من ملف باستخدام دالة indirect ولكن الان اريد تطبيق الموضوع باستخدام الاكواد الطلب مرة ثانيه: 1-اريد استيراد بيانات من 30 ملف لها اسم واحد باستخدام كود يمكن أن اكتب به اسماء الملفات واسم الشيت والنطاق 2- وكود آخر بسيط يقوم بالاستيراد من ملف واحد وأنا اكرره على باقى الملفات الفولدر الذى به الملفات هو: E:/excelwork/daily plant report/september والملفات باسم Daily plant report 1-9-2011 إلى نهايه الشهر

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

شكرا على هذه الطريقه الابداعية متشكر جدا هذا المنتدى ملئ بالعباقرة فعلاً شكرا

شكرا يا استاذ برقش لقد تم حل المشكله شكرا جزيلاً

السلام عليكم ورحمه اله وبركاته بناءً على كلامك يا أخ برقش ، إن الاكسل يتفوق على الوورد فى انشاء الجداول أما بالنسبه للترقيم : عندما أقوم بترقيم قائمه انجليزية أجد أن الارقام (الخاصة بالترقيم) تكون مكتوبه على اليمين بعكس النص الموجود على اليسار وشكرا

ارجو أن يتم وضع زر لتنفيذ كل كود (طلب) على حدة يعنى فى الشيت هناك نوعين من الكود(بناء على الطلبين) اذا هناك فى كل شيت زرين (زر لتنفيذ الكود الشامل - وآخر لتنفيذ الكود البسيط) وشكرا والله الموفق

تم حل المشكله رقم اتنين ولكن المشكله رقم 1 مازالت قائمة وهى: - عند كتابه ارقام مع نص سواء (عربى أو انجليزي ) تظهر الارقام بالانجليزيه

السلام عليكم ورحمه الله وبركاته شكرا يا أستاذ alidroos على الرد ولكن حضرتك قد نسيت أننى اريد 74 صف فى الصفحه الواحدة وارجو شرح كيف يتم عمل ذلك حيث أننى عندما اقوم بضبط فواصل الصفحات يدويا فاننى اجد فى المعاينه ان بعض الصفحات قد يتم تصغيرها فلا تملئ كامل صفحه الطباعه وشكرا جزيلا

السلام عليكم ورحمه الله وبركاته اريد ترحيل بيانات لعدة ملفات فى الدليل E:/excel work/daily plant report / septemper والملفات اسمها daily plant report 1-9-2011 إلى نهاية الشهر 30/9 البيانات فى شيت production c85:c91 ارجو وضع حلين: 1- كود واحد شامل لترحيل بيانات من عدة ملفات موجودة فى دليل واحد يحتوي على (اسم الملف - الشيت- نطاق البيانات - قائمة باسماء الملفات) 2- كود بسيط لترحيل بيانات من ملف واحد (يحتوي على اسم الملف والشيت ونطاق البيانات ) ويتم تكراره لبقيه الملفات وذلك لأانى احتاج الطلب الأول فى ترحيل بياانات عدة ملفات دفعه واحدة أما الطلب الثانى فاحتاجه لترحيل بيانات من ملف واحد (وممكن من عدة شيتات فى ملف آخر) هناك طلب آخير ليكتمل الملف : اريد عمل 5 شيتات آخرى : (sum-count-countif-sumif-countifs-average) لنفس النطاق وكل شيت يحتوي على الطلبين السابقين 1-2 وهذا هو الملف المرفق Production required.rar

السلام عاليكم ورحمه الله وبركاته ارجو ايضاح كيفيه عمل الدالة indirect بنفس المعطيات فى هذا الموضوع لأيجاد sum-average- sumif-countif-countifs-لنفس النطاق

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