Snasui Excel Forum

เราสามารถเขียนโค้ด Marco เพื่อให้สามารถกด save ได้2ชีทได้ไหมคะ ตอนนี้เขียนโค้ดแล้วสามารถกด save ได้แค่หน้าเดียวค่ะ อันนี้คือตัวอย่างโค้ดค่ะ
Private Sub cmdadd_Click()
Application.ScreenUpdating = False
Dim irow As Long
irow = Sheets(3).Range("A1048576").End(xlUp).Row + 1
With ThisWorkbook.Sheets(3)
.Range("A" & irow) = IIf(OptionButton1.Value = True, "เบิกสินค้า", "สั่งซื้อสินค้า")
.Range("B" & irow) = ComboBox1.Value
.Range("C" & irow) = TextBox2.Value
.Range("D" & irow) = TextBox3.Value
.Range("E" & irow) = TextBox5.Value
.Range("F" & irow) = ComboBox2.Value
.Range("G" & irow) = TextBox1.Value
End With
Call Reset
Application.ScreenUpdating = True
End Sub

ลองแนบไฟล์ที่ได้เขียน Code นี้เอาไว้แล้วมาให้เพื่อน ๆ ช่วยดูครับ

การวาง Code ให้กล่องความเห็นนี้ให้ทำตามกฎข้อ 5 ด้านบน เพื่อสะดวกต่อการอ่านและแตกต่างจากข้อความปกติครับ