Extracting Year from date cell
 

The contents of the cell that I'm copying (and then pasting) in the formula
below is a date:

Worksheets(Sheet1Name).Cells(Sheet1DateRowPointer, h). _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2YearColPointer)

Prior to pasting, however, I need to extract just the Year value. But as
best as I can tell, VBA does not support the YEAR function.

Can someone kindly tell me how I can modify my code to extract and paste
just the Year? Thanks in advance for any help.

Extracting Year from date cell
 

Sub sistence()
Dim dd As Date
dd = Date
MsgBox (Format(dd, "yyyy"))
End Sub

--
Gary''s Student - gsnu200740


"Bob" wrote:

The contents of the cell that I'm copying (and then pasting) in the formula
below is a date:

Worksheets(Sheet1Name).Cells(Sheet1DateRowPointer, h). _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2YearColPointer)

Prior to pasting, however, I need to extract just the Year value. But as
best as I can tell, VBA does not support the YEAR function.

Can someone kindly tell me how I can modify my code to extract and paste
just the Year? Thanks in advance for any help.

Extracting Year from date cell
 

Maybe your "date" isn't really a date.

This works for me:

Option Explicit
Sub testme()
MsgBox Year(Date)
End Sub

But you can't copy|Paste special|just the year of a date.

dim myYear as long

myyear = year(Worksheets(Sheet1Name).Cells(Sheet1DateRowPoi nter, h).value)

Worksheets(Sheet2Name).Cells(Sheet2RowPointer, Sheet2YearColPointer).value _
= myyear

(With no checking at all)

Bob wrote:

The contents of the cell that I'm copying (and then pasting) in the formula
below is a date:

Worksheets(Sheet1Name).Cells(Sheet1DateRowPointer, h). _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2YearColPointer)

Prior to pasting, however, I need to extract just the Year value. But as
best as I can tell, VBA does not support the YEAR function.

Can someone kindly tell me how I can modify my code to extract and paste
just the Year? Thanks in advance for any help.

--

Dave Peterson

Extracting Year from date cell
 

Dave,
Thanks for the help. I verified that the date I'm copying is truly a date,
so the line:

myYear = Year(Worksheets(Sheet1Name).Cells(Sheet1DateRowPoi nter, h).Value)

does correctly "strip out" the year portion of the date.

Now that I have the year portion stored in myYear, could you kindly tell me
how to modify the line below so that it pastes myYear:

Worksheets(Sheet1Name).Cells(Sheet1DateRowPointer, h). _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2YearColPointer)

Thanks again,
Bob


"Dave Peterson" wrote:

Maybe your "date" isn't really a date.

This works for me:

Option Explicit
Sub testme()
MsgBox Year(Date)
End Sub

But you can't copy|Paste special|just the year of a date.

dim myYear as long

myyear = year(Worksheets(Sheet1Name).Cells(Sheet1DateRowPoi nter, h).value)

Worksheets(Sheet2Name).Cells(Sheet2RowPointer, Sheet2YearColPointer).value _
= myyear

(With no checking at all)

Bob wrote:

The contents of the cell that I'm copying (and then pasting) in the formula
below is a date:

Worksheets(Sheet1Name).Cells(Sheet1DateRowPointer, h). _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2YearColPointer)

Prior to pasting, however, I need to extract just the Year value. But as
best as I can tell, VBA does not support the YEAR function.

Can someone kindly tell me how I can modify my code to extract and paste
just the Year? Thanks in advance for any help.

--

Dave Peterson

Extracting Year from date cell
 

Dave,
Please ignore my previous post. I just realized that you already provided
me with the answer:

Worksheets(Sheet2Name).Cells(Sheet2RowPointer, Sheet2YearColPointer).value _
= myyear

Thanks again for all your help!
Bob


"Bob" wrote:

Dave,
Thanks for the help. I verified that the date I'm copying is truly a date,
so the line:

myYear = Year(Worksheets(Sheet1Name).Cells(Sheet1DateRowPoi nter, h).Value)

does correctly "strip out" the year portion of the date.

Now that I have the year portion stored in myYear, could you kindly tell me
how to modify the line below so that it pastes myYear:

Worksheets(Sheet1Name).Cells(Sheet1DateRowPointer, h). _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2YearColPointer)

Thanks again,
Bob


"Dave Peterson" wrote:

Maybe your "date" isn't really a date.

This works for me:

Option Explicit
Sub testme()
MsgBox Year(Date)
End Sub

But you can't copy|Paste special|just the year of a date.

dim myYear as long

myyear = year(Worksheets(Sheet1Name).Cells(Sheet1DateRowPoi nter, h).value)

Worksheets(Sheet2Name).Cells(Sheet2RowPointer, Sheet2YearColPointer).value _
= myyear

(With no checking at all)

Bob wrote:

The contents of the cell that I'm copying (and then pasting) in the formula
below is a date:

Worksheets(Sheet1Name).Cells(Sheet1DateRowPointer, h). _
Copy Worksheets(Sheet2Name).Cells(Sheet2RowPointer, _
Sheet2YearColPointer)

Prior to pasting, however, I need to extract just the Year value. But as
best as I can tell, VBA does not support the YEAR function.

Can someone kindly tell me how I can modify my code to extract and paste
just the Year? Thanks in advance for any help.

--

Dave Peterson