You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
521 B
Plaintext
19 lines
521 B
Plaintext
6 years ago
|
Sub Export_Values()
|
||
|
|
'
|
||
|
|
' Export_Values Macro
|
||
|
|
Dim projectinfo As String
|
||
|
|
Range("O1").Select
|
||
|
|
projectinfo = ActiveCell.Value
|
||
|
|
|
||
|
|
Columns("A:M").Select
|
||
|
|
Selection.Copy
|
||
|
|
Workbooks.Add
|
||
|
|
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
|
||
|
|
:=False, Transpose:=False
|
||
|
|
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
|
||
|
|
SkipBlanks:=False, Transpose:=False
|
||
|
|
Sheets("Sheet1").Select
|
||
|
|
Sheets("Sheet1").Name = projectinfo
|
||
|
|
|
||
|
|
End Sub
|