D
dok112
Hi,
I created a macro that creates conditional formatting when i select a
certain cell range. I want to automate the whole process due to having
several different cells to modify in a seperate data sheet. When I
recorded the process, it didn't record the whole process, so I am at a
loss right now. I want to run the macro in a different spreadsheet
(the data sheet). Below is one of my current macros. When this is
run, it creates a button that I want to press that runs a macro in the
data sheet which uses CF and toolbar buttons. Any ideas??
Sub TLD_1()
Application.Run "'Productivity Report Generator.xls'!TLD1"
ActiveSheet.Shapes("Button 28").Select
Selection.OnAction = "AHT"
ActiveSheet.Shapes("Button 28").Select
Selection.Characters.Text = "Your Productivity Report"
With Selection.Characters(Start:=1, Length:=24).Font
..Name = "Georgia"
..FontStyle = "Regular"
..Size = 10
..Strikethrough = False
..Superscript = False
..Subscript = False
..OutlineFont = False
..Shadow = False
..Underline = xlUnderlineStyleNone
..ColorIndex = xlAutomatic
End With
ActiveCell.Select
End Sub
I created a macro that creates conditional formatting when i select a
certain cell range. I want to automate the whole process due to having
several different cells to modify in a seperate data sheet. When I
recorded the process, it didn't record the whole process, so I am at a
loss right now. I want to run the macro in a different spreadsheet
(the data sheet). Below is one of my current macros. When this is
run, it creates a button that I want to press that runs a macro in the
data sheet which uses CF and toolbar buttons. Any ideas??
Sub TLD_1()
Application.Run "'Productivity Report Generator.xls'!TLD1"
ActiveSheet.Shapes("Button 28").Select
Selection.OnAction = "AHT"
ActiveSheet.Shapes("Button 28").Select
Selection.Characters.Text = "Your Productivity Report"
With Selection.Characters(Start:=1, Length:=24).Font
..Name = "Georgia"
..FontStyle = "Regular"
..Size = 10
..Strikethrough = False
..Superscript = False
..Subscript = False
..OutlineFont = False
..Shadow = False
..Underline = xlUnderlineStyleNone
..ColorIndex = xlAutomatic
End With
ActiveCell.Select
End Sub