Graham C1600
Board Regular
- Joined
- Feb 17, 2018
- Messages
- 96
- Office Version
- 365
Hi,
I inherited a spreadsheet which uses code to extract data from an MPP plan and import into Excel. It works fine but just needs a couple of little tweaks.
Firstly there is some code to rename the Excel Spreadsheet which is as follows :-
Else
Sheet.Range("B3").Value2 = "Technical Implementation Plan" + Trim(Worksheets("Control Panel").Range("E5").Value2)
Sheet.Range("B2").Value2="Galaxy Programme"
I want this code to put into B3 the words "Technical Implementation Plan" then add what it says in cell H6 on the same sheet.
Secondly there is some code to change the colour of some fonts which looks like this :-
Else
If Task.Text20 = "Black" Then
Sheet.Cells (i, 8).Font.ColorIndex = 1
This is all working fine but is there a way to instead of change the colour of some text, actually fill in the cell where the text is ?
Hope this all makes sens.
Thanks
I inherited a spreadsheet which uses code to extract data from an MPP plan and import into Excel. It works fine but just needs a couple of little tweaks.
Firstly there is some code to rename the Excel Spreadsheet which is as follows :-
Else
Sheet.Range("B3").Value2 = "Technical Implementation Plan" + Trim(Worksheets("Control Panel").Range("E5").Value2)
Sheet.Range("B2").Value2="Galaxy Programme"
I want this code to put into B3 the words "Technical Implementation Plan" then add what it says in cell H6 on the same sheet.
Secondly there is some code to change the colour of some fonts which looks like this :-
Else
If Task.Text20 = "Black" Then
Sheet.Cells (i, 8).Font.ColorIndex = 1
This is all working fine but is there a way to instead of change the colour of some text, actually fill in the cell where the text is ?
Hope this all makes sens.
Thanks