بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|

الحضرمي2017
01 New pie-
Content Count
45 -
Joined
-
Last visited
Community Reputation
2 NeutralAbout الحضرمي2017

-
Rank
Name
Profile Information
-
Gender (Ar)
ذكر
-
Job Title
muh
-
Location
اليمن
-
Interests
حضرموت
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
دالة شرطية تكتب تحت العمود فارغ او غير مكتمل او مكتمل
الحضرمي2017 replied to الحضرمي2017's topic in MS Excel
جزاك الله خير الجزاء والله شاكر لك ولا يحرمك ربي أجر هذه الايام وحفظك الله وبارك الله لك في علمك -
السلام عليكم ورحمة الله وبركاته ووالله بدلت الجهد في المحاولة والبحث لكن ما هديت إلى شيء لذا لجأت إلى طلب المساعدة من اخواني : أريد دالة شرطية واحدة تقوم بالبحث في خلايا العمود المقابل فإذا وجدت جميع الخلايا فارغة تكتب تحت أو فوق العمود فارغ ، وإذا وجدت بعض الخلايا فيها بيانات تكتب غير مكتمل ، وإذا وجدت جميع الخلايا فيها بيانات تكتب مكتمل وجزاكم الله خير الجزاء بحث-خلايا.xlsx
-
المساعدة في التعديل على كود انشاء مجلد ووضع ملف الاكسل بداخله
الحضرمي2017 posted a topic in MS Excel
السلام عليكم ورحمة الله وبركاته ارجو المساعدة في التعديل على كود انشاء مجلد ووضع ملف الاكسل بداخله ونسخ قيم الخلايا فقط المشكلة التي تواجهني هي انه ينسخ معادلات الخلايا وانا اريد نسخ القيم فقط كذلك ارجو التكرم والتأكد من صحة اكواد انشاء المجلد ومن ثم وضع الملف بداخلها لأني بحثت في النت وجمعتها بعضها مع بعض لذا ارجو ممن لديه الخبرة التاكد لي لأني احيانا اجد ثقل اثناء انشاء الملف كذلك مشكلة اخرى تواجهني الا وهي ان الملف الجديد التي يتم انشاءه لا يتم غلقه تلقائيا jadeed.xlsm -
جزاك الله خير الجزاء والعفو منك يالغالي
-
ما ضبطت معي أخي الحبيب حيث أني لما انسخ الكود كأنه شيء يتغير فيه لأني قبل النسخ في شريط الصيغة الاحظ أقواس مثل هذه {} وأول ما احط المؤشر تختفي مباشرة ولما انسخ لا تضبط يطلع الترتيب كله الأول الأول ثم لا زال هناك شيء لا اريد أن يظهر وهو النقطتين فوق بعضهما بين الترتيب وكلمة مكرر الأول : مكرر لا اريد النقطتين وجزاك الله خيرا
-
آسف أخي الحبيب سليم والله ماكان قصدي الإساءة إليك بشيء أو أخذ ما ليس لي يمكن والله وقسما بالله عفوية والكل يعرفني هنا لذا ارجوا مسامحتي ومعذرتي على التطاول على حقوقكم وأسأل الله أن يعفو عني هذه الزلة أخي الحبيب لو تكرمت أبغا الترتيب يطلع بالشكل التالي 99 الأول 98 الثاني مكرر 98 الثاني مكرر 97 الثالث 94 الرابع 92 السادس 93 الخامس يكون بدون مكرر 1 أو مكرر 2 واكرر اعتذاري مرة أخرى والله ويعلم الله أن لم اقصد الاساءة لأنها ليست من طباعي الله يحفظك ويبارك في علمك ويزيدك من فضله
-
السلام عليكم ورحمة الله وبركاته كيف حالكم اخواني الاحبه اريد التكرم والمساعدة في التعديل على الملف بحيث يواصل الترتيب كما في الملف المرفق الأول الثاني مكرر الثاني مكرر الثالث الرابع الخامس وجزاكم الله خير الجزاء الترتيب.xlsm
-
جزاك الله خير الجزاء أخي سليم كأن الملف والله اعلم فيه خطأ لما تفتحه يطلب تحديث وقد حاولت ووجدت كأنه في ربط لملف على القرص D وقد حذفت وتقريبا انحلت المشكلة ولا أدري هل صحيح ما فعلته أم لا ؟ Choose_grade.xlsm
-
تفضل أخي الحبيب المصنف100.xlsm
-
يمكن أحد الاخوة يفيدك والله والله لا اعلم انا والله مثلك متعلم
-
تسطيع ذلك أخي الحبيب هذا الملف الخامس معدل.xlsm
-
المشكلة في الملف السابق كانت هنا فقط عدلت الرقم بدل 11 الى 1 فضبطت ولله الحمد والمنة
-
تم التعديل الخامس.xlsm
-
اريد كود vba لحفظ ملف داخل مجلد يتم انشاءه وفق شرطين
الحضرمي2017 replied to الحضرمي2017's topic in MS Excel
الاشكالية الوحيدة الان والتي آمل أن أجد من يسعفني في حلها الكود اللي في المشاركة سليم ويعمل تمام التمام الاشكالية في الاتي : 1- ان الملف الناتج يكون في الغالب بجانب الملف اللي اعمل به وهذا لا اريدة اريدة دائما وابدا ينشأ لي المجلد على سطح المكتب 2- ليس بتلك الاهمية وهو هل بامكاني أن أحدد النطاق الذي سيتم حفظه في الملف الجديد اذا أمكن -
اريد كود vba لحفظ ملف داخل مجلد يتم انشاءه وفق شرطين
الحضرمي2017 replied to الحضرمي2017's topic in MS Excel
جزاك الله خير أخي الحبيب طارق نادر تم حل الاشكالية ووالله مدري هل طريقة صحيحة أم لا المهم أني حذفت بعض الكلمات وضبط معي الأمر ولا أدري كيف Sub Macro1() Dim strFilename, strDirname, strPathname, strDefpath As String On Error Resume Next ' If directory exist goto next line strDirname = Range("a1").Value ' New directory name strFilename = Range("a2").Value 'New file name strDefpath = Application.ActiveWorkbook.Path 'Default path name If IsEmpty(strDirname) Then Exit Sub If IsEmpty(strFilename) Then Exit Sub MkDir strDefpath & "\" & strDirname strPathname = strDefpath & "