Posts by alhagag

thanks , but the same result don't change anything

hi guy i hope help me the code is somthing wrong i try to transfer data of invoice from sheet1 to sheet 2
but give me this mistake RED LINE
AND GIVE ME RUN TIME ERROR13

Option Explicit
Sub transferData()
Dim i As Long
Dim lastrow As Long
Dim erow As Long
lastrow = Sheets("SHEET1").Range("a" & Rows.Count).End(xlUp).Row
For i = 3 To lastrow
erow = Sheets("SHEET2").Range("a" & Rows.Count).End(xlUp).Offset(1, 0).Row
Range(Cells(i, 1), Cells(i, 6)).copy Destination:=SHEET2.Cells(erow, 1)
Next i
[COLOR=#FF0000]SHEET2.Cells(erow, 6) = WorksheetFunction.Sum(Worksheets(SHEET2).Range("e3:e35"))' this line[/COLOR]
End Sub

I have a form with the date of shipment and the date of discharge required to find the difference between the two dates shown in the textbox so if the date of shipment 24/4/2018 and the date of discharge 28/4/2018 here I want the difference between the days (28-24 = 5 days) The date of permissibility to 30/4/2018 so that I want to approximate the difference between days to week number 7 to clarify more shipping date 24/4/2018 and the date of discharge 26/4/2018 if the last date of authorization is the last date is 30/4/2018

ATTACHED FILE IN BELOW
I want a code to do this thing

I hope the picture is clear