gamalin

الاخوة الافاضل ارجو التكرم بافادتي حول كود يعمل مع كل الصفحات الشرح لدي ملف به عده صفحات بها حسابات موردين ومشتريات واخر عملاء ومبيعات واريد تجميع هذه الصفحات تحت بعضها في صفحة واحدة واريد عمل كود كلما انفذه في صفحة ينقل بياناتها الى صفحة التجميع هذه محاولتي ولكنها لم تنجح ولا يرحل الا بيانات صفحة واحدة ولا ادري لماذا all.rar

الحمد لله تم انجاز المطلوب بالفلتر المتقدم على مرحلتين

ارجوا من الاخوة المشرفين ان يحاولوا المساعدة في هذا للاهمية شاكر لكم ارجوا ان يكون الطلب واضح

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

عند عمل import data من ملف نص وتسجيل الحركات بالماكروا لاعادتها مرة اخرى يسجل الماكرو مسار الملف النصي في الكود ويظل يجلب البيانات منه حتى بتغيير موضع ملف الاكسل هل يمكن تعديل الكود ليجلب البيانات من الملف النصي الموجود في نفس الفلدر وليس في المسار الاصلي لاستخدام الملف نفسه مع مجموعات متشابه في الاسم من الملفات النصية ؟ Sheets("1").Select With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;D:\2013\ãæÇÒíä ÊÍáíáíå\01.TXT", Destination:=Range("$A$1")) .Name = "01" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 1256 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileOtherDelimiter = ":" .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _ , 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With

الملف اهه ارجو سرعة الرد el-destor cash.rar

ارجو الاهتمام هل لترحيل التاريخ حاله خاصة هل هناك حل للمشكلة اعلاه مع العلم ان الخانة التي بها التاريخ هي e3

لدي ملف اقوم فيه بترحيل بيانات اذونات القبض والصرف ومنها تاريخ الاذن وعند محاولة البحث بواسطة ادفنسد فلتر عن الاذونات بالتاريخ المحدد واقوم بكتابته بيدي لا يجده وعند اخذ كوبي وبست يجده مرفق كود الترحيل المستخدم Sub post1() Application.ScreenUpdating = False On Error Resume Next Sheets("ÍÝÙ ÇáÈíÇäÇÊ").Visible = True Set myRng1 = Range("b3,e3,a2,b4,b8,b5,b6,b7,d7,f7,b9") If [b3] > 0 And [b5] > 0 And [b8] <> "" And [b6] <> "" Then With Sheets("ÍÝÙ ÇáÈíÇäÇÊ") N = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 For R = 1 To 11 .Cells(N, R) = myRng1.Areas® Next End With Else Application.ScreenUpdating = True MyAnswer = MsgBox("íÌÈ ÇßãÇá ÇÏÎÇá ÇáÈíÇäÇÊ - áã íÊã ÇáØÈÚ Çæ ÇáÍÝÙ", vbOK, "ãØáæÈ ÇáÅßãÇá") End End If Sheets("ÍÝÙ ÇáÈíÇäÇÊ").Visible = False End Sub

الاخوة الكرام جزاكم الله خيرا لدي نفس المشكلة وقمت بتعديل اللغة داخل صفحة الكود وبالفعل ظهرت الكتابة عربي والحمد لله لكن عند استخدام الكود في شيت الاكسل تظهر برضة النتائج غير عربية وغير مقرؤة فهل هناك حلول اخرى

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

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

جزاك الله خيرا

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

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

احاول اوضح اكثر المشكلة بفرض انه ورد الي مبلغ محول من عميل 105012 مثلا واريد ان اعرف هذا المبلغ يسدد اي فواتير له وكانت مبالغ الفواتير كما يلي 4012 1000 5000 10000 100000 اريد دالة او معادلة تبحث في احتمالات التباديل لتعطيني احتمالات المجاميع ليكون الاجابة مثلا في المثال اعلاه ان المبلغ يمكن ان يكون مجموع 4012 +1000 + 100000

السادة اعضاء ومشرفي قسم الاكسل لدي مشكلة وهي تتلخص في ان لدي رقم اريد ان اعرف ان كان يمكن الحصول عليه بتجميع عده ارقام اخرى ام لا مثال لدي ارقام 1 و 5 و 8 و 15 و 1.3 و 7 مثلا هل توجد معادلة تخبرني ان الرقم 9.3 هو ناتج جمع 8+1.3 هل يمكن التوصل الى اي صيغة تحل هذا اللغز علما بان هذا مثال مبسط لكني احتاجه مع عدد كبير من الارقام ولعديد من الحالات وليس بهذه البساطة ارجوا ان يكون الشرح والاستفسار واضح ارجوا لمن يعرف حلا ان يراسلني على الايميل m.gamalin@medstar-misr.com

الاخوة الافاضل لدي مشكلة في الكود التالي لا اعرف سببها Sub fifo_all() Sheets("sale").Activate Dim salrows As Integer salrows = Range("a1048576").End(xlUp).Row For r = 2 To salrows 'For r = 2 To 37078 Application.Run "!FIFO1" Next r End Sub الكود يتوقف ولا يعمل عند تعريف المتغير salerows السطر بالاحمر ويقبل وكمل العمل اذا اوقفته وكتبت بدلا من المتغير الرقم في دورة for علما بانه بالوقوف على كلمة salerows بالسطر الاصفر عند توقف الكود يكتب salerows = صفر على الرغم من عند الوقوف بالماوس على الطرف الاخر من المعادلة يعطي القيمة 37078 مشكلة اخرى بالكود التالي r = Sheets("sale").Cells(1, 10).Value + 1 الكود يعمل بكفاءة حتى يصل الى سطر معين في الشيت والعداد يعمل لينتقل الى السطر الذي يليه ثم يتوقف عند السطر 32767 في كل مرة ولا اعلم لماذا ويعطي نفس الخطأ السابق ان قيمة المتغير r = صفر علما بانه يعمل في كل الاسطر السابقة

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

جزاك الله خيرا اخي الكريم هو المطلوب ومثال رائع

ممتع سهل وبسيط وراااااااااائع جزاك الله خيرا وزادك من علمه ونفعك بما تعلم ونفع بك

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

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

جزاك الله خيرا اخي الكريم ابو عبد الله واشكر اخي طارق على اهتمامه جزاكما ربي الخير الكثير وزادكما علما ونفعكما بما تعلما

موضوعات التنمية البشرية .rar

الاخوة الافاضل لدي ملف به عدد من الخلايا تحتوي على روابط لصفحات انترنت واحتاج الى عمل فهرسة لهذه الروابط ولاتعامل معها واقوم يدويا باستعراض الhyperlink ونسخة واعادة لصقة في خلية مجاورة لكل خلية تحتوي على هذه الروابط ولكثرة هذه الخلايا احتاج الى كود او وظيفة تتعامل مع الهيبرلينك وتحضر العنوان وكذلك النص للعرض text to display & address اتمنى ان يكون الطلب واضح حاولت تسجيل ماكرو لعملية استعراض الرابط ونسخه و اعادة لصقه في الشيت ولكن الماكروا لم يسجل سوى عملية اللصق ولم يسجل فتح شاشة الرابط للتعديل ولا عملية النسخ ارجوا التكرم بافادتي فيهذا الامر شاكر حسن تعاونكم معنا