ابوالزوز قام بنشر أغسطس 14, 2008 قام بنشر أغسطس 14, 2008 (معدل) السلام عليكم .. أخواني الأعزاء .. أساتذتنا الكرام أسعد الله أوقاتكم بكل خير لدي تساؤل يمكن أن يكون بسيطاً جداً للبعض وربما البعض الآخر يعتبره غير ممكن إلا أنني وجدت كثير من الصعوبات والحمد لله قد تم تذليلها بفضل هؤلاء الأساتذه العباقرة الذين يفاجئونا دائماً بكل ما هو جديد وممتع لهم مني كل التحية والإجلال أخواني .. في المرفق ملف فيه تفصيل لطلبي أرجو منكم الإفادة أو على الأقل تزويدي بأفكار تساعد في الحل تقبلوا جميعاً تحياتي .. Abuzzouz.rar تم تعديل أغسطس 14, 2008 بواسطه abuzzouz
عادل حنفي قام بنشر أغسطس 15, 2008 قام بنشر أغسطس 15, 2008 (معدل) السلام عليكم اخي العزيز Abuzzouz ارجو ان يكون هذا هو طلبك تحياتي Abuzzouz.rar تم تعديل أغسطس 15, 2008 بواسطه aah_aah2008
ابوالزوز قام بنشر أغسطس 15, 2008 الكاتب قام بنشر أغسطس 15, 2008 السلام عليكم ،، شكراً جزيلاً أخي aah_aah2008 على هذا المجهود الجميل والرائع جعله الله في ميزان حسناتك إلا أنه لو سمحت لي بالتعليق أجد بطء في عملية ظهور النتائج مع هذا الكم البسيط من الأسماء فكيف إذا كان هناك أكثر من 1000 موظف وأكثر من 15 قسم عندئذ سيكون الفورم غير عملي أو بمعنى أصح غير متقن .. فهل من حل لديك أخي العزيز تقبل تحياتي ..
عادل حنفي قام بنشر أغسطس 15, 2008 قام بنشر أغسطس 15, 2008 السلام عليكم اخي العزيز البطأ ياتي من عملية الفلتره التي تتم ب VLOOK2ALL و ان وجدت طريقه تجعل العمل اكثر سرعه ساعلمك بها وان كان هناك احد من اخواننا يحل موضوع السرعه فلا مانع تحياتي
ابوالزوز قام بنشر أغسطس 15, 2008 الكاتب قام بنشر أغسطس 15, 2008 السلام عليكم ،، شكراً على ردك المتواضع أخي العزيز وأتمنى لك التوفيق في أمور حياتك كلها تقبل تحياتي ..
عادل حنفي قام بنشر أغسطس 16, 2008 قام بنشر أغسطس 16, 2008 (معدل) السلام عليكم اشكرك اخي و لك ضعف مادعوت لي تم تعديل أغسطس 16, 2008 بواسطه aah_aah2008
ابوالزوز قام بنشر أغسطس 17, 2008 الكاتب قام بنشر أغسطس 17, 2008 (معدل) السلام عليكم ،، شكراً لك أخي Knight22666 على تفاعلك مع الموضوع وجزاك الله كل خير إليك الملف كما أرفقته سابقاً وعذراً لأنه ليس لدي Winzip تقبل تحياتي .. Abuzzouz.rar تم تعديل أغسطس 17, 2008 بواسطه abuzzouz
ابوالزوز قام بنشر أغسطس 18, 2008 الكاتب قام بنشر أغسطس 18, 2008 السلام عليكم ،، والله الشاطر ما يموت .. شكراً جزيلاً لك أخي وأستاذي خبور أحسن الله إليك كما أحسنت إلي تقبل تحياتي .. أخوك abuzzouz
عادل حنفي قام بنشر أغسطس 18, 2008 قام بنشر أغسطس 18, 2008 (معدل) السلام عليكم تسلم يداك استاذنا العزيز خبور تم تعديل أغسطس 18, 2008 بواسطه aah_aah2008
عبدالله باقشير قام بنشر أغسطس 18, 2008 قام بنشر أغسطس 18, 2008 السلام عليكم أحسن الله إليك كما أحسنت إلي واحسن الله اليك اخي الكريم الاخ AHH الله يسلمك ويحفظك بارك الله فيكما ودمتم في حفظ الله
اوفيس 2003 قام بنشر أغسطس 18, 2008 قام بنشر أغسطس 18, 2008 جزاكم الله كل خيــــــــــــر اخواني المحترفين واستاذتنا الأفاضل الكرام
ابوالزوز قام بنشر سبتمبر 3, 2008 الكاتب قام بنشر سبتمبر 3, 2008 السلام عليكم ،، أخواني الأعزاء إستكمالاً للفورم ولأسئلتي السابقة فقد واجهتني مشكلة أرجو منكم مساعدتي لحلها خلاصتها (تصفية ضمن تصفية) والمرفق يوضح المقصود وشكراً لكم تقبلوا جميعاً تحياتي .. Abuzzouz.rar
يحيى حسين قام بنشر سبتمبر 4, 2008 قام بنشر سبتمبر 4, 2008 الأخ خبور خير ما شاء الله عليك ربنا يزيدك من علمه و نعيمه أفكار رائعة تشكر عليها و لا يسعنا إلا نقول الله بارك لخبور في علمه و عمله و ماله و اهله و كل عام و انت و اخواني في هذا المنتدى بألف ألف خير
ابوالزوز قام بنشر سبتمبر 4, 2008 الكاتب قام بنشر سبتمبر 4, 2008 السلام عليكم ،، أخي العزيز خبور الغالي وفقك الله لكل ما يحبه ويرضاه وأسأله وهو العلي القدير أن يبارك لك في علمك وفي رزقك وفي أهلك ويرزقكم الجنه بغير حساب دمت أستاذاً وأخاً عزيزاً .. شكراً جزيلاً لك تقبل تحياتي أخوك abuzzouz
عبدالله باقشير قام بنشر سبتمبر 4, 2008 قام بنشر سبتمبر 4, 2008 السلام عليكم الاخ العزيز / ju--------------- حفظه الله الاخ العزيز / abu--------------- حفظه الله بارك الله فيكما ولكما امثال الدعاء اضعاف مضاعفة تقبلا شكري وتقديري وهذا كود مختصر للعملية التي يقوم بها الكود السابق: Private Sub Combo_Sect_Change() On Error Resume Next Dim Lastrow As Integer, R As Integer, H As Integer Dim DataCell As Range Set DataCell = Range("AllData") Combo_Emp.Clear Box_ID.Text = "" H = 0 With DataCell Lastrow = .Cells(.Rows.Count, 1).End(xlUp).Row R = 1 Do Until R = Lastrow If Combo_Sect.Text = "All Sections" Then GoTo 1 If .Cells(R, 2).Text = Combo_Sect.Text Then 1 Combo_Emp.AddItem .Cells(R, 1).Value If .Cells(R, 4).Text = "Excelent" Then H = H + 1 End If End If R = R + 1 Loop End With Box_Count.Caption = Combo_Emp.ListCount Box_Excelent.Caption = H End Sub
ابوالزوز قام بنشر سبتمبر 4, 2008 الكاتب قام بنشر سبتمبر 4, 2008 السلام عليكم ،، أستاذي العزيز خبور لقد أخجلتني بردودك السريعة والفنية الرائعة لقد برهنت على معدنك الأصيل وعلمك الوفير زادك الله منه الكثير تقبل تحياتي مرة أخرى ..
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.