[حل شده] تکمیل اطلاعات 3 جدول براساس اطلاعات ورودی

[mahdi_vsgh]

سلام
فایل پیوست رو ملاحظه کنید
در سمت راست جدولی به اسم "ورود اطلاعات" می باشد به همراه یک کلید این جدول فقط یک ردیف داره. کاربر اطلاعات افراد را شامل نام و نام خانوادگی وارد میکند و کلید "اضافه" را فشار میدهد حال اگه فرد وارد شده جز گروه 1 باشد باید در جدول شماره 1 و اگه جز گروه 2 باشد باید در جدول شماره 2 ثبت شود.
و همچنین کلیه افراد چه گروه 1 و چه گروه 2 به ترتیب در جدول نهایی باید اطلاعاتشون بیاد
نکته مهمتر اینکه با هربار فشردن کلید" اضافه" مراحل فوق انجام وسپس اطلاعات جدول "ورود اطلاعات" بایستی خالی بشه تا بتونیم نفر بعدی رو وارد کنیم.

خیلی ممنون میشم راهنمایی کنید

[iranweld]

با سلام

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

[iranweld]

کدهای vba فایل:

Sub test()

z1 = Cells(Rows.Count, "o").End(xlUp).Row + 1
z2 = Cells(Rows.Count, "s").End(xlUp).Row + 1
z3 = Cells(Rows.Count, "x").End(xlUp).Row + 1

If Range("c3") = ChrW(1711) & ChrW(1585) & ChrW(1608) & ChrW(1607) & ChrW(32) & ChrW(49) Then

Range("o" & z1) = Range("A3")
Range("P" & z1) = Range("B3")
Range("Q" & z1) = Range("C3")

Range("X" & z3) = Range("A3")
Range("Y" & z3) = Range("B3")
Range("Z" & z3) = Range("C3")

Range("A3") = ""
Range("B3") = ""
Range("C3") = ""


ElseIf Range("c3") = ChrW(1711) & ChrW(1585) & ChrW(1608) & ChrW(1607) & ChrW(32) & ChrW(50) Then

Range("S" & z2) = Range("A3")
Range("T" & z2) = Range("B3")
Range("U" & z2) = Range("C3")

Range("X" & z3) = Range("A3")
Range("Y" & z3) = Range("B3")
Range("Z" & z3) = Range("C3")

Range("A3") = ""
Range("B3") = ""
Range("C3") = ""

End If


End Sub 

[hasa2]

با توجه به سوالی که دوستمون فرمودند سوال مشابهی برام پیش اومد
طبق فایل ضمیمه ، الان من یک فرم ساده ورود اطلاعات درست کردم که اطلاعات وارد شده در فرم پس از کلیک بر روی دکمه ثبت اطلاعات در شیت Data ثبت میشه
حالا دو تا سوال :

1- چطور میشه به جای اینکه اطلاعات در شیت Data ثبت بشه در شیت اختصاصی هر نفر که شماره ردیف اون نفر هم هست ثبت بشه ؟ یعنی اگر شماره ردیف 1 در فرم انتخاب شد ؛ نتایج فرم در شیت شماره 1 و اگر مثلا ردیف 4 در فرم ثبت اطلاعات انتخاب شد، نتایج فرم؛ در شیت 4 ثبت بشه؟

2- یه مشکل کوچیک هم هست اینه که چطور میشه سلول های خالی در شیت نهایی خالی بمونند؟ چون الان در فرم اطلاعات اگر در اون سلول چیزی وارد نشه در هنگام ثبت نهایی در شیت Data عدد صفر وارد میشه که نمیخوام اینجوری باشه