VBA: បញ្ចូលទិន្នន័យពីតារាងមួយទៅតារាងមួយ

Private Sub Cmdadd_Click()
On Error Resume Next
Dim sht As Worksheet
Dim rdata
Application.ScreenUpdating = False
If MsgBox("Save date to Mater Date" & " " & Sheet2.Range("").Value, vbYesNo) = vbYes Then
Sheet2.PrintOut
Set rdata = Sheet3.Cells(65536, 1).End(xlUp).Offset(1, 0)
With rdata

.Offset(0, 4) = Sheet2.Range("C7").Value 'Code Vendor
.Offset(0, 5) = Sheet2.Range("I7").Value 'Code Department
.Offset(0, 6) = Sheet2.Range("I8").Value 'Code Outlet
.Offset(0, 7) = Sheet2.Range("I9").Value 'Code Date Required
.Offset(0, 8) = Sheet2.Range("B12").Value 'Code Date Requesed

End With
Worksheets("sheet3").Save
Application.ScreenUpdating = True
ActiveWorkbook.Save
Else
Exit Sub
End If
End Sub

Posted in: Code,អត្ថបទ