How to find the current year in vba

[dpaton05]

What is the vba code to find the current year?

 

[mrshl9898]

mydate = Year(Now)

 

[dpaton05]

Do I need to Dim MyDate As an Integer first?

 

[dpaton05]

I have a procedure that copies the value of a text box to a cell, and I want the year after the copied value.

Worksheets("Jordyn").Range("E1") = txtDate.Value & Call CurrentYear

This code won't work. What is wrong with the syntax?

 

[dpaton05]

Current year is:

Private Sub CurrentYear()
    Dim MyYear As Integer
    
    MyYear = Year(Now)
End Sub

 

[dpaton05]

I think I need to use vba for this but I am not sure. I have a cell in a spreadsheet that is populated with a set text string then a date range that is entered in a text box and I want the current year to be displayed after the string using the current year. Any ideas how I could do this?

This is all the code I have so far:

Private Sub CopyE1()
    Worksheets("Jordyn").Range("E1") = txtDate.Value & Call CurrentYear
    Worksheets("Unallocated clients").Range("E1") = txtDate.Value
    Worksheets("Sophia").Range("E1") = txtDate.Value
    Worksheets("Grace").Range("E1") = txtDate.Value
    Worksheets("Rebecca").Range("E1") = txtDate.Value
    Worksheets("Briony").Range("E1") = txtDate.Value
    Worksheets("Therese").Range("E1") = txtDate.Value
    Worksheets("Luke").Range("E1") = txtDate.Value
    Worksheets("Yiri").Range("E1") = txtDate.Value
    

    
    
    
End Sub

Private Sub cmdCopy_Click()
Call CopyE1
Call CopyB3


End Sub

Private Sub CopyB3()

    Worksheets("Jordyn").Range("B3") = "Number of Notes in TCM as of " & txtDate.Value
    Worksheets("Unallocated clients").Range("B3") = "Number of Notes in TCM as of " & txtDate.Value
    Worksheets("Sophia").Range("B3") = "Number of Notes in TCM as of " & txtDate.Value
    Worksheets("Grace").Range("B3") = "Number of Notes in TCM as of " & txtDate.Value
    Worksheets("Rebecca").Range("B3") = "Number of Notes in TCM as of " & txtDate.Value
    Worksheets("Briony").Range("B3") = "Number of Notes in TCM as of " & txtDate.Value
    Worksheets("Therese").Range("B3") = "Number of Notes in TCM as of " & txtDate.Value
    Worksheets("Luke").Range("B3") = "Number of Notes in TCM as of " & txtDate.Value
    Worksheets("Yiri").Range("B3") = "Number of Notes in TCM as of " & txtDate.Value
    
End Sub



Private Sub CurrentYear()
    Dim MyYear As Integer
    
    MyYear = Year(Now)
End Sub

 

[dpaton05]

E1 needs to have the date range that is entered in txtDate. I want the current year to appear following the date range in B3.

 

[My Aswer Is This]

Here is the answer of one of your questions:

Sub My_Year()
'Modified  11/18/2018  9:46:52 PM  EST
Worksheets("Jordyn").Range("E1") = Sheets("Jordyn").txtDate.Value & Year(Date)
End Sub

 

[My Aswer Is This]

Not sure what's happening here. You have asked several questions in just the last 5 minutes.

What is:

E1 needs to have the date range that is entered in txtDate

What is date range.

What are you entering into the textbox named txtDate

Are you entering a value like "Mary" or are you entering a Date?
​

 

[Michael M]

You may be able to use something like this, but what is entered in txtDate ??

Private Sub CopyB3()
Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name <> "Sheet1" And ws.Name <> "Sheet2" Then 'change worksheet names that aren't affected here
    With ws
    .Range("B3") = "Number of Notes in TCM as of " & Year(Now)
    End With
Next ws
End Sub