Conditional Formatting (VBA)

phxsportz

Well-known Member

Joined

Jun 11, 2006

Messages

1,985

• Aug 4, 2009

• #2

Generically

Code:

selection.PasteSpecial Paste:=xlPasteValues

 

Upvote 0

A

aeddipa

Active Member

Joined

Jun 1, 2009

Messages

337

• Aug 4, 2009

• #3

It can't be paste values. I need the formulas and the format. I just don't want the conditional formatting to apply.

 

Upvote 0

phxsportz

Well-known Member

Joined

Jun 11, 2006

Messages

1,985

• Aug 4, 2009

• #4

Conditional Formatting is part of Format..

 

Upvote 0

phxsportz

Well-known Member

Joined

Jun 11, 2006

Messages

1,985

• Aug 4, 2009

• #5

But you can try

Code:

selection.PasteSpecial Paste:=xlPasteFormulas

 

Upvote 0

A

aeddipa

Active Member

Joined

Jun 1, 2009

Messages

337

• Aug 4, 2009

• #6

Maybe having the entire code will help.

Range("G26").Select
ActiveCell.FormulaR1C1 = "=Template!RC"
ActiveWorkbook.Sheets("Template").Range("G26:AE86").Copy
ActiveWorkbook.Sheets("Portfolios").Paste
Range("G26:AE86").Select
Range("G26:AE86").Select
For Each r In ActiveWindow.RangeSelection.Rows
r.RowHeight = 13
Next r
Application.CutCopyMode = False

I'm looking to change the line that has the .Paste.


So I tried to include this in my code and it gave me an error

ActiveWorkbook.Sheets("Portfolios").Selection.PasteSpecial Paste:=xlPasteFormulas

Any suggestions?

 

Last edited: Aug 4, 2009

Upvote 0

phxsportz

Well-known Member

Joined

Jun 11, 2006

Messages

1,985

• Aug 4, 2009

• #7

I don't think there's a way to "CONDITIONALLY" pick what formats you want to copy... a cell that's formatted bold is no different then a cell that is Conditionally formatted bold.. It's all format...

 

Upvote 0

A

aeddipa

Active Member

Joined

Jun 1, 2009

Messages

337

• Aug 4, 2009

• #8

I understand that. I am now trying to do the paste special for the formulas.

Do you know how I would implement that into my code?

Thanks for all the help you have provided.

 

Upvote 0

phxsportz

Well-known Member

Joined

Jun 11, 2006

Messages

1,985

• Aug 4, 2009

• #9

Code:

Range("G26").Select
ActiveCell.FormulaR1C1 = "=Template!RC"
ActiveWorkbook.Sheets("Template").Range("G26:AE86").Copy
[B][COLOR=red]ActiveWorkbook.Sheets("Portfolios").PasteSpecial Paste:=xlPasteFormulas
[/COLOR][/B]Range("G26:AE86").Select
Range("G26:AE86").Select
For Each r In ActiveWindow.RangeSelection.Rows
r.RowHeight = 13
Next r
Application.CutCopyMode = False

 

Upvote 0

A

aeddipa

Active Member

Joined

Jun 1, 2009

Messages

337

• Aug 4, 2009

• #10

Like I said above, it doesn't work when you enter

ActiveWorkbook.Sheets("Portfolios").PasteSpecial Paste:=xlPasteFormulas

into my code.

It gives me this error:

Run-Time error: 1004
Application-defined or object-defined error.

So any other ways to do this?

Thanks!

 

Upvote 0