حسام مصطفي

جزيل الشكر لسيادتكم بالفعل هذه هي الطريقه التي احتاجها ولكن عذرا يقوم الملف بوضع القيمه الأكبر من العدد في فئه ٢٠٠ ويضع في الباقي صفر او رقم ١ احتاج التعديل لان تصبح أرقام متفاوته كما في الصوره الأولى احتاجه كما في الصوره التانيه

استاذتي الافاضل عذرا بدايه لعدم إرفاق ملف حيث انني بالعمل واحتاج هذه المعادله او الكود ضروري واكتب موضوعي على الهاتف ========= احتاج لان اقوم بكتابه ( مبلغ) في خليه ويتم توزيعها بشكل عشوائي على فئات العمله ليصبح الاجمالي سليم ======= مثال لذلك المبلغ المراد توزيعه ( ٣٤١٥٦) الفئات : فئه ٢٠٠ x عدد ..... =...... فئه ١٠٠ xعدد ..... =...... فئه ٥٠ xعدد ..... =...... فئه ٢٠ x عدد ..... =...... فئه ١٠ x عدد ..... =...... فئه ٥ xعدد ..... =...... فئه ١ x عدد ..... =...... الاجمالي = ٣٤١٥٦ في انتظار رد حضراتكم وعذرا ضروري خالص تحياتي

السلام عليكم محتاج دالهif باكثر من شرط حيث انه لدي خليه قيمتها متغيرة مثلا اذا كانت قيمة الخلية 7 تكون قيمة الخلية في المعادلة %100 اذا كانت قيمة الخلية 10 تكون قيمة الخلية في المعادلة %125 اذا كانت قيمة الخلية 20 تكون قيمة الخلية في المعادلة %200 اذا كانت قيمة الخلية 0 تكون قيمة الخلية في المعادلة %75 معادلة لifباكثر من شرط

السلام عليكم استاذ/ نزار سليمان عيد بارك الله فيك رووووعه كما تمنيت بالضبط جزاك الله خيرا السلام عليكم استاذ/ سليم حاصبيا بارك الله فيك رووووعه كما تمنيت بالضبط كود ولا اروع ولا اجمل من ذلك وخفيف جدا جزاك الله خيرا

السلام عليكم مرفق سيادتكم ملف به عدد 2 شيت الشيت الاول به بيانات يتم تسجيله بشكل دوري ورا بعضها البعض بدون ترتيب وفي الشيت الثاني مطلوب تجميع عدد الاجازات حسب نوع الاجازة لكل موظف بناءا علي رقم ملف الموظف الملف المرفق يوضح اكثر كنت احاول استخدام دالة SUM IF تجميع ب sumif.xls

السلام عليكم اساتذتي الكرم احتاج الي زر للتعديل في سجل او صف معين في ليست بوكس فعندما اختار واحدد احد صفوف الليست بوكس تظهر القيم الخاصه بهذا الصف في تكستات بوكس فهل من الممكن التعديل في التكستات هذه ليتم التعديل في بيانات الليست بوكس فقط قبل الترحيل للشيت او تنفيذ اي شئ او هل هناك طريقة اخري لتنفيذ ذلك ومرفق ملف للاستاذ / حمادة عمر ... جزاه الله خيرا كمثال للعمل عليه في انتظار روائعكم اساتذتي مثال في الصورة لما هو مطلوب طريقة تصميم فورم بحث عن طريق لست بوكس5.xls

السلام عليكم استاذي الرائع / علي محمد جزاك الله خيرا الكود اتم المهمة علي اكمل وجه ولكن لي استفسار وتعقيب علي الكود ... قمت بوضع الكود بالكامل بملفي ولكن قمت بوضع الجزء التالي من الكود خاصتك فقط لزر المسح ويعمل بكفاءة .. فهل يؤثر ذلك علي عمل الكود ويوجد شئ ناقص لا اعلم Private Sub btnRemove_Click() Dim i As Long Dim rowsList As String For i = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Selected(i) Then ListBox1.RemoveItem i End If Next i End Sub وفي كل الاحوال ... بارك الله فيك وجعلك عونا للجميع وجعله في ميزان حسناتك استاذنا

السلام عليكم اساتذتي الكرام مرفق ملف للقدير الاستاذ / حمادة عمر .. جزاه الله خيرا به فورم بحث واظهار النتائج في ليست بوكس ... يتم كتابة الاسم في التكست بوكس فتظهر النتائج في ليست بوكس قمت باضافة زر مسج في الفورم اريد كود له يعمل علي مسح السجل او الصف الذي تم تحديده في الليست بوكس بالضغط علي زر المسح وذلك من الليست بوكس فقط وجزاكم الله خيرا في انتظار روائعكم طريقة تصميم فورم بحث عن طريق لست بوكس4.xls

