جسجو با کد ملی و جای گذاری

[ahadbares]

سلام خسته نباشید من یه فایل نمونه دارم میخوام کد ملی فرد وارد کنم بقیه اطلاعات بیاد بشینه سر جاش اگه نبود جای خودشون بنویسم بعد انتقال بدم به شیت دیتا اگه ممکنه با vlookupدر محیط ویژال بیسیک باشه

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

[ahadbares]

سلام خسته نباشید من یه فایل نمونه دارم میخوام کد ملی فرد وارد کنم بقیه اطلاعات بیاد بشینه سر جاش اگه نبود جای خودشون بنویسم بعد انتقال بدم به شیت دیتا اگه ممکنه با vlookupدر محیط ویژال بیسیک باشه

[generalsamad]

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

[ahadbares]

ببخشید فایل نذاشته بودم

[ahadbares]

کسی نیست کمک کنه

[generalsamad]

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

[Ali Parsaei]

سلام،
سوالتان خيلي مفهوم نيست،
در شيت 1 مي خواهيد شماره کد ملي فرد در خانه E2 وارد شده و سپس بقيه اطلاعات هم از شيت ديگر فراخوان گردد؟
خوب مي شود کد ملي را دستي وارد کرد و بقيه خانه ها را هم با تابع VLOOKUP به شيت ديگر ارتباط دهيد،
اگر اصرار بر وارد کردن کد ملي با VBA داريد هم مي توانيد از يک همچين کدي استفاده کنيد:

Private Sub CommandButton1_Click()
Dim C
C = Application.InputBox("کد ملي را وارد نماييد", "انتخاب کد ملي")
If C = False Then Exit Sub
If C = "" Then
MsgBox "کد ملي را وارد نماييد", vbOKOnly, "!خطا"
CommandButton1_Click
Else
On Error GoTo KHATA
Sheets("SHEET1 (2)").Range("A:A").Find(C, , xlValues, xlWhole).Select
Selection.Copy
Sheets("Sheet1").Select
Sheets("Sheet1").Range("E2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
Exit Sub
KHATA: MsgBox "يافت نشد", vbOKOnly, "!خطا"
End Sub

اين کد اطلاعات يک کد ملي را از شما دريافت و در "شيت يک (دو)" دنبالش مي گردد و در صورت يافتن آن را در خانه E2 "شيت يک" کپي مي کند.
من مانند فايل خودتان آن را به صورتي نوشته ام که اطلاعات را با INPUTBOX از شما دريافت کند و نيز براي دگمه اي با نام CommandButton1 نوشته شده.
کلا" سوالتان خيلي مفصل است! به نظرم بهتر است تا جايي که مي توانيد مراحل کار را انجام داده و فقط دقيقا" آنجايي که با مشکل بر مي خوريد را مطرح کنيد.
وگرنه حالت يک پروژه را به خود خواهد گرفت و بايد آن را در قالب سفارش پروژه مطرح کنيد و طبعا" انتظار پاسخ به آن در محيط عادي انجمن که براي رفع اشکالات جزئي است را نبايد داشته باشيد.
موفق باشيد.

[ahadbares]

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

[majid_mx4]

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

خلاصه : فراخانی اطلاعات بر اساس کد ملی

با تشکر میر

[ahadbares]

باسپاس فروان از دوستانی که به این فایل توجه می کنند فقط اون کلید فراخانی وجود نداشته باشه با فرمول vlookup میشه این کارو انجام داد اما اگه مشخصات فرد در شیت 1(2)نباشه بخواهم مشخصات رو در e3الی e13 در شیت 1وارد کنم فرمول پاک میشه اما اگه در vba فرمولی باشه که به محض زدن کد ملی بقیه اطلاعات فراخانی بشه بدون زدن هیچ کلیدی