اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


vidan

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

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

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

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

هل هناك من أحد يساعدني بذلك ؟

جزاكم الله خيرا على عملكم وعلمكمم سلفاً

أرفق لكم الملف الذي اعمل عليه  وصورة اليوزرفورم

نموذج 2.jpg

نموذج 2.xlsm

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

السلام عليكم أخي محمد

عاجز عن شكري على المساعدة

لقد رأيت الحل وسأقول لك أنه لديك من الذكاء ما يكفي لحل المشكلة

شكراً جزيلاً مرة ثانية بارك الله فيك أخي محمد

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

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

إخوتي الكرام ...

أخي محمد...

لو سمحتم عندي مشكلة بهذا الكود :

Private Sub ComboBox2_DropButtonClick()
lrw = Sheets(1).Cells(Rows.Count, 7).End(xlUp).Row
 ComboBox2.List = Sheets(1).Range("A5:A13").Value
End Sub
هذا الكود يعمل جيداً ولكني أريد وضع البيانات التي اريد الكومبوبوكس قراءتها من الشيت رقم 5 وليس الشيت رقم واحد فعندما أغير شيت 1 إلى شيت 5 لا يقرأها !!!

وهذا الكود الذي غيرته :

 Private Sub ComboBox2_DropButtonClick()
lrw = Sheets(5).Cells(Rows.Count, 7).End(xlUp).Row
 ComboBox2.List = Sheets(5).Range("A5:A13").Value
End Sub

 

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

عفوا ولكنه لا يعمل !!

هل هذا الكود الذي ارسلته أخي سليم صحبح ؟

Private Sub ComboBox2_DropButtonClick()
Dim i%
Dim Sh As Worksheet
Set Sh = Sheets("شباط")
Me.ComboBox2.Clear
lrw = Sh.Cells(Rows.Count, 4).End(xlUp).Row
 For i = 4 To lrw
  Me.ComboBox2.AddItem Sh.Cells(i, 1)
 Next
End Sub

 

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

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

أخوتي الكرام

لقد طلبت المساعدة من يوم الأربعاء على هذا النموذج وما من إجابة لغاية اليوم! وأنا أعلم كمية الأسئلة الأهم عندكم , اتمنى المساعدة لو تكرمتم وهناك مشكلة ثانية واجهتني هي أنه عند حذف أي بيان من اليوزر فورم تختلف المعادلة على السطر الذي يليه في الشيت لأن المعادلة متسلسلة في الشيت هل هناك حل لذلك؟

الملف مرفق مرة أخرى أرجو الإضطلاع والإجابة

أتمنى من القيمين او الإخوة الكرام مساعدتي ولكم جزيل الشكر

 

Example3.xlsm

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

السلام عليكم أيها الأخوة

 

اين مشرفي المنتدى للتعديل والرد لو سمحتم

هذا اليوم الرابع منذ الطلب ولم ألقى جواب لغاية الآن عسى المانع خيراً !!!

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

 Private Sub ComboBox1_Change()
On Error Resume Next
Dim aa As String
aa = ComboBox1.Value
Sheets(aa).Select
End Sub


Private Sub UserForm_Initialize()
    Dim I As Long
    Me.ComboBox1.Clear
    For I = 1 To 13
    'Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Next
    Me.ComboBox1.Value = ActiveSheet.Name
End Sub

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

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

 

 

Example4.xlsm

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

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

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

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