Passing Addresses Instead of Values
I have a nice excel macro below that passes cell values on Input sheet (Ins)
to Output sheet (OS). The macro examines Output sheet Column A for rows having some ..... and then writes the appropriate InS row values to the ..... row. When 1 InS row is written the macro increments to the next correct row pairs. It works nicely with 20,000 row input sheets. I want to alter the macro below so that an address is passed rather that a value and leaves the InS and OS permanently linked. Verbally put: InS.Range(InS.Cells(datarow, "A"), InS.Cells(datarow, "E")).Copy Destination:=OS.Cells(i, "C") needs to be altered to permanently write the correct cell addresses rather than cell values. Thanks ahead of time, John Macro Sub In2Out() ' ' In2Out Macro ' Macro recorded 5/42006 by John Birken Dim OS, InS As Worksheet Set OS = Sheets("sheet3") Set InS = Sheets("sheet2") lastrow = OS.Cells(Rows.Count, "A").End(xlUp).Row datarow = 1 For i = 10 To lastrow If Left(OS.Cells(i, "A"), 4) = "...." Then InS.Range(InS.Cells(datarow, "A"), InS.Cells(datarow, "E")).Copy Destination:=OS.Cells(i, "C") datarow = datarow + 1 End If Next i End Sub |
All times are GMT +1. The time now is 09:07 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com