مساعدة في القائمة المنسدلة

[masterkabo]

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

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

وفخور بهذا التجمع الهائل من المتخصصين

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

والى سيادتكم مثال مدمج بالمرفقات للسادة الاساتذه للافضال

متمنيا من الله ان اجد ما ابحث عنه من معلومه عندكم

والله الموفق

Product list1.rar

[طارق محمود]

السلام عليكم

أولا أهلا ومرحبا بك أخي الكريم بين إخوانك

ثانيا لتلبية طلبك، تم تسمية المجالات التالية بالأسماء التي بجوارها

Agnt1 $E$2:$E$9

Agnt2 $E$10:$E$16

Agnt3 $E$17:$E$25

Agnt4 $E$26

Agnt5 $E$27

Agnt6 $E$28

Agnt7 $E$29

Agnt8 $E$30

Wasf_1A $I$2:$I$64

Wasf_1B $I$65:$I$83

Wasf_1C $I$84:$I$99

Wasf_1D $I$100:$I$108

Wasf_1E $109:$I$114

Wasf_1F $I$115:$I$165

Wasf_1G $I$166:$I$211

Wasf_1H $I$212:$I$217

Wasf_2A $I$218:$I$234

Wasf_2B $I$235:$I$247

Wasf_2C $I$248:$I$250

Wasf_2D $I$251:$I$253

Wasf_2E $I$254:$I$259

Wasf_2F $I$260:$I$265

Wasf_2G I$266:$I$269

Wasf_3A $I$270:$I$288

Wasf_3B $I$289:$I$299

Wasf_3C $I$300:$I$305

Wasf_3D $I$306:$I$308

Wasf_3E $I$309:$I$323

Wasf_3F $I$324:$I$326

Wasf_3G $I$327:$I$338

Wasf_3H $I$339:$I$342

Wasf_3I $I$343:$I$345

Wasf_4A $I$346:$I$429

Wasf_5A $I$430:$I$467

Wasf_6A $I$468:$I$496

Wasf_7A $I$497:$I$514

وكان ذلك سهل بوضع بعض الأكواد مثل

Sub Range_Names()


LR = [I8400].End(xlUp).Row

x1 = 2

For r = 2 To LR - 1

	If Cells(r, "J") <> Cells(r + 1, "J") Then

		x2 = r

		 ActiveWorkbook.Names.Add Name:="Wasf_" & Cells(x1, "J"), RefersToR1C1:= _

		"=Product!R" & x1 & "C9:R" & x2 & "C9"

		x1 = r + 1

	End If

Next r

End Sub

المهم تفضل المرفق به ماطلبت

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

Product list1.rar

[masterkabo]

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

اخي الكريم الاستاذ طارق

اولا شكرا خالص الشكر والشكر لله

ثانيا قد تخيلت في البداية ان الحل من عند الله ثم من عندك

واندهشت كثيرا عندما رأيت ردك على الموضوع وفرحت كثيرا لما رأيته من تفاؤل تجاهك

وهذه ليست مبالغة انما حقيقة لانني كنت متابع جيد للمنتدى قبل ان اشترك

وثالثا جاري التحميل والتجربة

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

[masterkabo]

ولي طلب اخيرا وليس اخرا

هل في استطاعتك شرح هذا الكود لتعم الفائدة

[طارق محمود]

السلام عليكم

شرح هذا الكود لتعم الفائدة

تفضل الملف وبه شرح سريع للكود

Product list2.rar