Macro Help !!!!
 

Thanks Tom ... what would I need to enter for the range if i wanted t
copy rows 1-6 on another worksheet to ALL worksheets ? I would als
like to put it one row under each of the last rows !


Tom Ogilvy Wrote:
Dim sh1 as worksheet, sh as worksheet
Dim rng as range
set sh1 = worksheets("Sheet_Src")
for each sh in Worksheets
if lcase(sh.name) < lcase(sh1) then
set rng = sh.Cells(rows.count,1).End(xlup)(2)
sh1.rows(6).copy destination:=rng
end if
Next

Without specifics on which sheets get populated and what is bein
copied and
where below the line, the above represents a general approach. I
copies a
row (row 6) from a sheet named Sheet_Src and places it (copies it) t
the
cell/row below the last filled cell on each other worksheet in th
workbook
(except Sheet_Src).

--
Regards,
Tom Ogilvy


"GazMo" wrote in message
...

Hi, I have a series of worksheets in one workbook - I now need t
put
the same information (from another worksheet within the sam
workbook)
in each worksheet under the last line (varying length in each
worksheet) ... can anyone help me with this please ??


--
GazMo

------------------------------------------------------------------------
GazMo's Profile:
http://www.excelforum.com/member.php...o&userid=14610
View this thread
http://www.excelforum.com/showthread...hreadid=271181


--
GazM
-----------------------------------------------------------------------
GazMo's Profile: http://www.excelforum.com/member.php...fo&userid=1461
View this thread: http://www.excelforum.com/showthread.php?threadid=27118

Macro Help !!!!
 

Dim sh1 as worksheet, sh as worksheet
Dim rng as range
set sh1 = worksheets("Sheet_Src")
for each sh in Worksheets
if lcase(sh.name) < lcase(sh1) then
set rng = sh.Cells(rows.count,1).End(xlup)(3)
sh1.rows(1).Resize(6).copy destination:=rng
end if
Next

--
Regards,
Tom Ogilvy


"GazMo" wrote in message
...

Thanks Tom ... what would I need to enter for the range if i wanted to
copy rows 1-6 on another worksheet to ALL worksheets ? I would also
like to put it one row under each of the last rows !


Tom Ogilvy Wrote:
Dim sh1 as worksheet, sh as worksheet
Dim rng as range
set sh1 = worksheets("Sheet_Src")
for each sh in Worksheets
if lcase(sh.name) < lcase(sh1) then
set rng = sh.Cells(rows.count,1).End(xlup)(2)
sh1.rows(6).copy destination:=rng
end if
Next

Without specifics on which sheets get populated and what is being
copied and
where below the line, the above represents a general approach. It
copies a
row (row 6) from a sheet named Sheet_Src and places it (copies it) to
the
cell/row below the last filled cell on each other worksheet in the
workbook
(except Sheet_Src).

--
Regards,
Tom Ogilvy


"GazMo" wrote in message
...

Hi, I have a series of worksheets in one workbook - I now need to
put
the same information (from another worksheet within the same
workbook)
in each worksheet under the last line (varying length in each
worksheet) ... can anyone help me with this please ??


--
GazMo

------------------------------------------------------------------------
GazMo's Profile:
http://www.excelforum.com/member.php...o&userid=14610
View this thread:
http://www.excelforum.com/showthread...hreadid=271181



--
GazMo
------------------------------------------------------------------------
GazMo's Profile:
http://www.excelforum.com/member.php...o&userid=14610
View this thread: http://www.excelforum.com/showthread...hreadid=271181