فراخوانی آخرین کد ثبت شده(منظورم آخرین رکورد ثبت شده نیست!)

[kamyar]

با سلام خدمت دوستان و اساتید محترم

من به یه مشکلی بر خوردم و اونم اینه که: فرض کنید در شیتی اطلاعاتی رو ثبت میکنید و در مرحله بعد میخواید اون اطلاعات رو با توجه به شرایطی فراخوانی کنید. در فایل نمونه پیوست شده در ستون b عنوان های سازمانی ثبت شده اند.در ستون c کد شغل و در ستون d عنوان شغل.
همانطور که ملاحضه میکنید در ستون b عناوین تکراری وجود دارند. حالا من میخوام در فرم مورد نظر با انتخاب مثلا مدیر مالی آخرین کد شغلی که برای این پست ثبت شده(33) در تکست باکس 1 بیاد.
هر کاری کردم نتونستم. امیدوارم تونسته باشم منظورم رو برسونم. از دوستانی که میتونن در این زمینه کمکم کنن خواهش میکنم دریغ نفرمایید. سپاسگذارم

[mokaram]

دوست عزیز تو change کمبو باکست کد زیر را وارد کن

Private Sub ComboBox1_Change()
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=2, Criteria1:=ComboBox1.Text
    TextBox1.Text = Application.WorksheetFunction.Subtotal(104, Sheet1.Range("c:c"))
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=2


End Sub 

[kamyar]

دوست عزیز تو change کمبو باکست کد زیر را وارد کن

Private Sub ComboBox1_Change()
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=2, Criteria1:=ComboBox1.Text
    TextBox1.Text = Application.WorksheetFunction.Subtotal(104, Sheet1.Range("c:c"))
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=2


End Sub 

ممنونم دوست عزیز. کاملا درست بود.شاد باشی و سلامت

[Ali Parsaei]

دوست عزیز تو change کمبو باکست کد زیر را وارد کن

Private Sub ComboBox1_Change()
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=2, Criteria1:=ComboBox1.Text
    TextBox1.Text = Application.WorksheetFunction.Subtotal(104, Sheet1.Range("c:c"))
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=2


End Sub 

البته با اين روش شماره آخرين کد اختصاص داده شده هميشه از کدهاي قبلي بايد بيشتر باشد

[mokaram]

البته با اين روش شماره آخرين کد اختصاص داده شده هميشه از کدهاي قبلي بايد بيشتر باشد

بله علی جان باید بیشتر باشه که قاعدتاً هم اینجوری هست تو کمتر جایی شاید دیده بشه که کدها از زیاد به کم بیاد