Syntax problem

[dpaton05]

I have this line of code:

.Range("B23").Value = "October " & Range("E18").Value

E18 has the current year and I need the range in cell B23 to be October & the following year.
It works to get the current year in B23 but I wasn't sure of the syntax to get the following year.

 

[mrshl9898]

.Range("B23").Value = "October " & Range("E18").Value + 1

 

[dpaton05]

I am sure I already tried that option and it wouldn't work. Well, thanks anyway.

 

[Michael M]

How is E18 derived ?
By formula or manually typed in.
Also, is it only the year in E18 and nothing else ?

 

[dpaton05]

how is e18 derived ?
By formula or manually typed in.
Also, is it only the year in e18 and nothing else ?

e18 =year(c18)

c18 =today()

 

[Michael M]

Ok, In that case what is "wouldn't work" ?
Wrong outcome ?
Nothing ?


Have you formatted B23 to Text ??

 

[mrshl9898]

Works fine here, with year and today, as number or as text.

 

[Michael M]

Fine for me too....but just trying to eliminate ...

 

[dpaton05]

I have this code and it won't change the year in cell B20 from July 2018 to July 2019 and the year is not changing. Is there something wrong with the syntax?

Private Sub cmdNewTool_Click()
Dim newDoc As String
    newDoc = txtNewDoc.Text & ".xlsm"
  
    ActiveWorkbook.SaveCopyAs Filename:=txtNewDoc.Text & ".xlsm"
    Workbooks.Open Filename:=newDoc
    
    With Worksheets("home")
        .Range("B20").Value = "July " & Range("E18").Value + 1

    End With


End Sub

 

[dpaton05]

Thanks for this guys, I am learning so much! Just been told that I don't need the text box to work out the year of the file as the new file will always be 1 year ahead of the current file. I have this code but I need a hand with the syntax please.

Private Sub cmdNewTool_Click()
Dim newDoc As String
    newDoc = "NPSS work allocation sheet " & Year() + 1 & ".xlsm"
  
    ActiveWorkbook.SaveCopyAs Filename:=newDoc
    
    Workbooks.Open Filename:=newDoc
    
    
End Sub