فورم ادخال و تعديل وبحث (باستخدام اسم نطاق للقائمة المنسدلة)

[عبدالله المجرب]

عمل مميز ككل أعمالك 

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

بارك الله فيك استاذ عبدالله

[الجزيرة]

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

 

تعجز الكلمات من أن توفيك حقك

 

جزاك الله خير 

[عبدالله باقشير]

عمل مميز ككل أعمالك 

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

بارك الله فيك استاذ عبدالله

اسعدني كثيرا مروركم الطيب وكلماتكم الطيبة

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

 

تقبلوا تحياتي وشكري

[عبدالله باقشير]

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

 

تعجز الكلمات من أن توفيك حقك

 

جزاك الله خير 

اسعدني كثيرا مروركم الطيب وكلماتكم الطيبة

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

 

تقبلوا تحياتي وشكري

[نور على]

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

[عبدالله باقشير]

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

 

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

 

تقبلوا تحياتي وشكري

[الشهابي]

أستاذي الكبر العلامة  / عبد الله باقشير

بصراحة عمل فريد من نوعه 

وسوف أستفيد منه كثيرا في أعمالي 

بارك الله فيك أستاذنا وزادك الله علماً ورفعة 

ولا حرمنا الله منك ولا من أعمالك 

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

.kh_SetAddrss CStr(Range("B5")), "C10:AO10"

يكون

.kh_SetAddrss CStr(Range("الفصل")), "C10:AO10"

حيث الفصل هو اسم لنطاق في الملف 

لأنني حاولت بالكود السابق ولم تنجح 

والعفو

[ريان أحمد]

السلام عليكم

 

أستاذي الرجاء إصافة كلمة مرور لتأكيد الحذف والمرور إليه

[عبدالله باقشير]

أستاذي الكبر العلامة  / عبد الله باقشير

بصراحة عمل فريد من نوعه 

وسوف أستفيد منه كثيرا في أعمالي 

بارك الله فيك أستاذنا وزادك الله علماً ورفعة 

ولا حرمنا الله منك ولا من أعمالك 

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

.kh_SetAddrss CStr(Range("B5")), "C10:AO10"

يكون

.kh_SetAddrss CStr(Range("الفصل")), "C10:AO10"

حيث الفصل هو اسم لنطاق في الملف 

لأنني حاولت بالكود السابق ولم تنجح 

والعفو

 

اذا كان اسم معرف للخلية التي فيها اسم الورقة فممكن استخدامه

لكن اسم لنطاق الاسماء ( اكثر من خلية ) فهذا خطأ

 

يعني لو مثلا الخلية B5 اسمها ( الفصل)

فممكن استخدام الكود الذي اورته اعلاه

 

تحياتي

[ريان أحمد]

السلام عليكم

 

أستاذي الرجاء إصافة كلمة مرور لتأكيد الحذف والمرور إليه

[عبدالله باقشير]

 

السلام عليكم

 

أستاذي الرجاء إصافة كلمة مرور لتأكيد الحذف والمرور إليه

 

 

غير كود زر الحذف بهذا الكود

Private Sub ButtonDelete_Click()
Dim iBox
iBox = Application.InputBox("ادخل كلمة المرور لهذا الاجراء", "تأكيد الحذف بكلمة المرور")
If iBox <> "123" Then Exit Sub
If Me.ListFind.ListCount Then Me.ListFind.Clear
MyRngdate.Rows(iRow + 1).EntireRow.Delete
If Not tSr Then GoTo 1
If iRow = ContRow Then GoTo 1
With MyRngSeri
    .Cells(iRow + 1, 1).Value = iRow
    Range(.Cells(iRow + 1, 1), .Cells(ContRow, 1)).DataSeries
End With
1:
Me.ScrollBar1.Max = ContRow - 1
ScrollBar1_Change
Call MsgBox("  تم حذف السجل  بنجاح  ", mBox, "الحمدلله")

End Sub

تحياتي

[الشهابي]

أستاذي الكبر العلامة  / عبد الله باقشير

الخطأ مني أنا حيث أدخل اسم نطاق خطأ 

ولم تم تصحيح النطاق عمل بشكل جيد 

تقبل تحياتي وتقديري لشخصكم الكريم 

االله يحفظكم وجزاكم الله خير وبارك الله فيكم 

والعفو

[ريان أحمد]

بارك الله فيك وجزاك الله كل خير

[جلال محمد]

استاذ عبد الله 

بارك الله فيك ... عمل رائع 

جزاك الله خيرا ... وجعله الله في موازين حسناتك

[حمادة عمر]

دائما استاذنا القدير العلامة الخبير

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

تقبل خالص تحياتي

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

[عبدالله باقشير]

استاذ عبد الله 

بارك الله فيك ... عمل رائع 

جزاك الله خيرا ... وجعله الله في موازين حسناتك

 

جزاكم الله خيرا وبارك فيكم

 

تقبلوا تحياتي وشكري

[عبدالله باقشير]

دائما استاذنا القدير العلامة الخبير

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

تقبل خالص تحياتي

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

 

 

جزاكم الله خيرا وبارك فيكم

 

تقبلوا تحياتي وشكري

[الضياء2008]

السلام عليكم

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

طلب تعديل بسيط

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

[عبدالله باقشير]

السلام عليكم

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

طلب تعديل بسيط

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

 وعليكم السلام

 

استخدم زر مسح لهذا الغرض ثم احفظ التغييرات

او امسح ما تريد من الحقول يدويا ثم احفظ التغييرات

اما زر حذف هو مخصص لحذف السجل بتاتا

 

تحياتي

[طه عمار]

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

أنا ضيف جديد في المنتدى، وأتمنة أن أكون خفيف الظل...

مشكورين على مجهوداتكم..

[إبراهيم ابوليله]

اخى واستاذنا الفاضل عبدالله باقشير

دائما ما نجد منك الاعمال العظيمه

التى يستفيد منها الجميع

بارك الله فيك

ونسأل الله الا يحرمنا من علمك

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

[البروفسير]

رائع اخي و استاذنا الفاضل عبدالله باقشير ... بوركت وبورك عملك

تم تعديل سبتمبر 19, 2013 بواسطه البروفسير

[شوقي ربيع]

السلام عليكم

الاستاد القدير عبد الله باقشير

أعمالك دائما مميزة ومفيدة وكدالك جميلة

شركرا جزيلا لما تقدمه لنا من هكدا اعمال

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

[عبدالله باقشير]

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

أنا ضيف جديد في المنتدى، وأتمنة أن أكون خفيف الظل...

مشكورين على مجهوداتكم..

 

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

 

تقبلوا تحياتي وشكري

[عبدالله باقشير]

رائع اخي و استاذنا الفاضل عبدالله باقشير ... بوركت وبورك عملك

 

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

 

تقبلوا تحياتي وشكري