ناصرالمصرى

السلام عليكم هل تقصد هكذا =IF(A1<25;"*";A1)

up

up

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

بورك فيكم

بورك فيكم

up

up

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

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

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

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

السيد الاستاذ الفاضل // ابن الغالية " مصر " بارك الله فيك سأجرب على الملف الاصلى وسأوافيك بالنتيجة وافر احترامى

السيد الاستاذ / ابن مصر الغالية شاكر جدا تفاعلك بالموضوع اقتربت من تحقيق الهدف ماريده ان يتم تفعيل الكود ولكن من داخل Label وليس TextBox أو WebBrowser عذرا لتعبكم ... فى انتظار ردكم ... وافر تقديرى

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

السلام عليكم عثرت على هذا الكود لتحريك نص داخل Label ولكن هذا الكود يعمل يطريقة بطيئة ولايعمل الا سوى بضع مرات ومع افتراب الماوس من Label فقط Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim CurPosition As Long, Starttime As Long, elapsed As Long CurPosition = UserForm1.Width - (Label1.Width + 10) Label1.Left = CurPosition Label1.Visible = True Do Until CurPosition < 10 Label1.Left = CurPosition DoEvents Starttime = Timer * 100 elapsed = 0 Do While elapsed < 5 elapsed = (Timer * 100) - Starttime Loop CurPosition = CurPosition - 5 Loop End Sub ولكن اريد التعديل بالكود ليعمل بطريقة استمراية بنقس الطريقة بالمرفق ياللى بالرابط http://www.officena.net/ib/index.php?showtopic=58892&page=1 مع وافراحترامنا

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

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

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

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

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

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

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

الاخ الفاضل الاستاذ // ياسر خليل السلام عليكم الشروط التى ابغى اضافتها هى على سبيل المثال لا يساوى ......لا ..... والثانى ..... والثالث ..... والرابع ارجو التوضيح ولكم من الله خيرالجزاء

بوركت أبا سليم حقظكم الله وبارك فيكم