<Rob_Bovey@msn.com>De: Rob Bovey 
Objet: Re: Copying ALL from sheet to sheet
Date : mercredi 6 octobre 1999 11:48

Hi Kevin,

<<Paste Specialit seems to me  is misleading when you select ALLand the
column widths for exampledont get copied as well. there a good
reason this?>>

    No, not a *good* reason. Microsoft has just chosen to devote their
resources to other things. I've been asking for this capability for the last
two versions of Excel without any luck so far.

<<Is there a non-VBA workaround?>>

    Not any very good ones. You can get either the column widths or the row
heights by selecting, copying, and pasting an entire set of columns or rows.
Unfortunately this often makes you paste in a bunch of stuff you don't
really want. The only complete solution is a custom VBA procedure. Here's
one example:

Sub CopywithRowAndColwidths()
    dim lcount As long
    dim rngCopy As range
    dim rngPaste As range
    On Error Resume next
    set rngCopy = application.inputbox("select the range to copy", , , , , ,
, 8)
    if Not rngCopy Is Nothing then
        set rngPaste = application.inputbox("select the cell to paste to"<kevin@modelfitness.com>, ,
, , , , , 8)
        On Error Goto 0
        if Not rngPaste Is Nothing then
            rngCopy.Copy
            rngPaste.cells(1, 1).PasteSpecial xlPasteAll
            for lcount = 1 to rngCopy.Columns.count
                rngPaste.cells(1, lcount).Columnwidth =
rngCopy.Columns(lcount).Columnwidth
            next lcount
            for lcount = 1 to rngCopy.rows.count
                rngPaste.cells(lcount, 1).RowHeight =
rngCopy.rows(lcount).RowHeight
            next lcount
            application.CutCopyMode = false
        end if
    end if
end Sub

--
Rob Bovey, MCSE, MCSD
application Professionals
* Please post all responses to this newsgroup *
* I delete all unsolicited e-mail messages *


kevin weaver  wrote in message
news:37FB0630.7CE6E3EA@modelfitness.com...
> More of a general question, but why doesn't Excel copy EVERYTHING when
> you copy and paste?  e.g., if you change col and/or row widths as well
> as formatting, etc., etc., select the range and copy and paste, you
> really don't copy EVERYTHING and PASTE it all.  Paste Special, it seems
> to me, is misleading when you select "ALL" and the column widths, for
> example, don't get copied as well.  Is there a good reason for this?  Is
> there a non-VBA workaround?
>