استيراد بيانات بطريقة النسخ واللصق مع فورم بحث في جميع اوراق العمل

[easydvb]

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

[obad65]

11 September 2009 - 11:36 PM

اسأل الله أن يزيد في علمك

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

مع الشكر الجزيل

للرفع

[mewahid]

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

[الموسى1423]

جزاك الله خير أيها المبدع خبور خير

عمل في غاية الروعة والإبداع

[أم عبد الله]

الأخ العزيز أستاذنا القدير / خبور

جزاك الله الفردوس الأعلى من الجنة ودائما متألق كالعادة وتمتعنا بأعمالك العظيمة ولي طلب من حضرتك أنا اجتهدت وعملت برنامج المرتبات للمدارس ولكن ينقصه اللمسة الفنية الأخيرة وينقصه الخبرة والترتيب لكي يؤدي الغرض بطريقة حضرتك الجميلة أما من الناحية العلمية فاعتقد أنه مبني على اسس صحيحة وأنا جربته على حالات كثيرة فكانت النتيجة ممتازة بالنسبة لصافي كل موظف فأتعشم من حضرتك لو أنا أرسلت البرنامج تلقي نظرة وتفيدني بكيفية التعديل فيه من ناحية الشكل العام والتنظيم أو حضرتك تنفذه بطريقتك وبناء على البيانات الاساسية التي استندت عليها لأن نتيجتها ممتازة وكما تنفذ من الإدارة التعليمية وبعد التعديل سوف يستفاد منه الجميع أرجو الرد من فضلك وزادك الله علماً ولكم جزيل الشكر0

[naderwatfa]

بسم الله ما شاء الله

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

[obad65]

استاذنا الفاضل خبور

آمل التكرم بالاجابة عن سؤالي وهو كيف أجعل الكود يبحث في ورقة واحدة فقط تكون هي الافتراضية

زادك الله من علمه

[abdoahmed]

شكراًجزيلاً وبارك الله فيكم علي هذا المجهود

abdoahmed

[ابو الحمز]

مبدع كالعادة

بارك الله فيك

[obad65]

للرفع

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

السلام عليكم

الشكر واصل لجميع المشاركين

الاخ/ obad65

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

في هذا الكود لفورم البحث

Private Sub UserForm_Activate()

Dim C As Integer

Comb_Find.AddItem "بحث في جميع اوراق العمل"

For C = 1 To ActiveWorkbook.Sheets.Count

    Comb_Find.AddItem ActiveWorkbook.Sheets(C).Name

Next

Comb_Find.Text = Comb_Find.List(0)

End Sub

في هذه الجزئية

Comb_Find.Text = Comb_Find.List(0)

حدد الاندكس للورقة التي تريدها او اكتب اسم الورقة مثلا:

Comb_Find.Text = "بيانات اساسية"

[obad65]

أستاذي العزيز خبور خير

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

[wisam0]

الف شكر في قمة الابداع

[أبو جديد]

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

عمل ممتاز أخي خبور

الله يعيطك العافية والصحة

[قصي]

بسم الله ماشاء الله

رااااااااائع

[BuFaisal]

انت انسان رائع بجميع المقاييس

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

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

اخوك من السعودية - الدمام

بوفيصل

تم تعديل مارس 15, 2010 بواسطه BuFaisal

[أحمد عبدالعزيز]

مهما فكرت أن أقول ... ليس لدىَّ ما أقوله سوى .......

تم تعديل سبتمبر 15, 2010 بواسطه ARABYS

[حسين شاكر]

[ولد جدة]

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

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

السلام عليكم

الشكر واصل لجميع المشاركين

=========================================

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

هنا في هذا الكود

Private Sub UserForm_Activate()

Dim sh As Worksheet

Comb_Find.AddItem "بحث في جميع اسماء القائمة"


    For Each sh In ActiveWorkbook.Sheets

        If Not sh.Visible = xlSheetVisible Then GoTo 1


        If IsError(Application.Match(sh.Name, Array("aaa"), 0)) Then

            Comb_Find.AddItem sh.Name

        End If

1:

    Next

Comb_Find.ListIndex = 0


End Sub

في هذه الجزئية ممكن تضيف اسماء الاوراق التي لا تريدها

Array("aaa")

لو فرضنا ثلاث ورق

Array("aaa", "sss", "mm")

شاهد المرفق

فورم بحث1.rar

[محمدي عبد السميع]

ماشاء الله حفظك الله ورعاك

[ahmed25]

السلام عليكم استاذ خبور خير

احيك على هذا العمل الاكثر من رائع وربنا يعطيك الصحة والعافية دايما ويجعله في ميزان حسناتك.

ولك جزيل الشكر والتقدير

[ولد جدة]

الله يعطيك العافية اخ خبور وفقك الله

[احمد غانم]

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

فقد قال رسول الله صلى الله عليه وسلم : من اسدى إليك معروفا وأردت أن تكافأه فقل له جزاك الله خيرا

[عبد الله-بلال]

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