حذف و اصلاح یک سطر از یه لیست باکس.

**M_ExceL** · 2019/12/16, 00:05

نوشته اصلی توسط malek230

با سلام.
بچه ها اگه امکان داره به فایل من یه نگاه بندازید.
من میخوام تو این فرمی که ساختم موقعی که یه کد تکراری ثبت بزنم بعد از اینکه ردیف اون کد در لیست باکس انتخاب شد بتونم با باتن حذف اون ردیف رو حذف کنم یا با باتن اصلاح بتونم اون سطر رو اصلاح کنم. یعنی اگه تعداد کالا را عوض کردم بتونم اصلاح کنم. باتن حذف میاد بجای اینکه اون سطر انتخابی رو حذف کنه اولین سطر رو حذف میکنه.
ممنون میشم کمک کنید.

سلام،
کدهای باتن حذف رو باید کمی تغییر بدید
خط زیر رو پیدا کنید :

کد:

Sheets("inter").Range("A:A").Find(ListBox1.Text).Activate

با کد زیر جایگزین کنید :

کد:

Sheets("inter").Range("e:e").Find(TextBox1.Text).Activate

برای باتن اصلاح هم بصورت فوق تغییر بدید.

**malek230** · 2019/12/18, 11:18

نوشته اصلی توسط M_ExceL

سلام،
کدهای باتن حذف رو باید کمی تغییر بدید
خط زیر رو پیدا کنید :

کد:

Sheets("inter").Range("A:A").Find(ListBox1.Text).Activate

با کد زیر جایگزین کنید :

کد:

Sheets("inter").Range("e:e").Find(TextBox1.Text).Activate

برای باتن اصلاح هم بصورت فوق تغییر بدید.

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

**M_ExceL** · 2019/12/18, 21:07

نوشته اصلی توسط malek230

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

سلام،
فایلی که تغییر دادید رو پیوست کنید چک کنم براتون.

**malek230** · 2019/12/20, 09:55

نوشته اصلی توسط M_ExceL

سلام،
فایلی که تغییر دادید رو پیوست کنید چک کنم براتون.

آقا جسارتا نظرم عوض شد. نمیخوام اون سطر انتخابی حذف بشه. اگه حذف بشه نظم شیتهای دیگه بهم می ریزه.
اگه امکانش هست دستوری به باتن حذف بدید که در سطری که انتخاب شده عدد صفر به جای کد کالا وارد کنه. و اون وقت خودم دستورایی بعدا بش میدم که کدی که عدد صفر هست رو موجودی انبارش تو محاسبات حساب نکنه.
نن زیاد با ویژوال آشنایی ندارم. من در فرمها و کد نویسی فرمها بیشتر از اکسل کار کشیدم تا ویژوال بیسیک.

حذف و اصلاح یک سطر از یه لیست باکس.

پرسش حذف و اصلاح یک سطر از یه لیست باکس.

کامنت

کامنت

کامنت

کامنت