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

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

قام بنشر (معدل)

السلام عليكم

الاخ الحبيب / أحمد فؤاد

بارك الله فيك

بعد اذن اخي الحبيب / شوقي ربيع ... جزاه الله خيرا

التعديل التالي ايضا علي نفس الكود للقدير / رجب جاويش ... جزاه الله خيرا

ليتناسب مع طلبك .... سيتم استبدال الاكواد الموجود لديك بالاكواد التاليه

Private Sub OptionButton1_Click()
Me.ComboBox1.Clear
Set sh2 = Sheets("Sheet2")
LR = sh2.[A1000].End(xlUp).Row
For Each cl In sh2.Range("A2:A" & LR)
If cl <> "" Then
Me.ComboBox1.AddItem cl
End If
Next

End Sub


Private Sub OptionButton2_Click()
Me.ComboBox1.Clear
Set sh2 = Sheets("Sheet2")
LR = sh2.[A1000].End(xlUp).Row
For Each cl In sh2.Range("B2:B" & LR)
If cl <> "" Then
Me.ComboBox1.AddItem cl
End If
Next

End Sub

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

 

Book6.rar

تم تعديل بواسطه حمادة عمر
قام بنشر

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

أستاذي / حمادة عمر ( أحبك في الله )

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

بارك الله فيك

معلش لي طلب آخر تم توضيحه داخل الملف المرفق 

آسف علي الإزعاج

تلميذك / أحمد فؤاد

Book6.rar

قام بنشر

السلام عليكم

الاخ الحبيب / أحمد فؤاد

بارك الله فيك

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

 

ولعمل المطلوب اخي الكريم بدون اكواد شاهد الرابط التالي

للقائد الاعلي لمنتدي اوفيسنا العملاق

الاستاذ المهندس / محمد طاهر ... جزاه الله خيرا

بموضوع اكثر من رااائع

http://www.officena.net/ib/index.php?app=blog&module=display&section=blog&blogid=3&showentry=47

 

http://www.officena.net/ib/index.php?showtopic=38653

 

واي استفسار او طلب ... معك دائما

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

قام بنشر

السلام عليكم

الاستاذ العملاق / رجب جاويش

بارك الله فيك

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

فمثلك استاذنا لا يستأذن بل يأمر دائما ونحن ننفذ

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

قام بنشر

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

أستاذي الفاضل / حمادة عمر ( روح المنتدي )

أستاذي الفاضل القدير / رجب جاويش ( ملك الأكواد )

بصراحة أنتما عمالقة بارك الله فيكم ونفع بكم الإسلام والمسلمين

أستاذي رجب فعلا هو ده المطلوب

ممكن لو أطمع في علمكم أكثر أنا أزعجتكم بكثرة طلباتي

عندي طلبين لو سمحتم

عند إختيار رقم ID من الكمبو بوكس يظهر إسم الموظف معي في التكست بوكس

أريد تطبيقها في الفورم وفي الصفحة أيضا

آسف جدا طولت عليكم

تلميذكم / أحمد فؤاد

عرض بيانات داخل التكست بوكس.rar

قام بنشر (معدل)

أخى الفاضل / أحمد فؤاد

عذرا للتأخير عليك فى الرد لانشغالى الشديد هذه الأيام فى أعمال امتحانات المرحلة الثانوية

وهو ما يبعدنى قليلا عن منتدانا الحبيب  ( منتدى أوفيسنا )

فعذرا لكل أحبابى وأصدقائى

 

تفضل أخى ما تريد

 

 

عرض بيانات داخل التكست بوكس.rar

تم تعديل بواسطه رجب جاويش
قام بنشر

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

أستاذي / رجب جاويش

ربنا يكون في عونك أعرف مدي المجهود والضغط عليكم وقت الإمتحانات ربنا يقويك

بالنسبة للملف فهو فعلأ أكثر من رائع وهو ده المطلوب 

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

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