درج کد پرسنلی و فراخوانی اطلاعات

[mohammad59]

سلام

وقت بخیر

کدی می خوام که اگه در سلول a1 شیت 1 کد پرسنل رو وارد کردم به صورت اتومات اطلاعات مربوط به این کد که در شیت 2 از A1تاH1 وارد شده را برام بیاره



با تشکر و سپاس

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[amir_ts]

با سلام
با تابع vlookup به نتیجه میرسید فایل نمونه رو ملاحظه کنید.

[mohammad59]

ممنون دوست عزیز

فرمول رو بلدم
می خواستم همینو تو vba داشته باشم

[amir_ts]

فایل پیوست شد.

Cells(1, 2).Value = Application.WorksheetFunction.vlookup(Sheet1.Range("A1"), Sheet2.Range("A1:h1"), 2, False) 

[mohammad59]

بسیار سپاسگزارم

[mohammad59]

Private Sub ComboBox1_Click()
ComboBox1.Clear
With Sheet2.ComboBox1
.AddItem "ãÑÏ"
.AddItem "Òä"
End With
End Sub
وقتی انتخاب می کنم در سلولی که لینک کردم درج نمی شه یا سریع میاد میره

[amir_ts]

با سلام

Private Sub CommandButton1_Click()
Sheet1.ComboBox1.Clear
ComboBox1.LinkedCell = "a1"
With Sheet1.ComboBox1
    .AddItem "Paris"
    .AddItem "New York"
    .AddItem "London"
End With
End Sub

[mohammad59]

سپاس برادر

[mohammad59]

سلام مجدد
ببخشید امکان داره بدون اجرای ماکرو وقتی کد پرسنلی رو تایپ کردی اتومات اطلاعات رو بیاره بدون اینکه نیاز باشه ماکرو رو اجرا کنی؟

[amir_ts]

ببخشید امکان داره بدون اجرای ماکرو وقتی کد پرسنلی رو تایپ کردی اتومات اطلاعات رو بیاره بدون اینکه نیاز باشه ماکرو رو اجرا کنی؟

با سلام
با ورود درست کد پرسنلی اطلاعات فراخوان میشود.

Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Me.Range("a1")) Is Nothing Then
    Call vlookup
         End If
End Sub