Range Loop

[lbargers]

Hi,

I have an excel spreadsheet that contains data in a number of columns (some contain data and some do not). I would like to have a seperate spreadsheet check the range (E3:IV3), if data is present in this row, I would like the seperate spreadsheet to write these cell values to corresponding rows in this sheet. How can I approach this issue?


example:

testScript.xls(Summary Tab)


A B C D E F G H I ........IV
App # 654 765 652



summary.xls(Findings Tab)

App #
654
765
652











Thanks in advance for anyhelp

[Tom Ogilvy]

Can we conclude that if there is data in Column E, then the row should be
copied

Sub CopyData()
Dim rng as Range, rng1 as Range
Dim rng2 as Range
With Activesheet
set rng = .Range(.cells(3,"E"),.Cells(rows.count,"E").End(xlup))
On error resume next
set rng1 = rng.Specialcells(xlconstants)
On Error goto 0
if not rng1 is nothing then
set rng2 = intersect(rng1.EntireRow, .Columns("E:IV"))
rng2.copy Destination:=Worksheets("Data").Range("A1")
end if
End With
End Sub

--
Regards,
Tom Ogilvy


"lbargers" <[email protected]> wrote in
message news:[email protected]...
>
> Hi,
>
> I have an excel spreadsheet that contains data in a number of columns
> (some contain data and some do not). I would like to have a seperate
> spreadsheet check the range (E3:IV3), if data is present in this row, I
> would like the seperate spreadsheet to write the cell values of the
> range to a seperate spreadsheet. How can I approach this issue?
>
> Thanks in advance for anyhelp
>
>
> --
> lbargers
> ------------------------------------------------------------------------
> lbargers's Profile:
http://www.excelforum.com/member.php...o&userid=32798
> View this thread: http://www.excelforum.com/showthread...hreadid=526899
>

[lbargers]

Tom, thanks for your reply.. How can I specify the location of the seperate .xls spreadsheets in the example you provided?