ขอคำแนะนำเพิ่มเติม VBA เฉพาะส่วน

[keay44]

รบกวนสอบถามการเขียน VBA เว้นวรรคเฉพาะคอลัมภ์ H, S ซึ่งเบื้องต้นหนูเขียนสูตรมาคราวๆ แต่ติดปัญหา ช่อง H ที่ตั้งสูตรไว้ ถูกลบสูตรไปทำให้ต้องมาคลิกรวมสูตรมาใหม่ ซึ่งหนูขอคำแนะนำเพิ่มเติมในการตั้ง สูตร VBA เฉพาะส่วน ไม่ให้ข้อมูลในช่องดังกล่าวถูกลบไป เบื้องต้นได้เขียนโค๊ดมาแล้วแต่ปรับเปลี่ยนแล้วไม่สามารถ เว้นช่อง H ได้ค่ะ ส่วนช่อง S เว้นได้ปกติ

Code: Select all

Private Sub CommandButton1_Click()
    ActiveWorkbook.Save
    Range("C5:C13").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Range("A1048576").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial xlPasteValues, Transpose:=True
    Sheets("Sheet1").Select
    Range("C13").Copy
    Sheets("Sheet2").Select
    ActiveSheet.Range("A1048576").End(xlUp).Offset(0, 18).Select
    Selection.PasteSpecial xlPasteValues
    Sheets("Sheet1").Select
    [B2:M15].ClearContents
End Sub

[puriwutpokin]

รบกวนสอบถามการเขียน VBA เว้นวรรคเฉพาะคอลัมภ์ H, S ซึ่งเบื้องต้นหนูเขียนสูตรมาคราวๆ แต่ติดปัญหา ช่อง H ที่ตั้งสูตรไว้ ถูกลบสูตรไปทำให้ต้องมาคลิกรวมสูตรมาใหม่ ซึ่งหนูขอคำแนะนำเพิ่มเติมในการตั้ง สูตร VBA เฉพาะส่วน ไม่ให้ข้อมูลในช่องดังกล่าวถูกลบไป เบื้องต้นได้เขียนโค๊ดมาแล้วแต่ปรับเปลี่ยนแล้วไม่สามารถ เว้นช่อง H ได้ค่ะ ส่วนช่อง S เว้นได้ปกติ

Code: Select all

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
    ActiveWorkbook.Save
    Range("C5:C13").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Range("A1048576").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial xlPasteValues, Transpose:=True
    Sheets("Sheet1").Select
    Range("C13").Copy
    Sheets("Sheet2").Select
    ActiveSheet.Range("A1048576").End(xlUp).Offset(0, 18).Select
    Selection.PasteSpecial xlPasteValues
    Sheets("Sheet1").Select
    [B2:M15].ClearContents
 Application.ScreenUpdating = True
End Sub

ลองปรับเป็น

Code: Select all

Private Sub CommandButton1_Click()
    ActiveWorkbook.Save
    Range("C5:C11").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Range("A1048576").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial xlPasteValues, Transpose:=True
    Sheets("Sheet1").Select
    Range("C12:C13").Select
     Selection.Copy
     Sheets("Sheet2").Select
         ActiveSheet.Range("A1048576").End(xlUp).Offset(0, 8).Select
    Selection.PasteSpecial xlPasteValues, Transpose:=True
    Sheets("Sheet1").Select
    Range("C13").Copy
    Sheets("Sheet2").Select
    ActiveSheet.Range("A1048576").End(xlUp).Offset(0, 19).Select
    Selection.PasteSpecial xlPasteValues
    Sheets("Sheet1").Select
    [B2:M15].ClearContents
End Sub

[keay44]

ขอบคุณมากๆค่ะ