Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copying Value to Range
Yet another seemingly easy task, that I can't quite get. Here we go.
I have a process that copes some data to a column and then copies a parent to the next column. I would like to fill that parent to all of the rows. So after process, it looks like this: JC4100 JC4100 JC41003002 JC41003003 JC41001040 JC41009998 JC41016041 JC4100H I want it to look like this: JC4100 JC4100 JC41003002 JC4100 JC41003003 JC4100 JC41001040 JC4100 JC41009998 JC4100 JC41016041 JC4100 JC4100H JC4100 Doing a simple Macro Record gets me this: Selection.Copy Range("F134:G134").Select Range("G134").Activate Range(Selection, Selection.End(xlDown)).Select Range("G134:G140").Select ActiveSheet.Paste My task is to make that sub more relative and more compact (or course). Because more things will be copied to the bottom of this list after this is filled in. Thanks. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copying Value to Range
Hi,
Am Thu, 14 Jul 2011 07:39:09 -0700 (PDT) schrieb willwonka: I want it to look like this: JC4100 JC4100 JC41003002 JC4100 JC41003003 JC4100 JC41001040 JC4100 JC41009998 JC4100 JC41016041 JC4100 JC4100H JC4100 you select a cell in column F to copy your values. Then try: LRow = Cells(Rows.Count, "F").End(xlUp).Row Range("G" & ActiveCell.Row & ":G" & LRow) = ActiveCell Regards Claus Busch -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copying Value to Range
Works perfect!!!!!!
Thanks. On Jul 14, 9:58*am, Claus Busch wrote: Hi, Am Thu, 14 Jul 2011 07:39:09 -0700 (PDT) schrieb willwonka: I want it to look like this: JC4100 * * * * * * * * * * JC4100 JC41003002 JC4100 JC41003003 JC4100 JC41001040 JC4100 JC41009998 JC4100 JC41016041 JC4100 JC4100H * * * * * * * * * *JC4100 you select a cell in column F to copy your values. Then try: LRow = Cells(Rows.Count, "F").End(xlUp).Row Range("G" & ActiveCell.Row & ":G" & LRow) = ActiveCell Regards Claus Busch -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Which is faster, copying range to another set of ranges or copying tomemory? | Excel Programming | |||
Copying Range Based On Certain Criteria? Possible looping through the Range | Excel Programming | |||
copying dynamic range based on cell outside of range | Excel Programming | |||
Searching a range and copying values into a new range.... **Please help** :( | Excel Programming | |||
Copying Range | Excel Programming |