สร้างแบบฟอร์มในหน้า sheet 1 แต่ต้องการให้ลิงค์ไป sheet 2 แนวนอน

[keay44]

สร้างแบบฟอร์ม ลงข้อมูลในชีท 1 แล้วต้องการให้กดปุ่ม save แล้วเคลียร์ข้อมูลที่ชีท 1 แต่ไปปรากฎที่ชีท 2 แนวนอน ต่อลงมาเรื่อยๆ 
ลองใส่โค๊ดดูแล้ว แต่พอกดปุ่ม save มันหายไปอยู่ที่ sheet 2 แนวตั้ง และไม่ต่อเนื่อง

[puriwutpokin]

ปรับตรงนี้ครับ

Code: Select all

Selection.PasteSpecial xlPasteValues, Transpose:=True

[keay44]

แก้ไขปรับโค๊ดแล้ว แต่ปรากฎดังภาพ sheet 1 รายการหลักที่เป็นหัวข้อให้กรอก ถูกดึงหายไป หลังจากกด save
และ พอกด save sheet 2 อยากให้เริ่มต้นที่ b เพราะคอลัมภ์แรกอยากให้เป็นลำดับที่ที่เพิ่มเองอัตโนมัติไปเรื่อยๆ

[puriwutpokin]

แก้ไขปรับโค๊ดแล้ว แต่ปรากฎดังภาพ sheet 1 รายการหลักที่เป็นหัวข้อให้กรอก ถูกดึงหายไป หลังจากกด save
และ พอกด save sheet 2 อยากให้เริ่มต้นที่ b เพราะคอลัมภ์แรกอยากให้เป็นลำดับที่ที่เพิ่มเองอัตโนมัติไปเรื่อยๆ

ปรับเป็น ตามนี้ครับ ส่วน"รายการหลักที่เป็นหัวข้อให้กรอก ถูกดึงหายไป หลังจากกด" ถ้าไม่ต้องการให้ข้อมูลที่ต้องการคัดลอกไปแล้วโดนลบก็แก้ตรงนี้ครับ ลบโค้ดนี้ทิ้ง ครับ

Code: Select all

[B2:M15].ClearContents

Code: Select all

Private Sub CommandButton1_Click()
Dim Lr  As Integer
Application.ScreenUpdating = False
ActiveWorkbook.Save
Range("D6:D17").Select
Selection.Copy
With Sheets("Sheet2")
      Lr = .Range("b" & .Rows.Count).End(xlUp).Row + 1
      .Range("b" & Lr).PasteSpecial xlPasteValues, Transpose:=True
      .Range("a" & Lr) = Lr - 1
End With
Sheets("Sheet1").Select
[B2:M15].ClearContents
Application.ScreenUpdating = True
End Sub