با سلام
دوست عزیز
ضمن تشکر از لطف شما ، قبل از پاسخ دادن خواهش میکنم پاسخ سوال خود را منحصر به یک نفر نکنید (یک سوال دیگر از آقا مجید داشتم ) این محیط یک بستر عمومی است و هر کس هر سوالی دارد مطرح و هر کسی اطلاعاتی در مورد آن سوال دارد پست میکند و یا حتی سوال دیگری در محدوده سوال شما بپرسد تا بکمک هم بتوانیم به نتیجه مطلوب برسیم.
ممکن است به هر دلیلی بنده نتوانم به سایت سر بزنم بدین شکل سوال کردن امکان بی پاسخ ماندن سوال شما بیشتر است .(این موضوع را فقط جهت کمک تمامی کاربران عزیز پیشنهاد میکنم )
بهر روی سوال شما را خوب متوجه نشدم جون هر دو کمبو باکس ها را امتحان کردم و اسکرول آنها فعال شد.باید توجه داشته باشید
کمبو باکس ها از هر نوع که باشند فقط وقتی به تعدادی خاص برسند (فکر کنم 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 ردیف نوشته شده است
پایدار باشید میر
علاقه مندی ها (Bookmarks)