copying all of a row & Attributes

G

Guest

Hi - I hope this question isnt too newbie. I am trying to copy all of a row,
including all of its attributes like formatting, column widths, etc. The code
snippet that I am currently using to perform the copy is:

wsDST.Rows(DstRow).Value = wsSRC.Rows(SrcRow).Value

This, of course, works for just the cell values. But trying to modify the
above to include the other desired attributes has eluded me.

Thanks Much
 
N

Norman Jones

Hi R,

Try:

wsSRC.Rows(SrcRow).Copy
ActiveSheet.Paste Destination:=wsDST.Rows(DstRow)
wsDST.Rows(DstRow).PasteSpecial Paste:=8, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Check last two characters of a string. 3
Excel Help to copy information from one row at a time to another sheet 1
Paste in column B using Last row of either column B, C or D. 10
Concatenate a row that is selected and include blank cells 11
Changes in How Code Acts After Upgrade of Excel 2
How do I get the row number? 1
Apply cell formatting using VBA 1
Preserving character attributes in a RichTextBox 3

Top