Macro : คลิก Save แล้ว error

[wisitsakbenz]

รบกวนสอบถามอาจารย์ครับ
กรอกข้อมูลแล้ว Code error

'Reference number reset to 1 on new date

LastRowDate = WD.Cells(LastRow, 4).Value
NewRowDate = WD.Cells(NewRow, 4).Value
If LastRowDate <> NewRowDate Then
WD.Cells(NewRow, 5).Value = 1
Else
WD.Cells(NewRow, 5).Value = WD.Cells(LastRow, 5) + 1
End If

ใน Column E จะ run จากเลข 1,2,3,....
ถ้าขึ้นวันใหม่จะ run เลขใหม่

ไม่ทราบว่าต้องปรับ Code อย่างไรบ้างครับ ขอบคุณครับ

[snasui]

กรุณาโพสต์ Code ให้แสดงเป็น Code ตามกฎการใช้บอร์ดข้อ 5 ด้านบน แจ้งมาด้วยว่า Code อยู่ใน Module ไหน ชื่อ Procedure ว่าอะไร จะได้เข้าถึงปัญหาโดยไวครับ

[wisitsakbenz]

Code จะอยู่ใน UserForm1 ครับ จะ error Code ด้านล่างครับ

'Reference number reset to 1 on new date

LastRowDate = WD.Cells(LastRow, 4).Value
NewRowDate = WD.Cells(NewRow, 4).Value
If LastRowDate <> NewRowDate Then
WD.Cells(NewRow, 5).Value = 1
Else
WD.Cells(NewRow, 5).Value = WD.Cells(LastRow, 5) + 1
End If

รบกวนอาจารย์ด้วยครับ ขอบคุณครับ

[logic]

โพสต์โค้ดผิดรูปแบบครับ

[wisitsakbenz]

Code: Select all

'Reference number reset to 1 on new date

LastRowDate = WD.Cells(LastRow, 4).Value
NewRowDate = WD.Cells(NewRow, 4).Value
If LastRowDate <> NewRowDate Then
WD.Cells(NewRow, 5).Value = 1
Else
WD.Cells(NewRow, 5).Value = WD.Cells(LastRow, 5) + 1
End If

แก้ไขแล้วครับอาจาย์ รบกวนอาจารย์ด้วยครับ ขอบคุณครับ

[logic]

แบบนี้ได้ไหมครับ

Code: Select all

Dim CountDate As Long
     
LastRow = WD.Range("D4000").End(xlUp).Row
NewRow = LastRow + 1

   
 'Create reference number
 WD.Cells(NewRow, 2).Value = Year(Date) - 2000
 WD.Cells(NewRow, 3).Value = Month(Date)
 WD.Cells(NewRow, 4).Value = Day(Date)
    
CountDate = Application.CountIfs(WD.Range("b2:b" & LastRow), WD.Cells(NewRow, 2), _
    WD.Range("c2:c" & LastRow), WD.Cells(NewRow, 3), _
    WD.Range("d2:d" & LastRow), WD.Cells(NewRow, 4))
   'Reference number reset to 1 on new date

'    LastRowDate = WD.Cells(LastRow, 4).Value
'    NewRowDate = WD.Cells(NewRow, 4).Value
If CountDate = 0 Then
    WD.Cells(NewRow, 5).Value = 1
Else
    WD.Cells(NewRow, 5).Value = WD.Cells(LastRow, 5) + 1
End If

[wisitsakbenz]

Code: Select all

If CountDate = 0 Then
    WD.Cells(NewRow, 5).Value = 1
Else
    WD.Cells(NewRow, 5).Value = WD.Cells(LastRow, 5) + 1
End If

error code นี้ครับ อาจารย์ logic ขอบคุณครับ

[snasui]

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

Code: Select all

'Other code
If CountDate = 0 Or LastRow = 1 Then
    WD.Cells(NewRow, 5).Value = 1
Else
    WD.Cells(NewRow, 5).Value = WD.Cells(LastRow, 5) + 1
End If
'Other code

[wisitsakbenz]

ได้แล้วครับอาจารย์
ขอบคุณอาจารย์ snasui และ อาจารย์ logic มากครับ