Copy Range of Cells to Clipboard (No Blanks)

[Manfred]

Hi, I am trying to copy a range of cells from a table to clipboard. I am currently using the following:


<code style="margin: 0px; padding: 0px; border: 0px; vertical-align: baseline; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, serif;">Sub Copy() Range("C13:L153").CopyEnd Sub</code></pre>

This works fine, however, there are a lot of rows without any data in them. How could I amend the code to not copy these blank rows?

<colgroup><col><col><col span="2"><col><col><col><col><col><col></colgroup><tbody>
</tbody>

 

[shvraka]

Hi, I am trying to copy a range of cells from a table to clipboard. I am currently using the following:


<code style="margin: 0px; padding: 0px; border: 0px; vertical-align: baseline; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, serif;">Sub Copy() Range("C13:L153").CopyEnd Sub
</code>This works fine, however, there are a lot of rows without any data in them. How could I amend the code to not copy these blank rows?

Use something like this before Copy():

Selection.AutoFilter
ActiveSheet.Range("C13:L153").AutoFilter Field:=2, Criteria1:="<>"

.
.
.
.

Field:=2 indicates field by which you filter that range.