[حل شده] انتقال اطلاعات از شیت بوسیله کد vba

[mohammad59]

با سلام و احترام

درخواست کدی رو دارم که وقتی تو شیت یک از ستون a تا f اطلاعات وارد میشه با زدن دکمه کامند باتون اطلاعات منتقل بشه به آخرین ردیف خالی در شیت 2 در همان محدوه ستون a تا f سپس اطلاعات شیت یک رو خالی کنه و آماده ورود اطلاعات جدید بشه.




با تشکر و سپاس

[iranweld]

با سلام

از کدهای ذیل استفاده کنید

Private Sub CommandButton1_Click()

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

If Z1 = 1 Then Z1 = 2

Z2 = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row + 1

Sheet1.Range("A2:F" & Z1).Copy Destination:=Sheet2.Range("A" & Z2)

Sheet1.Range("A2:F" & Z1).ClearContents

End Sub 

[mohammad59]

ممنونم از شما

فقط یه سوال من الان تو شیت یک بخوام اطلاعات یا ردیف های مربوط به یک کد رو که مثلا 1413 باز خوانی کنم و ویرایش کنم یا ردیف اضافه کنم چکدی باید بنویسم

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

سپاس

[mohammad59]

فایل رو ضمیمه کردم

[iranweld]

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

[mohammad59]

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

[mohammad59]

مهندس جان می تونید کد ذخیره بعداز فراخوانی هم بنویسید

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

[iranweld]

فایل پیوست را بررسی کنید

[mohammad59]

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

[iranweld]

با توجه به خواسته شما در پست اول:

""درخواست کدی رو دارم که وقتی تو شیت یک از ستون a تا f اطلاعات وارد میشه با زدن دکمه کامند باتون اطلاعات منتقل بشه به آخرین ردیف خالی در شیت 2 در همان محدوه ستون a تا f سپس اطلاعات شیت یک رو خالی کنه و آماده ورود اطلاعات جدید بشه.""

امیدوارم بتونید بقیه موارد را خودتون انجام بدید

[mohammad59]

مهندس جان عالیه واقعا ممنونم
مشکلم حل شد سپاسگزارم