[حل شده] کامل کردن متن در اکسل

[behroozrad]

سلام
من یه مغازه دارم، لیست اجناسم رو به همراه قیمتشون وارد اکسل کردم و با طراحی یه فرمت فاکتور، فاکتورم رو توی همون فایل تکمیل و پرینت میکنم
مشکلی که دارم اینه که هردفه اسم و قیمت محصولات رو باید بصورت دستی تایپ یا فوقش کپی کنم
میخواستم ببینم راهی داره که مثلا من یک یا دو حرف از نام محصول رو وارد کنم و اکسل نام کامل رو بهم پیشنهادکنه؟ تا اونوقت با دستور vloocup بتونم با استفاده از اسم محصول، قیمت متناظرش رو هم توی سلول کنارش داشته باشم؟

[mokaram]

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

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

دیتا ولیدیشن 1

دیتا ولیدیشن 2

ابزارهای اعتبار سنجی و اخطار دهنده ( محصول فروشگاه )

[behroozrad]

با تشکر از شما دوست عزیز
این فایل رو دارم ولی توی همون مورد دوم مشکل دارم، اینکه با تایپ یک یا دو حرف از اسم محصول بتونم گزینه مورد نظر رو انتخاب کنم
همچنین میخوام تاریخ و شماره خودکار برای فاکتور درج کنم و همینطور هر فاکتور رو جداگانه در شیت بایگانی ثبت کنم

[iranweld]

با سلام

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

[behroozrad]

دمت گرم دادا
خیلی جالبه، فقط جسارتا اگه روش تهیه این فایل رو هم بگی، خیلی ممنونت میشم

[iranweld]

با سلام

اولین مرحله با استفاده از قابلیت رویدادها در اکسل شرطی را تعریف میکنیم که بمحض انتخاب یکی از سلولهای d12 الی d28 یوزرفرم جستجو باز شود.
این کدها در قسمت کدنویسی شیت فاکتور نوشته میشود

چون سه تا سلول را برای نام کالا مرچ کردید شرطی تعریف کردیم که اگر SELECTION مساوی یا کمتر 3 بود ، یوزرفرم باز شود و چنانچه تعداد بیشتری سلول را انتخاب کنید مثلا برای پاک کردن فاکتور دیگر یوزرفرم باز نشود

[behroozrad]

دمت گرم
فقط اگه بشه یه دکمه هم داشته باشه که با زدن اون اطلاعات فاکتور هم توی شیت بایگانی ثبت بشه عالیه

[iranweld]

دکمه ثبت با استفاده از ماکرو ذیل اضافه شد

Sub sabt()

z3 = Sheet3.Cells(Sheet3.Rows.Count, "A").End(xlUp).Row + 1

If z3 < 3 Then z3 = 3

 Sheet3.Range("A" & z3) = Sheet2.Range("j6")
 
  Sheet3.Range("b" & z3) = Sheet2.Range("i7")
  
  Sheet3.Range("C" & z3) = Sheet2.Range("D10")
  
  Sheet3.Range("D" & z3) = Sheet2.Range("D11")
  
  Sheet3.Range("E" & z3) = Sheet2.Range("I29")

  
End Sub 

[behroozrad]

دمت گرم دادا
یه دنیا ممنون