Hi,

(I had posted this problem a few days back. As it resolved on its own
after one or two tries, I posted a message to that effect. The problem
is recurring again now. Can anybody please help? It's possibly
something very trivial..)

I have to consolidated sheets from various workbooks in a worksheet.
As the source worksheets contain blank blank rows between data, I am
copying the Worksheet.usedrange and pasting it in the destination
worksheet. On pasting in the destination worksheet, the blank rows
are being filled in black color. Can anybody shed light on why this
is
happening?


When I try to remove the black color using "No fill", it does not
work. However, using Edit-->Clear->Formats, I can remove the black
color.


I am using this line for the copy paste operation:
ws.UsedRange.Copy
Destination:=rspworkbook.Worksheets(rspDestinationsheet).Range("a65536").En*
d(xlUp).Offset(2,
0)


(where rspworkbook = Destination workbook)


How can I get rid of the black color?
Is there a better way to copy usedranges and paste it in the
worksheet
in the other workbook?


Thanks in advance for the help.


Regards,
Raj

On Apr 15, 9:43*pm, Raj <rsp...@gmail.com> wrote:
> Hi,
>
> (I had posted this problem a few days back. As it resolved on its own
> after one or two tries, I posted a message to that effect. The problem
> is recurring again now. Can anybody please help? It's possibly
> something very trivial..)
>
> I have to consolidated sheets from various workbooks in a worksheet.
> As the source worksheets contain blank blank rows between data, I am
> copying the Worksheet.usedrange and pasting it in the destination
> worksheet. On pasting in the destination worksheet, *the blank rows
> are being filled in black color. Can anybody shed light on why this
> is
> happening?
>
> When I try to remove the black color using "No fill", it does not
> work. However, using Edit-->Clear->Formats, I can remove the black
> color.
>
> I am using this line for the copy paste operation:
> ws.UsedRange.Copy
> Destination:=rspworkbook.Worksheets(rspDestinationsheet).Range("a65536")..En**
> d(xlUp).Offset(2,
> 0)
>
> (where rspworkbook = Destination workbook)
>
> How can I get rid of the black color?
> Is there a better way to copy usedranges and paste it in the
> worksheet
> in the other workbook?
>
> Thanks in advance for the help.
>
> Regards,
> Raj

Hi Raj,

Could be a number of things... hard to tell without seeing the actual
files. I would try checking for conditional formats though, or also a
customised colour palette maybe? Both of these things could give the
problem you are experiencing but it may also be something else
alltogether.

Cheers,
Ivan.