Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro question - selecting the right column
I have information in columns from C to CA that I need to put (cut) into
column C The following macro lacks one item - an ability to keep moving over to the correct column and cutting the appropriate items. By this I mean Range"D2".select then Range"E2".select ... This process will have to go until I reach Range"CA2".select Any help would be appreciated Sub cutandcopy() ' ' cutandcopy Macro ' ' Range("D2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Range("C2").Select Selection.End(xlDown).Select Range("C122").Select ActiveSheet.Paste Selection.End(xlUp).Select Range("E2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Range("C2").Select Selection.End(xlDown).Select Range("C242").Select ActiveSheet.Paste End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro question - selecting the right column
Sub copydata()
Dim rng as Range, rng1 as Range, cell as Range set rng = Range("D2:CA2") for each cell in rng set rng1 = range(cell,cell.End(xldown)) if isempty(Range("C2")) then rng1.copy Destination:=Range("C2") else rng1.Copy Destination:=Range("C2").End(xldown)(2) end if Next Range(Range("D2:CA2"), _ Range("D2:CA2").End(xldown)).ClearContents End Sub -- Regards, Tom Ogilvy "Brad" wrote in message ... I have information in columns from C to CA that I need to put (cut) into column C The following macro lacks one item - an ability to keep moving over to the correct column and cutting the appropriate items. By this I mean Range"D2".select then Range"E2".select ... This process will have to go until I reach Range"CA2".select Any help would be appreciated Sub cutandcopy() ' ' cutandcopy Macro ' ' Range("D2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Range("C2").Select Selection.End(xlDown).Select Range("C122").Select ActiveSheet.Paste Selection.End(xlUp).Select Range("E2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Range("C2").Select Selection.End(xlDown).Select Range("C242").Select ActiveSheet.Paste End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro question - selecting the right column
Give this a try...
Sub Test() Dim rngCurrent As Range Dim rngCopy As Range Dim rngPaste As Range Set rngCurrent = Range("D2") Set rngCopy = Range(rngCurrent, Cells(Rows.Count, rngCurrent.Column).End(xlUp)) Set rngPaste = Cells(Rows.Count, "C").End(xlUp).Offset(1, 0) Do While rngCurrent.Column < 80 Set rngCurrent = rngCurrent.Offset(0, 1) rngCopy.Cut rngPaste Set rngPaste = Cells(Rows.Count, "C").End(xlUp).Offset(1, 0) Set rngCopy = Range(rngCurrent, Cells(Rows.Count, rngCurrent.Column).End(xlUp)) Loop End Sub -- HTH... Jim Thomlinson "Brad" wrote: I have information in columns from C to CA that I need to put (cut) into column C The following macro lacks one item - an ability to keep moving over to the correct column and cutting the appropriate items. By this I mean Range"D2".select then Range"E2".select ... This process will have to go until I reach Range"CA2".select Any help would be appreciated Sub cutandcopy() ' ' cutandcopy Macro ' ' Range("D2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Range("C2").Select Selection.End(xlDown).Select Range("C122").Select ActiveSheet.Paste Selection.End(xlUp).Select Range("E2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Range("C2").Select Selection.End(xlDown).Select Range("C242").Select ActiveSheet.Paste End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro question - selecting the right column
Thank you very much it worked - I will have to study the code to find out
what it is doing. "Jim Thomlinson" wrote: Give this a try... Sub Test() Dim rngCurrent As Range Dim rngCopy As Range Dim rngPaste As Range Set rngCurrent = Range("D2") Set rngCopy = Range(rngCurrent, Cells(Rows.Count, rngCurrent.Column).End(xlUp)) Set rngPaste = Cells(Rows.Count, "C").End(xlUp).Offset(1, 0) Do While rngCurrent.Column < 80 Set rngCurrent = rngCurrent.Offset(0, 1) rngCopy.Cut rngPaste Set rngPaste = Cells(Rows.Count, "C").End(xlUp).Offset(1, 0) Set rngCopy = Range(rngCurrent, Cells(Rows.Count, rngCurrent.Column).End(xlUp)) Loop End Sub -- HTH... Jim Thomlinson "Brad" wrote: I have information in columns from C to CA that I need to put (cut) into column C The following macro lacks one item - an ability to keep moving over to the correct column and cutting the appropriate items. By this I mean Range"D2".select then Range"E2".select ... This process will have to go until I reach Range"CA2".select Any help would be appreciated Sub cutandcopy() ' ' cutandcopy Macro ' ' Range("D2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Range("C2").Select Selection.End(xlDown).Select Range("C122").Select ActiveSheet.Paste Selection.End(xlUp).Select Range("E2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Range("C2").Select Selection.End(xlDown).Select Range("C242").Select ActiveSheet.Paste End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBA question about selecting worksheets | Excel Discussion (Misc queries) | |||
Text to column and selecting values based on a different column | Excel Worksheet Functions | |||
Text to column and selecting values based on a different column | Excel Worksheet Functions | |||
Text to column and selecting values based on a different column | Excel Discussion (Misc queries) | |||
Excel Macro question? Column position | Excel Programming |