ثبت اطلاعات در فرم

[MORTEZA9595]

سلام خدمت همه اساتید و سروران عزیز
سوال 1: در فایل پیوست من یه فرم ورود اطلاعات تنظیم کردم ولی همانطور که ملاحظه میکنید درون یک سری از ستون ها فرمول محاسیه از پیش تعیین شده وجود داره ولی هتگام تکمیل فرم و زدن دکمه ثبت اطلاعات فرمول محاسبه شده از بین می رود چطور امکان داره این مشکل رو من رفع کنم؟
سوال 2: در صورت داشتن چند شیت در این فایل چطور میتونم یک شیت کلی داشته باشم که هتگام زذن دکمه ثبت اطلاعات همه اطلاعات در اون وارد بشه و دو شیت دیگه هم داشته باشم که هم زمان بر اساس نوع (نوع در فرم اطلاعات که 1 و 2 می باشد) جداسازی انجام بشود و هر نوع به طور خودکار در شیت خود ثبت گردد.
با تشکر

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

[iranweld]

با سلام

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

در فایل پیوست برای نمونه مقداری کدنویسی انجام شد.

Sub TEST()


z1 = Range("Table1[[#Headers],[ÔãÇÑå ]]").End(xlDown).Row + 1


For j = 1 To 9

Sheets("List").Cells(z1, j + 1) = Sheets("Form").Range("b" & j)

Next

Sheets("List").Range("k" & z1) = "= j" & z1 & "-i" & z1

For j = 11 To 14

Sheets("List").Cells(z1, j + 1) = Sheets("Form").Range("b" & j)

Next

MsgBox "Sabt Shod."

End Sub 

[MORTEZA9595]

با سلام

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

در فایل پیوست برای نمونه مقداری کدنویسی انجام شد.

Sub TEST()


z1 = Range("Table1[[#Headers],[ÔãÇÑå ]]").End(xlDown).Row + 1


For j = 1 To 9

Sheets("List").Cells(z1, j + 1) = Sheets("Form").Range("b" & j)

Next

Sheets("List").Range("k" & z1) = "= j" & z1 & "-i" & z1

For j = 11 To 14

Sheets("List").Cells(z1, j + 1) = Sheets("Form").Range("b" & j)

Next

MsgBox "Sabt Shod."

End Sub 

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

[iranweld]

فایل پیوست را بررسی فرمایید