I have some code that looks for a header value and copies the column if a header value is found and pastes it on a new sheet. It's set up to copy non-contiguous data, so if it finds a blank cell in the data it does an xlUp to make sure it copies the entire data set.
Unfortunately, this means it still copies the column if the column is completely blank except for the header value. How can I prevent this from happening?
Code:
For Each cell In headerRow
Select Case cell.Value
Case "Value 1", "Value 2", "Value 3"
Set bottom = Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, _
cell.Column)
If bottom.Value < "" Then
Range(cell.Offset(1, 0).Address & ":" & bottom.Address).Copy
Else
Range(cell.Offset(1, 0).Address & ":" & Cells(bottom.End(xlUp).Row, _
cell.Column).Address).Copy
So if Value 3 is blank except for the header row. It will paste "Value 3" instead of skipping that column. I trid to put a cells.count before that Else statement, to say if the cell count = 1 skip it, but it resulted in an overflow error. Any help is appreciated!
Skip copying empty column where remaining rows are filled
Similar Threads
Threaded Mode
