Snasui Excel Forum

ผมป้อนข้อมูลซักพักแล้วมันติดบัค ตามรูปภาพครับ
เป็นเพราะอะไรครับ
Sub btnSave_Click()

If Range("H5").Value = "" Then
MsgBox "Please enter the person code", vbCritical
Exit Sub
End If

Dim strRngs As String, r As Range, strSh As String
Dim l As Long, i As Integer, j As Integer, k As Long

strRngs ...

ทำได้แล้วครับ ขอบคุณมากครับ

:D ผมรบกวนอาจารย์ช่วยดู code ให้ผมทีครับ ว่าทำไมเวลาป้อนข้อมูล แค่ 1-3 แถว พอกดบันทึกแล้ว มันไม่เคลียร์ข้อมูลให้เราครับ? แต่ถ้าป้อนข้อมูลครบทั้ง4 แถว(E#) มันค่อยเคลียร์ให้ครับ

ขอบคุณล่วงหน้าด้วยครับ.



Sub btnSave_Click()

If Range("H5").Value = "" Then
MsgBox "Please enter the person code ...

สอบถามครับ แล้วถ้าอยากให้ 4 ช่องสุดท้ายของ Form ไปบันทึกใน Sheet ใหม่ ชื่อ worktime (เหมือนเงื่อนไขข้อ 1)
ต้องเพิ่ม Code ส่วนไหนบ้างครับ ขอบคุณครับ

ทำได้แล้วครับ ขอบคุณมากครับที่ให้แนวทางการปรับ code

รบกวนสอบถามครับ

1.ผมต้องการให้ macro ทำการบันทึกข้อมูลเฉพาะช่องที่มีการป้อนข้อมูลในฟอร์มเท่านั้น ลงใน Sheet Database

2.ผมต้องการให้ macro บันทึกแยก Sheet ถ้าในช่องนั้นของฟอร์มมีการป้อน Project code เป็น NP00003 ลงใน Sheet NP00003 ต่างหาก

ผิดผลาดประการใดต้องขออภัยด้วยนะครับ มือใหม่หัดโพส ...