Snasui Excel Forum

Code: Select all

Sub บันทึกข้อมูลอวนปัญหา()
Dim r1 As Range
Dim lastRow As Integer
With Worksheets("ฟอร์มบันทึกรายการอวนปัญหา")
    Set r1 = .Range("B4:L4")
End With
With Worksheets("Database")
    lastRow = .Range("B" & .Rows.Count).End(xlUp).Row + 1
    r1.Copy
    .Range("B" & lastRow).PasteSpecial xlPasteValues
  End With
  Application.CutCopyMode = False
End Sub

Code: Select all

TodayDate=Format(Day(Date) & "/" & Month(Date) & "/" & (Year(Date) + 543), "d-mmm-yyyy")

Code: Select all

With Worksheets("Database")

Code: Select all

Sub บันทึกข้อมูลอวนปัญหา()
Dim r1 As Range
Dim lastRow As Integer
TodayDate = Worksheet
TodayDate = Format(Date, "dd-mmm-yyyy")
With Worksheets("ฟอร์มบันทึกรายการอวนปัญหา")
    Set r1 = .Range("B4:L4")
End With
With Worksheets(TodayDate)
    lastRow = .Range("B" & .Rows.Count).End(xlUp).Row + 1
    r1.Copy
    .Range("B" & lastRow).PasteSpecial xlPasteValues
  End With
  Application.CutCopyMode = False
End Sub