پرسش فرخوان ، ادیت و رکورد جدید با vb

[علی فاطمی]

با سلام و وقت بخیر
در یک فایل دو شیت دارم که یکی به صورت دیتا بیس و دیگری جهت نمایش اطلاعات می باشد . در حال حاضر اطلاعات در شیت 2 به صورت دیتا بیس ثبت و در شیت 1 با استفاده از vlookup نمایش داده می شود ( با محوریت و تغییر مدل در شیت 1 )
من می خوام برای جلوگیری از خطای کاربر، اطلاعات از شیت 1 که برای نمایش هست ، هم دیده بشه ، هم ویرایش و Save بشه و هم امکان رکورد جدید داشته باشه یعنی با پر کردم سلول مدل امکان انجام این کارها وجود داشته باشه و کاربر کاری با شیت 2 که دیتا بیس هست نداشته باشه.
در فایل پیوست توضیحات داده شده است .

از اینکه وقت میزارید و به این تاپیک توجه می کنید خیلی ممنونم .

[علی فاطمی]

سلام و وقت بخیر
از دوستان کسی می تونه راهنمایی کنه

[iranweld]

سلام و وقت بخیر
از دوستان کسی می تونه راهنمایی کنه

با سلام

تا حدودی عملیات جستجو و ویرایش و اضافه کردن دیتای جدید به فایل اضافه شد

[علی فاطمی]

با سلام

تا حدودی عملیات جستجو و ویرایش و اضافه کردن دیتای جدید به فایل اضافه شد

ممنون از توجه شما
من روی فایل اصلی خود پیاده سازی می کنم . اگر مشکلی داشتم ممکنه باز مزاحم بشم.
باز هم صمیمانه تشکر می کنم.

[علی فاطمی]

با سلام

تا حدودی عملیات جستجو و ویرایش و اضافه کردن دیتای جدید به فایل اضافه شد

با سلام و وقت بخیر
ضمن تشکر از شما بابت پاسخ عالی شما ، با مشکل جدیدی روبرو شدم .
سلولی که به لیست وابسته شده قطعا به دلیل افزوده شدن محصول جدید نیاز به بروزرسانی دارد یعنی لیست مرجع باید بروز بشه و تنها راه ( با توجه به عدم دسترسی به data ) باید از همون سلول اینکار صورت بگیره که من انجامش دادم ( فایل پیوست نمیشه خیلی امتحان کردم ولی متاسفانه پیوست نمیشه ).
ولی لیست کشویی باید قابلیت سرچ داشته باشه چون بیش از 400 محصول وجود دارد و گشتن لیست برای یک محصول زمان زیادی میبره . اگر امکان کد نویسی وجود داشته باشه ممنون میشم راهنمایی بفرمایید.

با تشکر از توجه جنابعالی

[علی فاطمی]

با سلام و وقت بخیر
ضمن تشکر از شما بابت پاسخ عالی شما ، با مشکل جدیدی روبرو شدم .
سلولی که به لیست وابسته شده قطعا به دلیل افزوده شدن محصول جدید نیاز به بروزرسانی دارد یعنی لیست مرجع باید بروز بشه و تنها راه ( با توجه به عدم دسترسی به data ) باید از همون سلول اینکار صورت بگیره که من انجامش دادم ( فایل پیوست نمیشه خیلی امتحان کردم ولی متاسفانه پیوست نمیشه ).
ولی لیست کشویی باید قابلیت سرچ داشته باشه چون بیش از 400 محصول وجود دارد و گشتن لیست برای یک محصول زمان زیادی میبره . اگر امکان کد نویسی وجود داشته باشه ممنون میشم راهنمایی بفرمایید.

با تشکر از توجه جنابعالی

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

[iranweld]

با سلام

در فایل پیوست با تایپ یک یا چند حرف ، نام آن محصولاتی که با این حروف شروع میشوند در لیست نمایش داده میشود

[علی فاطمی]

با سلام

در فایل پیوست با تایپ یک یا چند حرف ، نام آن محصولاتی که با این حروف شروع میشوند در لیست نمایش داده میشود

[ATTACH=CONFIG]23230[/ATTACH]

ممنون از توجه و پاسخ درجه یک شما .
فقط الان چطوری باید محصولات جدیدم رو به لیست اضافه کنم ؟؟؟؟؟؟
البته با این پیش فرض که نمی خوام شیت data رویت بشه و فقط از همون شیت form همه چی کنترل بشه ؟؟؟؟

Dim Newdata As String
If Target.Cells.Count > 1 Then Exit Sub


If Not Intersect(Target, Range("R1")) Is Nothing Then
Newdata = ""
Newdata = Target
If WorksheetFunction.CountIf(Sheet1.Range("List2"), Newdata) = 0 Then
Sheet1.Range("List2").End(xlDown).Offset(1, 0) = Newdata
Sheet1.Range("List2").Resize(Sheet1.Range("List2") .Rows.Count + 1, 1).Name = "List2"
End If
End If

این کد رو برای همین در نظر گرفته بود.

با تشکر از حسن توجه شما.

[iranweld]

در فایل ارسالی قبل ، کلید ثبت برای این منظور در نظر گرفته شده بود.

[علی فاطمی]

در فایل ارسالی قبل ، کلید ثبت برای این منظور در نظر گرفته شده بود.

[ATTACH=CONFIG]23235[/ATTACH]

ممنون از حسن توجه شما.
چرا وقتی لیست رو باز می کنیم محتوای لیست از آخر نمایش داده میشه ؟
راه حلی داره که از ابتدای لیست قابل مشاهده باشه ؟

[iranweld]

مانند تصویر پیوست سلول اول لیست رو خالی بزارید و فرمول را برای سلول دوم الی آخر اصلاح کنید

[علی فاطمی]

سلام و وقت بخیر خدمت همه عزیزان

لطفا فایل پیوست رو ملاحظه بفرمایید.

در لیست کشویی قابلیت جستجو، نمایش و ثبت کد جدید وجود دارد . حال اگر کاربر به اشتباه کد رو بنویسه نمی تونه همون کد رو اصلاح کنه ؟؟؟؟؟؟ چرا که اصلاح کد دوباره خودش یه کد جدید ثبت میشه .
1 - آیا روشی هست که با همین ترکیب موجود امکان اصلاح کد وجود داشته باشه ؟ ( چه در همین شیت یا با استفاده از یوزر فرم ، فرقی نمیکنه ) به عنوان مثال کد alam4 رو به alam698 تغییر بده .
2- اگر کاربر بخواد یک ردیف ایجاد شده رو با مشخص کردن کد محصول اون ردیف ، حذف کنه ، امکان وجود داره ؟ به عنوان مثال می خواد ردیفی که کد avolt1 وجود داره رو کلا حذف کنه.

ممنون از توجه عزیزان

[علی فاطمی]

با سلام و وقت بخیر
از عزیزان کسی می تونه منو راهنمایی کنه ؟
خیلی ممنون.