copy/paste

[jarhead58]

Why wouldn't this code work in a macro activated by a command button! It copies the cell to the clipboard but won't finish with the paste! Stumped!!

P.S. Button is on active cell sheet.

Worksheets("Sheet1").Range("N2").CopyActiveCell.PasteSpecial Paste:=xlPasteFormats
ActiveCell.PasteSpecial Paste:=xlPasteValues

 

[jarhead58]

What type of format?

From the cell format menu; Fill Effects/Gradiant. Then I inserted a diamond shape in it and used no fill for it.

 

[jarhead58]

I basically used triangle shapes with no fill to show bases and then filled black what I needed.

 

[Fluff]

Shapes will not copy over as they are nothing to do with the format.

 

[jarhead58]

Shapes will not copy over as they are nothing to do with the format.

I just used this and it worked for that particular cell! hmmm..

Sheets("Sheet1").Range("N2").SelectSelection.Copy
Range("F13").Select
ActiveSheet.Paste

 

[jarhead58]

I just used this and it worked for that particular cell! hmmm..

Sheets("Sheet1").Range("N2").SelectSelection.Copy
Range("F13").Select
ActiveSheet.Paste

The Selection.copy is actually not together as in the post lol!! Just saw that.

 

[Fluff]

Glad it's sorted & thanks for the feedback

 

[jarhead58]

Glad it's sorted & thanks for the feedback

Lol, no, it''s still not doing what I would like it to do. I need it to copy to the active cell in the sheet. I can't use the range for a single cell since it will vary.

 

[Fluff]

In that case is this what you want

Worksheets("Sheet1").Range("N2").Copy
ActiveSheet.Paste

 

[jarhead58]

In that case is this what you want

Worksheets("Sheet1").Range("N2").Copy
ActiveSheet.Paste

It works!!! Thank you so much!!! The crazy thing is, I'm almost certain I tried that in an earlier version but I guess not!!

 

[Fluff]

Glad to help & thanks for the feedback