VB ข้ามบรรทัดใน Excel

[thongchai839]

รบกวนหน่อยครับ

ผมแนบไฟล์ตัวอย่างมีชีท FORM (พร้อมโค้ด VB) และชีท REPORT
ในคอลัมน์ชีท REPORT S2:S4 ใส่สูตรนี้ไว้ =IF(B2<=1,0,MONTH(B2)) เพื่อให้หาเดือน แต่ปัญหาคือเวลาที่ใส่ข้อมูลในฟอร์มและกดบันทึก ข้อมูลที่ได้กระโดดไปอยู่บันทัดที่ 5 ตามตัวอย่างครับเพราะในเซลล์ S2:S4 มีสูตรหาเดือนอยู่
มีวิธีไหนที่จะให้สูตรใน VB มองข้ามสูตรในคอลัมน์ S เพื่อให้ข้อมูลที่บันทึกไม่กระโดดข้ามครับ

ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub CommandButton1_Click()
 'erw = Sheet2.Cells(1, 1).CurrentRegion.Rows.Count + 1
With Sheet2
   erw = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Row
End With
'Other code

[thongchai839]

ขอบคุณมากครับ ใช้ได้ครับ