طلب كود قائمة منسدلة علي الشيت بأسماء الشيتات بشرط

[KHMB]

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

مثلا لدينا أسماء صفحات ( شيتات )كالتالي :

1001    1002    1003     NCR-101     NCR-102     NCR-103     R-201     R-202  

المطلوب كود قائمة منسدلة في الشيت  بأسماء الشيتات بشرط ان تظهر أسماء الشيتات اللي بالأرقام فقط 1001    1002    1003 مع مراعاة الزيادة والنقص   

مرفق ملف به الصفحات المذكوره أعلاه فقط

قائمة منسدلة بالصفحات الارقام فقط.rar

تم تعديل نوفمبر 17, 2015 بواسطه KHMB

[الصـقر]

تفضل الحل بالملف المرفق

قائمة منسدلة بالصفحات الارقام فقط.zip

تم تعديل نوفمبر 18, 2015 بواسطه الصـقر

[الشيباني1]

تحية طيبه  هل يمكن تعديل الكود ليوصلنا الى الورقة المختاره من القائمه المنسدله  مع الشكر

[الصـقر]

اخى الفاضل الشيبانى 

جرب الكود ده فى حدث تغيير الكمبوبوكس

Private Sub ComboBox1_Change()
a = ComboBox1.Value
Sheets(a).Select
End Sub

وشاهد الملف المرفق

قائمة منسدلة بالصفحات الارقام فقط.zip

[KHMB]

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

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

لكـــــــــــــــــــــن المطلوب  قائمة في الشيت نفسة بالاكواد مع الاخذ بعين الاعتبار الزيادة والنقص

 

***************************************************************************************************************

ولله الحمد في 5 دقائق استخلصت فكرة كود اخي حسام وعلي ضوئها عملت الحل خلاص شكرا توصلت للحل جزاكم الله خير الجزاء

مرفق الملف به الحل بسيط جدا

For i = 1 To Sheets.Count
If IsNumeric(Sheets(i).Name) Then
[X2000].End(xlUp).Offset(1, 0) = Sheets(i).Name
End If
Next

ثم من الصفحة Main نعمل قائمة من التحقق من صحة البيانات ونختار العمود الذي تنزل فيه أسماء الصفحات وهنا العمود X ويتغير العمود حسب الرغبة

اكرر شكري لك اخي حسام

قائمة منسدلة بالصفحات الارقام فقط.rar

تم تعديل نوفمبر 18, 2015 بواسطه KHMB

[الصـقر]

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

وبخصوص حلك كويس انك بتطور فى الكود

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

وعلشان تمنع التكرار لازم تضيف السطر ده بداية الكود

ورقة10.Range("x:x").ClearContents

عموما شاهد المرفق

دا الكود فى حدث تغيير تحديد الخلايا داخل الشيت 1003 عند الوقوف على الخلية A1

وهو بيعمل قائمه منسدله بالكود ولا داعى لتصميمها من Data

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
Range("cv:cv").ClearContents
For i = 1 To Sheets.Count
If IsNumeric(Sheets(i).Name) Then
lr = Cells(Rows.Count, "cv").End(xlUp).Row
Cells(lr + 1, 100) = Sheets(i).Name
End If
Next
Range("a1").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=OFFSET($CV$2,0,0,COUNTA(CV:CV))"
    End With
End If
End Sub

جرب تحذف اى شيت او تضيف شيت او تعدل اسم شيت الى رقم

وشاهد تغيير القائمة المنسدله

قائمة منسدلة بالصفحات الارقام فقط.zip

تم تعديل نوفمبر 18, 2015 بواسطه الصـقر

[KHMB]

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

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

بالنسبة للكود الثاني ممتاز جدا عجبنــــــي جدا جدا ويغنيني  عن العمل السابق بمرحلتين

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

 

[الشيباني1]

اشكرك اخي العزيز ودمت لنا معلما