جوزيف55

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

اولا شكرا لتعب ومجهود حضرتك واهتمامك بس فيه تعديل

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

يارب اكون وضحت لحضرتك

ده ملف ومثال للايضاح ولو فيه استفسار ارجو الرد

Book11111111.xlsx

انا بنزل كل يوم اسماء العمال واماكن عملهم وساعات العمل وكده 

هل فيه طريقه تساعدنى فى دخول الاسماء يوميا على الاكسيل لانى بحضرهم كل يوم وعددهم ممكن يوصل 700 اسم او اكثر يوميا 

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

فى خلفية صفحة الاكسيل بيبقى مكتوب مثلا page 1

ينفع اشيل كلمة page 1 واكتب اى حاجه مكانها

16 ساعات مضت, خير الايمان said:

قمت بعمل تصفية تتسع 1500 صف كما طلبت

بمجرد ان تختار المهنه ونوعها تتم التصفية

وهذا على حسب ما فهمت

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

10 دقائق مضت, خير الايمان said:

السلام عليكم ورحمة الله وبركاته

على فهمي لطلبك لعله يوفي

مهن متنوعه.rar

هو ايه اللى عملته حضرتك بالظبط انا مش قادر افهم

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

ياريت لمن لديه الخبره المساعده لو فيه حل احسن

ملحوظه ممكن بتم ادخال بيانات لاكثر من 1500 سطر فى الورقه الواحده

مهن متنوعه.rar

3 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم جوزيف

أعتقد أنني اطلعت على الملف من قبل ..وأخبرتك أنك بحاجة للتوضيح أكثر

أقصد ما هو الملف الأساسي المراد تطبيق الكود عليه .. ثم تبدأ في توضيح الأمور بشيء من التفصيل .. أي ما هي البيانات المراد جليها ؟ وما هو النطاق المراد جلب بياناته ؟ وأين ستوضع البيانات بعد عملية الجلب

تقبل تحياتي

 

شكرا لاهتمامك استاذ ياسر واسف على عدم الايضاح

الملف المراد تطبيق الكود عليه هو235 هو ملف به معادلات بتسحب من الشيتين الاخرين وانا عايز المعادله تشتغل معايع على الاقل 5000 سطر بعمنى من a5000:a3 وهكذا باقى المعادلات

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

وشكرا لردك الكريم

10 ساعات مضت, محي الدين ابو البشر said:

السلام عليكم

اتمنى أني فهمت المطلب

انظر المرفق

officena.rar

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

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

مثال هذه المعادله=VLOOKUP(D3,'C:\متنوع\[مشروع الجولف والتبة.xlsx]sheet1 (2)'!$A:$E,5,0)

متنوع.rar

ياشباب الخبره ارجو المساعده

شكرا ليك استاذى سليم حاصبيا 

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

ولك منى كل الشكر والتقدير والاحترام

لو انا عندى معادله وعايز اخدها مكان تانى بس النتيجه بس بمعنى 5+5=10 انا عايز ال10 دى تتكتب كناتج فقط فى مكان تانى مش كمعادله انا جربت pastlink بس للاسف بتاخد المعادله كلها لكن انا عايز الناتج فقط بنفس امكانيات pastlink يعنى بمجرد ما اعمل اى عمليه يتكتب الناتج اتوماتيك فى مكان اخر

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

شكرا لكم

متنوع(1).rar

كا الملفات المرفقه صحيحه

حجم الملف الاصلى ممكن يتعدى 2 ميجا

انا اقصد 500 اسم فى اليوم يعنى حوالى 5000 اسم فى نصف الشهر فى نفس الشيت

وشكرا لرد حضرتك

فى انتظار ردكم للاهميه

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

شكرا لكم

متنوع.rar

فى اتنظار رد عباقرة المنتدى

ملف حلو ومجهود رائع

بس انا عايز اكتب فى نفس الخليه يظهر تحتها الاسماء وانا اختار وادخل على اللى بعدها الخ...

لو حضرتك شفت برامج معينه هتلاقى لما تكتب اسم يظهر

هل ده متاح فى الاكسيل

انا بشتغل على شيت اكسيل فيه اسماء كثيره بمهن مختلفه

هل ينفع لما اكتب الاسم يظهر تحتيه كل الاسماء ويسمحلى باختيار الاسم الصحيح بمعنى

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

هل ده ينفع ولا لا ارجو المساعده للاهميه

انا عندى شيت كبير فيه معادلات كتير فعرفت انى ممكن اعمل معادله فى الvbaيسهل عليا ويظهر النتيجه علطول بس لما طبقتها مااشتغلتش وده نص المعادله

Sub formula()
Range("a140:a2000").Formula = "=VLOOKUP(D140,Sheet5!A:E,5,0)"

Range("a140:a2000") = Range("a140:a2000").Value

الرجاء المساعده

23 دقائق مضت, عبد العزيز البسكري said:

 

السّلام عليكم و رحمة الله و بركاته

أخي الكريم .. أن تعمل عشرين أو ثلاثين كومبوبوكس .. عمل شاق فعلاً

هل أنتَ ملزم بعمل مثلما قمت بتصميمه .. أم مجرّد عمل يمكن التغيير عليه

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

ذكرت بموضوعك ..أنّك عايز لما تكتب .....حدّد لو سمحت .. أنّك عايز تكتب اسم العامل أم تستعرض اسم العامل بواسطة الكومبوبوكس

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

لابدّ من الرجوع لقاعدة البيانات لتغذية الكومبوبوكسات .. بينما الكود الذي كتبته ليس به أي أثر لمصدر البيانات

ياريت تساعدنى لانى مبتدىء فى الموضوع

مجرّد ملاحظات أخي الكريم .. لتسهيل المهمة لمن يريد المساعدة من الأساتذة الأكارم بارك الله فيهم مقدّمًا

فائق إحتراماتي

شكرا لاهتمام حضرتك اوى

 

 

25 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم

يرجى تغيير اسم الظهور للغة العربية

أولاً حدد الـ ComboBox1 وغير الخاصية BoundColumn من 2 إلى 1 ..

ثانياً : قم بحذف هذا الجزء من الكود

Private Sub TextBox16_Change()
TextBox16.Value = ComboBox1.Value
End Sub

ثالثاً ضع الكود التالي في حدث الفورم بالطبع

Private Sub ComboBox1_Change()
    On Error Resume Next
    TextBox16.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row), 2, 0)
End Sub

تقبل تحياتي

 

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

الرجاء التوضيح

7 دقائق مضت, joseph55 said:

 

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

الرجاء التوضيح

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

Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.Value
End Sub

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

ياريت تدخل على الفيجول بيسك الاول وهترقى التصميم

برنامج تكاليف.rar