سلام،
توسط کدام کمبوبکس انتخاب مي کنيد؟ من در فايلتان کمبوبکس نمي بينم!
من يک کد نوشته ام و فرض کرده ام که مقادير را توسط ليست کشويي با ديتاوليديشن در خانه M1 انتخاب مي کنيد، اگر کمبوبکس داريد M1 در کد را با نام کمبوبکس عوض کنيد:
ضمنا" اين کد مخصوص همين فايل شما است و موقع کد نويسي توجهي به TABLE ها هم نکرده ام (کلي نوشته ام)، طبعا" هر چيزي در فايل تغيير کند بايد کد را هم دستکاري کنيد:
کد PHP:
Dim C As Integer
For C = 2 To 4
Sheets(C).Range("A1:A25").AutoFilter Field:=1, Criteria1:=Range("M1").Value
Sheets(C).Range("A1").End(xlDown).Resize(1, 10).Copy
ActiveSheet.Range("A1").Offset(C - 1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next C
علاقه مندی ها (Bookmarks)