คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
Code: Select all
Selection.PasteSpecial xlPasteValues, Transpose:=Trueปรับเป็น ตามนี้ครับ ส่วน"รายการหลักที่เป็นหัวข้อให้กรอก ถูกดึงหายไป หลังจากกด" ถ้าไม่ต้องการให้ข้อมูลที่ต้องการคัดลอกไปแล้วโดนลบก็แก้ตรงนี้ครับ ลบโค้ดนี้ทิ้ง ครับkeay44 wrote:แก้ไขปรับโค๊ดแล้ว แต่ปรากฎดังภาพ sheet 1 รายการหลักที่เป็นหัวข้อให้กรอก ถูกดึงหายไป หลังจากกด save
และ พอกด save sheet 2 อยากให้เริ่มต้นที่ b เพราะคอลัมภ์แรกอยากให้เป็นลำดับที่ที่เพิ่มเองอัตโนมัติไปเรื่อยๆ
Code: Select all
[B2:M15].ClearContentsCode: 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