السلام عليكم الاستاذ القدير الرائع / الـعيدروس جزاك الله خيرا الكود اكثر من راااائع وبصورة اكثر من رائعة وجديدة وجاري تنفيذ الكود علي ملفي لانه سيغير لي طريقة الملف بالكامل علي حسب فهمي المبدئي للكود وارجو من الله ان يتسع صدرك لاي استفسار بخصوص الكود والتعديلات التي من الممكن ان احتاجها علي حسب وقتكم تقبل خالص تحياتي

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

ولاثراء الموضوع جرب الاختيارات من تنسيق الخلايا باختيار تنسيق مخصص وتحديده

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

استاذ / سليم المعادلة تعمل في الملف المرفق بشكل سليم ولكن القيم التي يتم ترحيلها ليست صحيحة .. راجعها بنفسك فمثلا المفروض ان قيمه الحساب رقم 1120 باسم حساب 120 قيمته في يوم 1 هو 35 قيمه الحساب رقم 1120 باسم حساب 120 قيمته في يوم 2 هو 351.52 ولكن المرحل بالمعادلة اليوم 1 صحيح واليوم الثاني خطا .... وهكذا باقي الحسابات جزاك الله خيرا استاذي

عذرا علي تكرار كلماتي التالية ولكنه حققكم بالفعل حتي وان لم يتم حل موضوعي استاذي الفاضل / سليم حاصبيا والله لا اعرف كيف اشكرك أنت واستاذي / بن عليه بارك الله لكما وجزاكم الله خيرا اولا : لاهتمامكم لاكثر من مرة بالموضوع والعمل علي حل طلبي بالطريقة السليمه رغم ان الجميع يري ان الموضوع قد تم حله ولكن هذا لم يحدث معي حتي الآن ... فالعذر كل العذر ثانياً : علي تحملكم شخصي انا في طلبي الذي بدأت احس ان الخطأ لدي انا فعذرا ... رجاء لا تملوا مني بالنسبه لهذا الطلب استاذ / سليم قد قمن حضرتك بالرد علي في البدايه بكود جميل ولكنه يعمل بطريقه وضع اسم الحساب ورقيمته ولكني اريد وضع القيمة الخاصه بكل حساب امام حسابه في شيت 2 في يومه كما تم التسجيل في الشيت الرئيسي شيت 1 كقيم فقط لان اسماء وارقام الحسابات موجودة في شيت 2 والمطلوب يتم ترحيل القيم الخاصه بكل حساب في يومه ======================== اما بالنسبه للمعادلة الاخيرة المرفقه من حضرتك فشاهد استاذي ماذا يحدث عندما اقوم بتنفيذها في الخليه C//7 تظهر هذه الرسالة بعد وضع المعادلة والضغط Ctrl+Shift+Enter

استاذي الفاضل / بن عليه والله لا اعرف كيف اشكرك أنت واستاذي / سليم حاصبيا بارك الله لكما وجزاكم الله خيرا اولا : لاهتمامكم لاكثر من مرة بالموضوع والعمل علي حل طلبي بالطريقة السليمه رغم ان الجميع يري ان الموضوع قد تم حله ولكن هذا لم يحدث معي حتي الآن ... فالعذر كل العذر ثانياً : علي تحملكم شخصي انا في طلبي الذي بدأت احس ان الخطأ لدي انا فعذرا ... رجاء لا تملوا مني بالنسبه لهذا الملف استاذ / بن عليه شاهد النتائج بنفسك استاذي في الملف المرفق من سيادتكم التي تعطيها المعادلات ستجد ان النتائج تكون لاول قيمه فقط لاي حساب في اليوم اليوم الاول فقط ويتم درجها لاي حساب في بدايه اليوم التالي برجاء مشاهدة ذلك واخباري بالنتيجه وهل الخطأ موجود لدي انا فقط علي جهازي ام ماذا ... في انتظار رد سيادتكم جزاك الله خيرا

السلام عليكم الاستاذ الفاضل / بن علية حاجي جزاك الله خيرا علي مجهودك الرائع ولكن عذرا وسامحوني اساتذتي اصبحت أحس انني لحوح بعض الشئ .. فالتمس منكم العذر الملف المرفق من سيادتك بالتعديل يعمل بشكل رائع بالنسبة للبيانات الموجودة في الملف والتي تم العمل عليها من قبلكم ولكن عند اضافة يوم جديد في شيت1 مثلا يوم4 واضافة بعض الحسابات الجديدة أجد ان كل البيانات قد تم مسحها ولكن المعادلات موجودة وهذا موضح بالملف المرفق جزاكم الله خيرا ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم 1النتيجة - ا-بن عليه.xls

