จะสร้างแบบฟอร์มการลงข้อมูลสมาชิกหลายๆ คน ได้อย่างไร

[toh4u]

memberbase.xls

พอดีว่าต้องการทำไฟล์ที่เก็บข้อมูลสมาชิก ที่สมัคร นะครับ
โดยน่าจะทำการในสองชีท

โดยชีทแรก เป็นแบบฟอร์ม ไว้สำหรับกรอกข้อมูล

ชีทที่สอง Database เป็นชีทเก็บข้อมูล ลักษณะ 1 Row ต่อ หนึ่งสมาชิก

เราจะสามารถสร้างคำสั่งอะไร ยังไง บ้างครับ โดยให้ กรอกข้อมูล ใน Multi App แล้วไปขึ้นที่ Database
เมือกรอกข้อมูลคนที่หนึ่งครบ ก็ใช้คำสั่งเคลียร์ (ไม่รู้ได้ไหม) แล้วกรอกข้อมูลคนที่สอง
โดยข้อมูลใน Database ขอคนที่สอง ก้อปรากฎใน Row ที่สอง
พอคนที่สามก็ไปโชว์ที่ Row ที่สาม ไปเรื่อยๆ
โดยเราทำการคีย์ข้อมูล เฉพาะใน ชีท Multi App

รบกวนช่วยชี้แนะนำ ด้วยนะครับ

ตามไฟล์แนบเลยครับ

ขอบคุณมากครับ

[snasui]

ลองประยุกต์ใช้ Code ตามด้านล่างครับ

Code: Select all

Sub PasteData()
Dim rs1 As Range, rs2 As Range
Dim rt1 As Range, rt2 As Range
Application.ScreenUpdating = False
With Worksheets("Multi App")
    Set rs1 = .Range("F12:F21,F23,F25:F26,F28,F30,F36:F37,F40:F44,F48")
    Set rs2 = .Range("E54:E55,E57,E59:E60")
End With
With Worksheets("Database")
    Set rt1 = .Range("D" & Rows.Count).End(xlUp).Offset(1, 0)
    Set rt2 = rt1.Offset(0, 23)
End With
rs1.Copy: rt1.PasteSpecial Paste:=xlPasteValues, Transpose:=True
rs2.Copy: rt2.PasteSpecial Paste:=xlPasteValues, Transpose:=True
rs1.ClearContents
rs2.ClearContents
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Finish"
End Sub