ابو ذكري

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

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

السلام عليكم ورحمة الله وبركاتة في الملف المرفق كود اخفاء الصفوف التي لا تحتوي على القيمة الموجودة في الخلية b2 برجاء تعديل الكود ليعمل على ورقة العمل ( ميزان العملاء فقط ) وكيف يمكن إضافة نفس الكود للعمل على ورقة عمل أخرى ولتكن ( ورقة2 ) مع رجاء حل مشكلة تنفيذ الكود فقط بتغيير قيمة الخلية b2 والضغط على انتر لانه بمجرد وضع الماوس على اي مكان في ورقة العمل يتم تنفيذ الكود وتقبلوا وافر احترامي ودعواتي اخفاء الصفوف بكود.rar

أخي الكريم جزاك الله كل الخير هناك درس كنت اتابعة وجربتة على هذا الكود وعمل بشكل رائع قمت بنسخ Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range, cel As Range Dim LR As Long, x As Long, y As Long LR = Sheets("ßÑæÊ ÚãáÇÁ").Range("B" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False Set rng = Sheets("ßÑæÊ ÚãáÇÁ").Range("B5:B" & LR) rng.Rows.EntireRow.Hidden = False For Each cel In rng If cel.Value = Sheets("ßÑæÊ ÚãáÇÁ").Range("B2") Then x = cel.Row y = x - 2 Rows("4:" & y).EntireRow.Hidden = True End If Next Application.ScreenUpdating = True End Sub مما ادى الى تنفيذ المطلوب بالضغط على ENTER مرة أخرى لكم جزيل الشكر الى ورقة العمل

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

السلام عليكم ورحمة الله وبركاتة بعد التحية لجميع الاخوة الكرام لي رجاء عند الاخوة خبراء ال VBA في الكود Sub hidunusee() Dim rng As Range Dim cell As Range Set rng = Range("a10:a30") For Each cell In rng If cell.Value <> 405 Then cell.EntireRow.Hidden = True End If If cell.Value = 405 Then cell.EntireRow.Hidden = False End If Next cell End Sub اريد استبدال القيمة 405 بقيمة متغيرة او قيمة خلية A1 مثلا تنفيذ الكود بمجرد الضغط على انتر العمل على ورقة عمل واحدة داخل الشيت مرفق ملف للتوضيح كروت عملاء.rar

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

ارجوا ان يكون هذا هو المطلوب Book1.rar

برجاء من الاخوة المشرفين او احد الاخوة الاعضاء ايجاد حل ان كان هناك حل او اخبارنا بان هذا الامر لا يمكن ان يتم لايجاد بدائل ممكنة ولكم جزيل الشكر ووافر الاحترام

السلام عليكم ورحمة الله اول زي بدء اتقدم بخالص الشكر والتقدير لكل الاخوة المشرفين والاعضاء في المنتدى لما يقوموا به من اسهامات عبقرية لحلول مشاكل المشتركين وارجوا ان اجد حلا لهذا الامر طرف عباقرة الاوفيس في اوفيسنا مرفق شيت كروت العملاء في ورقة العمل كروت العملاء يتم التعامل برقم العميل ونظرا لطول الصفحة فاتمنى كود إخفاء ما تحت خلية البحث حتى الكود الذي يتم البحث عنه في خلية البحث في الملف المرفق العميل رقم 0405 يبدأ من الصف 120 وهو مدى متغير وغير ثابت في حال الحث في خلية البحث عن 0405 يتم اخفاء الصفوف من 3 حتى 119 في الملف المرفق العميل رقم 0406 يبدأ من الصف 240 وهو مدى متغير وغير ثابت في حال الحث في خلية البحث عن 0405 يتم اخفاء الصفوف من 3 حتى 239 وفي حال البحث عن اول كود 0401 يتم اظهار كل ورقة العمل برجاء اقتصار العمل على ورقة العمل ( كروت العملاء فقط ) وتقبلوا كل التقدير والاحترام كروت عملاء.rar

مشكور أخي الكريم على مرورك واهتمامك مع العلم مع نسخ الاكواد الى ملف أخر لا تعمل فهل هناك اي شيء يجب علي تغييرة في الملفات التي ارغب في نقل الاكواد اليها لكي تعمل كما تعمل على ملفكم المرفق مرفق محاولتي لنسخ الاكواد لملف أخر ( لم يعمل ) وتقبل تحياتي نماذج.rar

الاخ الفاضل زيزو العجوز جزاك الله خيرا على مرورك واهتمامك برجاء مراجعة ما تم وارشادي للخطأ في التنفيذ مع خالص التقدير نماذج11.rar

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

=VLOOKUP(L1;قائمة!B4:D6;2;1)&" "&VLOOKUP(L1;قائمة!B4:D6;3;1)

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

الاخوة الاعزاء مشرفين واعضاء اوفيسنا المحترمين بعد التحية في الملف المرفق ورقتي عمل يوجد بينهم ارتباطات فهل هناك طريقة لتحديد الخلية التي يوجد بها الارتباط بمعنى انه في المصنف1 خلايا تم ارتباطها بخلايا أخرى في ملف المصنف ( المطلوب تحديد الخلية في المصنف التي يوجد بها معادلة الارتباط ) New folder.rar New folder.rar

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

الاخوة الكرام مشرفي وأعضاء منتديات اوفيسنا بعد التحية وتقديم وافر الاحترامات اتقدم لكم جميعا بخالص الشكر وخالص الدعوات للمولى عز وجل ان يجعل كل ما تقدموه لباقي الاعضاء في ميزان حسناتكم ويزيدكم من فضله وعلمة في الملف المرفق يتم طلب عمل تقرير شهري وسنوي عن مبيعات الشركة لكل عميل فبرجاء عمل معادلة لفرز اكواد العملاء من الأصغر الى الأكبر مع مراعاة عدم تكرار كود العميل ( لكي اتمكن من استخدام دالة sumif ) لتقديم التقارير المطلوبة في نهاية كل فترة وتفضلوا بقبول كل الاحترام 005 بيان مبيعات 2015م.rar

فعلا حل فعال وادى المطلوب اشكرك اخي الكريم وجزاك الله خيرا

الاخوة الافاضل مشرفي واعضاء منتدانا الرائع اوفيسنا بعد التحية والاحترام اعرض الاتي على حضراتكم نتعامل في الحسابات مع الارقام بشكل مخصوص فعلامة ال ( - ) غير موجودة في المحاسبة وتستبدل بكتابة الرقم بين قوسين اي رقم بين قوسين فهو رقم سالب اي ان - 500 = ( 500 ) والمطلوب كما في المرفق هل هناك معادلة تجمع ما بين القوسين على انه رقم سالب بمعنى ان تكون نتيجة المعادلة 1000 + ( 500 ) = 500 او 500 + ( 1000 ) = ( 500 ) وهكذا فهل هناك حل لهذا الامر الجمع بشرط.rar

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

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

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

اشكرك اخي الكريم ياسر خليل أبو البراء وجزاك الله عنا خير الجزاء وجعله في ميزان حسناتكم ان شاء الله

العمود رقم 1 هو العمود A العمود رقم 2 هو العمود B العمود رقم 3 هو العمود C فهل هناك دالة تفيد باسم العمود الذي رقمة 100 او ايا كان رقم العمود