Copying data over based on the year

[TRY369]

Hi there, I am trying to make a code where I will copy the row of date if the date meets the criteria. The data will be pasted onto another sheet in the workbook. However, I have this error which i was not able to solve..

Private Sub LoggedAss_Click()
Dim lastrow As Long, erow As Long, i As Long
Dim mydate As Date
lastrow = General_Logsheet.Cells(Rows.Count, 1).End(xlUp).Row

General_Logsheet.Range("A1").Select

For i = 2 To lastrow

    mydate = Cells(i, 4)
    If mydate = Year(Date) Then
    erow = Sheet(Year(Date) & "_Logged").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    Range(Cells(i, 1), Cells(i, 2), Cells(i, 3), Cells(i, 4)).COpy Destination:=Sheets(Year(Date) & ("_logged")).Cells(erow, 1)
    End If
    Next i

End Sub

 

[Joe4]

What is "General_Logsheet"?
Is it a worksheet variable?
Where is it defined and where is it set?

 

[TRY369]

What is "General_Logsheet"?
Is it a worksheet variable?
Where is it defined and where is it set?

Hi there, "General_Logsheet" is actually one of the sheet in excel. Im trying to copy data from this sheet to another sheet.

 

[Joe4]

Hi there, "General_Logsheet" is actually one of the sheet in excel. Im trying to copy data from this sheet to another sheet.

General_Logsheet.Range("A1").Select

You cannot refer to your sheet like that.

You either have to do something like this:

Sheets("General_Logsheet")...

or you need to first create a worksheet object like this:

Dim General_Logsheet as Worksheet
Set General_Logsheet = Sheets("General_Logsheet")

Then you can refer to it like you did in your code.


Also note, that if you are NOT already on that sheet, you cannot select the sheet and range in one step like this:

General_Logsheet.Range("A1").Select

You need to do it in 2 steps, i.e. first select the sheet, then the range:

General_Logsheet.Activate
Range("A1").Select

 

[TRY369]

You cannot refer to your sheet like that.

You either have to do something like this:

Sheets("General_Logsheet")...

or you need to first create a worksheet object like this:

Dim General_Logsheet as Worksheet
Set General_Logsheet = Sheets("General_Logsheet")

Then you can refer to it like you did in your code.


Also note, that if you are NOT already on that sheet, you cannot select the sheet and range in one step like this:

You need to do it in 2 steps, i.e. first select the sheet, then the range:

General_Logsheet.Activate
Range("A1").Select

All right I will edit parts of my code first. Thanks!

 

[Joe4]

You are welcome.