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

يا ريت كنت عايز تفقيط أرقام فقط (وليس عملة وبدون فقط) عربى انجليزى للأكسل

السلام عليكم ورحمه الله وبركاته شكرا على الرد يا جماعة ولكننى أريد كتب فى البرمجة بالاكسل (الاكواد) وليس كتب لتعليم الاكسل نفسه وشكرا

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

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

السلام عليكم ورحمه الله وبركاته كل سنه وانتم طيبين يا جماعة ارجو الرد يا جماعة لأن الموضوع هام جدا وخطير

يا استاذ الحسامى أرجو منك الرد على الموضوع 1- لقد وضعت الجزء الخاص بالتعديل وهو فى المشاركة الثانية حتى لا تتعب نفسك فى البحث 2- وأرجو اضافة كود لتجاهل الاخطاء فى الملفات المصدر حيث يظهر الخطأ التالى: This workbook contains one or more links that cannot be updated سارفق الكود مرة أخرى ' 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 أرجو الرد والاهتمام يا جماعة لأنى اديلى شهر كامل عايز احل الموضوع ده وما فيش حد راضي يرد عليا ولا يبل ريقى بأى رد شكرا جزيلا

يا ريت كنت عايز تفقيط أرقام فقط (وليس عملة وبدون فقط) عربى انجليزى للأكسل

شكرا يا أخ بن عليه دائما مبدع با أخ بن عليه ننتظر منك المزيد والمزيد

شكرا أخ أبو عبد الله على الرد هذا هو المطلوب ولكن أريد اختصار الدالتين فى دالة واحدة

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

لا يا أستاذ عبد الله المجرب أنا اريد أن أجمع عمودين العمود رقم مثلا 2،3 كما فى المعادلة: =VLOOKUP(a10,my_data,2+3,0)

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

السلام عليكم ورحمه الله وبركاته يا جماعة ارجو الرد على طلبى لقد وضعت الجزء الخاص بطلبي من الكود الكبير الذي بالاعلى لتحديد مكان التغيير هذا الجزء يختص بوضع البيانات بهذا الشكل: اسماء الملفات فى العمودA ، والبيانات فى العمودB فتكون البيانات كلها فى عمود واحد ' 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 اريد أن يكون التغيير كالتالى: ( يضع اسماء الملفات فى الصف رقم 1 ، والبيانات فى الصفوف التالية ) ------>> أى كل ملف له عمود (اسم الملف فى أول خانه ، والبيانات أسفله فى نفس العمود ) حيث لو عندنا 30 ملف ، يقوم الكود بوضع البيانات فى 30 عمود وشكرا

السلام عليكم ورحمه الله وبركاته هذا كود يقوم بتجميع بيانات من فولدر ووضعه فى ملف جديد بالشكل التالى: اسماء الملفات فى العمودA ، والبيانات فى العمودB فتكون البيانات كلها فى عمود واحد 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 = "E:\Excel work\Daily plant report\dog" ' 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("production") Set sourceRange = .Range("b2:b8") 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 لى طلبين : 1- اريد أن يقوم الكود بتجاهل أى أخطاء فى اللينكات الموجودة فى الملفات حيث تظهر الرسالة التالي:ه This workbook contains one or more links that cannot be updated أو أى أخطاء أخرى أريده أن يتجاهلها 2- أريد أن يقوم الكود (فى الملف الجديد الذي يقوم بنجميع البيانات به )بأن يضع اسماء الملفات فى الصف رقم 1 ، والبيانات فى الصفوف التالي أى كل ملف له عمود وشكرا

السلام عليكم ورحمه الله وبركاته أرجو أن يتم استكمال الموضوع لأنه بصراحه مفيد جدا جدا جدا جدا جدا جده جدا جدا

الله الله الله كم أنت كبير يا ابن الاكسل والله لعباتك يا امبراطور الاكسل هذا والله لهو الابداع شكرا شكرا شكرا

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

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

السلام عليكم ورحمه الله وبركاته اريد دالة تقوم بنفس عمل pivot table وذلك بخلاف دالة vlookup - index وشكرا

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

السلام عليكم ورحمه الله وبركاته اريد حل هذه المشكلة التى تواجهنى وهى وجود خلايا فارغة فى قائمة الvaildation حيث أننى أضع نطاق كبير لتلك القائمة لاستيعاب عناصر أخرى قد أضيفها لاحقاً ، واريد أيضا أن يتم ترتيب هذه القائمة تلقائيا عند أضافة عنصر جديد لها. (بالمعادلات أو الاكواد) وشكرا

سأقوم بتجزئة سؤالى : 1- اريد معرفة كيفية وضع سلسلة الملفات فى هذا الجزء من الكود الملفات باسم daily plant report 1/9/2011.xls إلى آخر الشهر ' 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()

اين الردود يا جماعه أين الردود يا استاذ Alidroos

اين الردود يا أخ alidroos اذا كان هناك أى شئ غير واضح قوللى يا أستاذ alidroos وشكرا جزيلا على الرد

شكرا أخ بن عليه على الرد