اذهب الي المحتوي
أوفيسنا

فورم بحث وادخال وفلتر HaNcOcK


الردود الموصى بها

السلام عليكم

إلى الأخ Hancockأولاً أحب أن أهنئك على هذا البرنامج الجميل الرائع المتميز

ووفقك الله دائماً وزادك من علمه

ثانياً : أنا مشترك في الموقع منذ فترة وأعجبتني جميع الأعمال المطروحة به وهذه أول مشاركة لي

ثالثاً : مرفق لكم ورقة إكسل أريد منكم مساعدتي فيها

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

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

فأنا أريد عمل فورم مجمع به كل شيء إضافة عامل أو البحث عن عامل بجميع بياناته من خلال الرقم الخاص به وعمل أزرار للفلترة على حسب تاريخ التعيين - القسم - الراتب الأساسي - الموقف التأميني - الديانة وأهم شيء الشاشة الافتتاحية الموجود في برنامجكم قاعدة بيانات عسكرية لإني معجب جداً بها ثم يليها شاشة إدخال لإدخال الرقم السري وإسم المستخدم

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

وإذا كان هناك أي أخطاء فيه أرجو تعديلها من حضرتك

وإعادة رفعها لي في منتدانا الغالي

لأنها ستفيدني جداً في مجال عملي الموارد البشرية

وأتمنى أن تعجبك طريقة التصميم وبعد الأشياء التي تعلمتها من المنتدى وطبقتها به

مرفق لك شيتين الأول الشيت اللي أنا مصممة أسمه 2 والشيت الأخر فيه بيانات جميع العاملين بالشركة (آسك للملابس الجاهزة )

ولك جزيل الشكر

منتظر ردك على أحر من الجمر

2 .rar

البيانات.rar

رابط هذا التعليق
شارك

اخى العزيز احمد فضيلة

لم ارى عرض المساعدة الا منذ قليل فشكرا لك وجزاك الله الف خير

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

المطلوب

فلترة فى ورقة المرتبات حسب الموقع العمود c

واكون شاكر جدا

تحياتى

سعد عابد

مشروع مرتبات .rar

تم تعديل بواسطه سعد عابد
رابط هذا التعليق
شارك

اخي العزيز سعد :

بعد الاعتذار من استاذنا الحبيب احمد فضيلة ( وانا اعرف سعة صدره )

مرفق الكود الذي اعتقد انك تقصده

اتمنى ان يكون هو المطلوب

تحياتي لك

ةفقك الله

1 - مشروع مرتبات.rar

رابط هذا التعليق
شارك

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

الاخ الحبيب الاستاذ / ياسر الحافظ

لا داعي أبداً للاعتذار .. يا أخي جزاك الله كل خير على مساعدتك و مجهودك

و العمل الذي قمت به جميل جداً

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

و الله الموفق والمستعان

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

رابط هذا التعليق
شارك

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

بعد اذن الاخ الحبيب الاستاذ / ياسر الحافظ

أخي الحبيب / سعد عابد

أولاً أعتذر على التأخر في الرد و لكن أنا أول ما شاهدت الطلب قمت بالعمل عليه مباشرة

تفضل المرفق التالي و هو يشبه حل الاخ الحبيب الاستاذ / ياسر الحافظ

ولكن بطريقه مختلفة بعض الشئ عن طريق Combobox

و الله الموفق والمستعان

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

مشروع مرتبات HaNcOcK.rar

رابط هذا التعليق
شارك

عمل رائع ومتقن

بارك الله فيك

واطال الله في عمرك

مع مزيد من التألق

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

الاخ العزيز / tahar1983

واحشني يا أخي و الله .. أين أنت منذ فترة .. أرجو من الله أن تكون بخير حال و صحة و عافية أنت و أهلك و من حولك

الحمد لله ان العمل عجب حضرتك .. و أرجو من الله أن يكون به فائدة لحضرتك

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

و الله الموفق والمستعان

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