السلام عليكم الاخ الكريم / ابو الوفا سيد سليم هذه اول مشاركة لك في منتدانا الرائع .. الجميع هنا اخوة في الله .. وبان شاء الله ماتحتاجه بالضبط ستجده هنا باذن اله مع الاساتذة والخبراء وباقي الاعضاء ... فاهلا ومرحبا بك بين اخوانك في هذا الصرح العملاق ==================== بالنسبه لطلبك : ( سيتم الشرح علي الكود الخاص بك حيث انه خاص بالمعاينه وليس الطباعه ) ؟؟؟؟؟ هل الاوراق التي تقصدها في شيت واحد أي ( صفحه 1 - صفحه 2 - صفحه 3 - .... الخ ) يكون الكود الكتالي ( بتغيير المدي المحدد من قبلكم في أكثر من سطر في الكود ) ( لطباعة أكثر من مدي في نفس الصفحة sub طباعة() Sheet1.Range("a1:g29").PrintPreview Sheet1.Range("a30:g60").PrintPreview Sheet1.Range("a61:g90").PrintPreview End sub اما اذا كانت اوراق عمل مختلفة يتم تغيير اسم الشيت في البداية ليكون الكود كالتالي sub طباعة() Sheet1.Range("a1:g29").PrintPreview Sheet2.Range("a1:g29").PrintPreview Sheet3.Range("a1:g29").PrintPreview End sub وكما اخبرت حضرتك بان الكود المرسل منك خاص بالمعاينه فان اردت تغييره للطباعه المباشرة قم بتغيير .PrintPreview الي .PrintOut ارجو ان اكون قد وفقت في تنفيذ طلبك واي توضيح الجميع هنا في خدمه بعضهم البعض

السادة الافاضل اساتذة المنتدي لي طلب بسيط بالنسبة لكم ( ان شاء الله ) احتاج الي مساعدة فيه وهو لدي عدد 2 شيت : Sheet1 هو الشيت الرئيسي للتسجيل ويتم تسجيل البيانات اليومية فيه من خلال فورم بشكل يومي ) و Sheet2 هو الشيت المطلوب الترحيل اليه ولكن بشرطين ان يتم الترحيل حسب تاريخ اليوم وكذلك حسب رقم الحساب .. ولكن بالشكل الموجود في الملف ( حاولت استخدام if مع vlookup ) ولكن لم اتوصل لنتيجة في انتظار ردودكم ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم النتيجة.xls

السلام عليكم الاخ والاستاذ الكريم / حسين مامون جزاك الله خيرا هذا هو طلبي بالضبط وكما اريد تماما فوق فوق فوق الروووووووووووووووووعه مع وافر تحياتي لكم

السلام عليكم اساتذتي واخواني الكرام لدي طلب اعرف انه باذن الله صغير لكم ولكنه كبير عندي في الملف المرفق به فورم ... يوجد به صف مكون من ( كومبوبكس وعدد 3 تكست بوكس ) ويليهم زر اضافة والمطلوب : بعد تعبئة هذه العناصر بالبيانات يتم الضغط علي زر ( اضافة ) فيتم تسجيل البيانات في الليست بوكس اسفلهم ليصبح الليست بوكس به عدد 1 صف به بيانات ... ثم يتم تعبئة العناصر المذكورة مرة اخري وبالضغط علي زر ( اضافة ) يتم تسجيل البيانات الجديدة في الليست بوكس ليصبح به عدد 2 صف ... وهكذا بعد الانتهاء من التسجيل في الليست بوكس باستخدام زر الاضافة يتم ترحيل كافة الصفوف الموجودة في الليست الي صفحة الاكسيل باستخدام زر الترحيل باسفل الفورم ارجو ان اكون قد اوضحت المطلوب بصورة واضحة وافر تحياتي اضافة بيانات لليست عن طريق تكستات بزر اضافة.xls

من الممكن ان يكون شيت مخفي بالملف وان امكن قم بارفاق الملف لتتضح الصوره

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

ما معني بدون ماكرو... حيث ان الكود هو الماكرو فهل تقصد بدون زر تقبل وافر تحياتي

قم اخي الكريم / محمد بوضع مرفق كمثال لما تريده ليتم فهم المطلوب وتنفيذه كما تريده تقبل وافر تحياتي

روووووووووعه استاذنا القدير دائما انت كبير جدا تقبل وافر تحياتي