[حل شده] جستجو از طریق کمبوباکس

[pishraw]

باسلام
مشکلی داشتم در مورد جستجوی کد افراد در یک کمبوباکس . خواهشاٌ با توجه به فایل ضمیمه اگر راهنمایی کنید ممنون میشم

[amir_ts]

با سلام
فایل نمونه رو ببینید.

[pishraw]

با تشکر از جناب امیر . اما جواب سوال من به این صورت نیست . من می خواهم با کلیک بر روی اسامی کمبوباکس کدهای آنها در شیت2 فیلتر شود

[majid_mx4]

با سلام

لطفا فایل ضمیمه را بررسی نمایید.

خلاصه : فیلتر کردن یک ستون توسط Drop Down

موفق باشید میر

[majid_mx4]

با سلام

و عرض پوزش فایل قبلی که پست کرده بودن هنگام باز شدن خطایی می گرفت که آن را اصلاح و به در همان پست قبلی آپلود کردم.

کاربرانی که آن را دانلود کردن برای اصلاح آن فقط کافیست به محیط وبی رفته و ماکرو داخل Thisworkbook را حذف نمایند.

باز پوزش مجدد میر

[pishraw]

با تشکر از جناب مجید بزرگوار که همیشه جوابگوی سوالات بنده بود . اقا مجید بنده هنوز به جوابم نرسیدم. عنایت فرمائید که هدف من فیلتر کدهای شیت 2 هستش که این کدها مربوط به افرادی هستند که در شیت اول در کمبو باکس قراردارند. حالا منظور من از طرح این سوال به این صورت است که هرگاه کلیک کنم بر روی لیست کمبو باکس برای مثال (اسم علی که شامل کد 1 می باشد) برود شیت دوم و کد 1 را فیلتر کند.
با تشکر فراوان

[majid_mx4]

با سلام

بله کاملا حق با شماست بابت کمی دقت به سوال مطرح شده پوزش می طلبم .
لطفا فایل ضمیمه را بررسی نمایید.

خلاصه : فیلتر کردن درشیت دیگر به وسیله Drop Down

با تشکر میر

[pishraw]

ممنون آقا مجید .بسیار عالـــــــــــــــــــــــــــــــــــی .
یک سوال دیگه هم دارم . چرا هنگام فیلتر کردن کدها ی شیت 2 همزمان شیت 2 نمایش داده نمیشه

باز هم ممنون بخاطر جواب خوبتان

[Ali Parsaei]

ممنون آقا مجید .بسیار عالـــــــــــــــــــــــــــــــــــی .
یک سوال دیگه هم دارم . چرا هنگام فیلتر کردن کدها ی شیت 2 همزمان شیت 2 نمایش داده نمیشه

باز هم ممنون بخاطر جواب خوبتان

براي فيلتر کردن لزومي به فعال شدن شيت دو نبوده! به همين خاطر هم آقا مجيد همچين شرطي را در کدشان منظور نکرده اند، با اين وجود اگر بخواهيد شيت دو هم موقع فيلتر شدن فعال گردد بايد يک خط به کدتان اضافه کنيد:

Sheet2.Activate 

[pishraw]

با تشکر از همه عزیزان .
یک سوال دیگر از آقا مجید داشتم در خصوص کمبو باکس.
در قسمت vba دوتا ابزار کمبو با کس وجود داره که ما کمبوباکس اول استفاده کردیم برای لیست افراد که با مشکلاتی مواجه شدم مانند تعداد افراد . لیستی که من استفاده می کنم 300نفر بیشتر است و چون اسکرول بار ندارد انتخاب آنها مشکل است . به همین جهت از ابزار دوم کمبوباکس استفاده کردم که انتخاب افراد در راحتر و دارای اسکرول بار می باشد . اما در اجرای ماکرو مشکل دارم . خواستم خواهش کنم اگر زحمتی نیست کمبوباکس دوم را که در فایل ضمیمه ارائه شده برسی نمائید تا از طریق این ابزار کدها فراخوانی بشود

[majid_mx4]

با سلام

دوست عزیز

ضمن تشکر از لطف شما ، قبل از پاسخ دادن خواهش میکنم پاسخ سوال خود را منحصر به یک نفر نکنید (یک سوال دیگر از آقا مجید داشتم ) این محیط یک بستر عمومی است و هر کس هر سوالی دارد مطرح و هر کسی اطلاعاتی در مورد آن سوال دارد پست میکند و یا حتی سوال دیگری در محدوده سوال شما بپرسد تا بکمک هم بتوانیم به نتیجه مطلوب برسیم.
ممکن است به هر دلیلی بنده نتوانم به سایت سر بزنم بدین شکل سوال کردن امکان بی پاسخ ماندن سوال شما بیشتر است .(این موضوع را فقط جهت کمک تمامی کاربران عزیز پیشنهاد میکنم )

بهر روی سوال شما را خوب متوجه نشدم جون هر دو کمبو باکس ها را امتحان کردم و اسکرول آنها فعال شد.باید توجه داشته باشید

کمبو باکس ها از هر نوع که باشند فقط وقتی به تعدادی خاص برسند (فکر کنم 10 ردیف ) بصورت اتوماتیک اسکرول بار آنها فعال میشوند .( محدوده انتخاب خود را در هر دو اسکرول بار افزایش دهید ) اینکار هم انجام دادم تا خودتان مشاهده کنید .

اما دستورات جدید برا ی کموباکس جدید

Private Sub ComboBox1_Change()

On Error Resume Next
 Dim tmp As String
 tmp = ActiveSheet.ComboBox1.List(ComboBox1.ListIndex)
Dim cell As Range
For Each cell In Sheets("Sheet1").Range("c5:c300")
If cell.Value = tmp Then
Fincod = cell.Offset(0, 1).Value
Sheet2.Activate
Sheets("Sheet2").Range("f3").AutoFilter _
   field:=1, _
   Criteria1:=Fincod
 End If
' Exit Sub
Next
End Sub

که برای 300 ردیف نوشته شده است

پایدار باشید میر

[pishraw]

با تشکر از همه دوستان و شما میــــــــــــــر عزیز