رابط هذا التعليق
شارك

[السلام عليكم

إلى الأخ Hancockأولاً أحب أن أهنئك على هذا البرنامج الجميل الرائع المتميز

ووفقك الله دائماً وزادك من علمه

ثانياً : أنا مشترك في الموقع منذ فترة وأعجبتني جميع الأعمال المطروحة به وهذه أول مشاركة لي

ثالثاً : مرفق لكم ورقة إكسل أريد منكم مساعدتي فيها

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

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

فأنا أريد عمل فورم مجمع به كل شيء إضافة عامل أو البحث عن عامل بجميع بياناته من خلال الرقم الخاص به وعمل أزرار للفلترة على حسب تاريخ التعيين - القسم - الراتب الأساسي - الموقف التأميني - الديانة وأهم شيء الشاشة الافتتاحية الموجود في برنامجكم قاعدة بيانات عسكرية لإني معجب جداً بها ثم يليها شاشة إدخال لإدخال الرقم السري وإسم المستخدم

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

وإذا كان هناك أي أخطاء فيه أرجو تعديلها من حضرتك

وإعادة رفعها لي في منتدانا الغالي

لأنها ستفيدني جداً في مجال عملي الموارد البشرية

وأتمنى أن تعجبك طريقة التصميم وبعد الأشياء التي تعلمتها من المنتدى وطبقتها به

مرفق لك شيتين الأول الشيت اللي أنا مصممة أسمه 2 والشيت الأخر فيه بيانات جميع العاملين بالشركة (آسك للملابس الجاهزة )

ولك جزيل الشكر

منتظر ردك على أحر من الجمر

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

الاخ الفاضل الاستاذ / alwaleed4ever84

انا فقط كنت انتظر ردك و هل المرفق الذي ارفقه الاخ / أبو نصار يتناسب مع حضرتك أم لا ..

ان شاء الله سوف أقوم بعمل ما تريد ..

و الله الموفق والمستعان

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

رابط هذا التعليق
شارك

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

بعد اذن الاخ الحبيب الاستاذ / ياسر الحافظ

أخي الحبيب / سعد عابد

أولاً أعتذر على التأخر في الرد و لكن أنا أول ما شاهدت الطلب قمت بالعمل عليه مباشرة

تفضل المرفق التالي و هو يشبه حل الاخ الحبيب الاستاذ / ياسر الحافظ

ولكن بطريقه مختلفة بعض الشئ عن طريق Combobox

و الله الموفق والمستعان

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

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

الاخ العزيز / سعد عابد

لو فيه اي تعديل او طلب انا تحت امرك .. ان شاء الله

و الله الموفق والمستعان

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

رابط هذا التعليق
شارك

ماشاء الله تبارك الله

ابداااااع بمعنى الكلمة

تصميم ولااروع بارك الله فيك

استاذ هانكوك وفي ميزان حسناتك

انشاء الله

رابط هذا التعليق
شارك

الاستاذ الفاضل هانكوك

افكار ملفك اذهلتني

حاولت اعدل في ملفي

على اخر تسجيل دخول

وزبطت معي

واما فكرة المستخدمين وصلت الى نقطة

توقف ارجو الاطلاع على المرفق

واين بيت الداء

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

الصفحة فهو موجود في ورقة data

خليه az1 وليس في قائمة الفيجول

لاجل تغيره بسهوله بدون الوصول الى VBA

ارجو الافاده

EXCEL(a)DATA.rar

تم تعديل بواسطه alidroos
رابط هذا التعليق
شارك

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

اخى الحبيب واستاذى احمد فضيلة(هانكوك)

الكلمات تعجزعن شكرى لك ودعواتى الخالصة ان يجزيك الله خيرا

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

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

حفظكم الله ايدكم الله اعزكم الله جزاك الله عنا خيرا جزاك الله عنا خيرا جزاك الله عنا خيرا

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

تحياتى ....دمتم بخير

اخوك فى الله

سعد عابد

تم تعديل بواسطه سعد عابد
رابط هذا التعليق
شارك

اخي العزيز سعد : بعد الاعتذار من استاذنا الحبيب احمد فضيلة ( وانا اعرف سعة صدره ) مرفق الكود الذي اعتقد انك تقصده اتمنى ان يكون هو المطلوب تحياتي لك ةفقك الله

اخى ياسر الحافظ

اعلم يا اخى ان الارواح جنود مجنده ما تعارف منها ائتلف وما تنافر منها اختلف

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

جزاك الله خيرا ووقاك الله شرا الفتن وحفظك الله انت واهلك اللهم امين

تحياتى

سعد عابد

رابط هذا التعليق
شارك

ماشاء الله تبارك الله

ابداااااع بمعنى الكلمة

تصميم ولااروع بارك الله فيك

استاذ هانكوك وفي ميزان حسناتك

انشاء الله

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

الاخ العزيز / أبو نصار

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

و الله الموفق والمستعان

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

تم تعديل بواسطه HaNcOcK
رابط هذا التعليق
شارك

ما شاء الله

اللهم صلِ على محمد

أيه الجمال ده يا ريس

و عليه الصلاة و افضل السلام

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

الاخ العزيز / الجزيرة

الحمد لله أن العمل عجب حضرتك .. و ارجو من الله أن يكون له فائدة لحضرتك و كافة المسلمين

بارك الله فيك و جزاك كل خير على مرورك الكريم و كلماتك الطيبة

و الله الموفق والمستعان

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

تم تعديل بواسطه HaNcOcK
رابط هذا التعليق
شارك

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

اخى الحبيب واستاذى احمد فضيلة(هانكوك)

الكلمات تعجزعن شكرى لك ودعواتى الخالصة ان يجزيك الله خيرا

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

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

حفظكم الله ايدكم الله اعزكم الله جزاك الله عنا خيرا جزاك الله عنا خيرا جزاك الله عنا خيرا

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

تحياتى ....دمتم بخير

اخوك فى الله

سعد عابد

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

الاخ الحبيب / سعد عابد

أحبك الله الذي أحببتني فيه

عفواً يا اخي .. الشكر لله

وأكرر لحضرتك لو فيه اي تعديل او طلب انا تحت امرك .. ان شاء الله

و الله الموفق والمستعان

تحياتى . دمت أنت و من حولك بكل بخير

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

رابط هذا التعليق
شارك

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

الاخ العزيز / أبو نصار

أقوم الآن بالعمل على ملف حضرتك .. و ان شاء الله يتم على خير بفضل الله

و الله الموفق والمستعان

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

رابط هذا التعليق
شارك

الاستاذ الفاضل هانكوك

افكار ملفك اذهلتني

حاولت اعدل في ملفي

على اخر تسجيل دخول

وزبطت معي

واما فكرة المستخدمين وصلت الى نقطة

توقف ارجو الاطلاع على المرفق

واين بيت الداء

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

الصفحة فهو موجود في ورقة data

خليه az1 وليس في قائمة الفيجول

لاجل تغيره بسهوله بدون الوصول الى VBA

ارجو الافاده

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

الاخ العزيز / أبو نصار

قم حضرتك بوضع الكود التالي في زرار الدخول الخاص بفورم السري

و ارجو من الله أن يكون هذا هو المطلوب

و لكن عذراً .. قمت بتغيير خلية الرقم السري للمستخدم user للخليه ay1 اثناء العمل فقط لأيسر على نفسي الدخول المتكرر أثناء التعديل

و بالنسبة لحضرتك قم بالتعديل كما تشاء

و الله الموفق والمستعان

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

Private Sub CommandButton1_Click()

If ComboBox1.Text = "admin" And serialtext = shtMain.Range("az1") Then

TextBox2 = Now()

 ff = 4

    Do Until Sheet4.Cells(ff, "a").Value = ""

        ff = ff + 1

    Loop

   Sheet4.Cells(ff, 1).Value = ComboBox1.Text

   Sheet4.Cells(ff, 2).Value = TextBox2.Text

    Me.Hide

'    ComboBox1 = ""

    serialtext = ""

    TextBox2 = ""

    ComboBox1.SetFocus

    Worksheets(1).Visible = True

    Worksheets(2).Visible = True

    Worksheets(3).Visible = True

    Worksheets(4).Visible = True

    Worksheets(5).Visible = True

    Worksheets(6).Visible = True

    Worksheets(7).Visible = True


shtMain.Activate

'    Rows("1:2").Select

'    Selection.EntireRow.Hidden = False

'    Cells(3, 1).Select

Else

If ComboBox1.Text = "user" And serialtext = shtMain.Range("aY1") Then

TextBox2 = Now()

 ff = 4

    Do Until Sheet4.Cells(ff, "a").Value = ""

        ff = ff + 1

    Loop

   Sheet4.Cells(ff, 1).Value = ComboBox1.Text

   Sheet4.Cells(ff, 2).Value = serialtext.Text

    Me.Hide

'    ComboBox1 = ""

    TextBox1 = ""

    TextBox2 = ""

    ComboBox1.SetFocus

    Worksheets(1).Visible = False

    Worksheets(2).Visible = False

'    Worksheets(3).Visible = False

    Worksheets(4).Visible = False

    Worksheets(5).Visible = False

    Worksheets(6).Visible = False

    Worksheets(7).Visible = False


shtMain.Activate

'    Rows("1:2").Select

'    Selection.EntireRow.Hidden = True

'    Cells(3, 1).Select

Else

    serialtext = ""

    TextBox2 = ""

Unload Me

ErrorForm.Show

serialtext = ""

    serialtext.SetFocus

If ComboBox1.Text = "admin" And serialtext = shtMain.Range("az1") Then

TextBox2 = Now()

 ff = 4

    Do Until Sheet6.Cells(ff, "a").Value = ""

        ff = ff + 1

    Loop

   Sheet6.Cells(ff, 1).Value = ComboBox1.Text

   Sheet6.Cells(ff, 2).Value = TextBox2.Text

'    ComboBox1 = ""

    TextBox1 = ""

    TextBox2 = ""

    ComboBox1.SetFocus

Else

If ComboBox1.Text = "user" And serialtext = shtMain.Range("aY1") Then

TextBox2 = Now()

 ff = 4

    Do Until Sheet6.Cells(ff, "a").Value = ""

        ff = ff + 1

    Loop

   Sheet6.Cells(ff, 1).Value = ComboBox1.Text

   Sheet6.Cells(ff, 2).Value = TextBox2.Text

'    ComboBox1 = ""

    serialtext = ""

     TextBox2 = ""

    ComboBox1.SetFocus

End If

End If

End If

End If

ActiveWorkbook.Save

shtMain.Activate

End Sub

رابط هذا التعليق
شارك

الاستاذ هانكوك بيعمل بكفائة

جزاك الله عنا كل خير

خيرك كثير الله يحسن الامور

لكي نرد لك بعض الجميل

تحياتي

رابط هذا التعليق
شارك

الاستاذ هانكوك بيعمل بكفائة

جزاك الله عنا كل خير

خيرك كثير الله يحسن الامور

لكي نرد لك بعض الجميل

تحياتي

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

الاخ العزيز / أبو نصار

الحمد لله أن وفقني لأتم طلبك على خير

و يا أخي لا يوجد جميل و لا أي شئ

{إِنَّمَا الْمُؤْمِنُونَ إِخْوَةٌ فَأَصْلِحُوا بَيْنَ أَخَوَيْكُمْ وَاتَّقُوا اللَّهَ لَعَلَّكُمْ تُرْحَمُونَ }الحجرات10

حضرتك تأمر فقط ..

لو فيه اي تعديل او طلب او استفسار انا تحت امرك .. ان شاء الله

و الله الموفق والمستعان

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information