Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
select columns by text in first cell
I'm trying to select a whole column (and eventually only the filled
cells) by the text on its first row. The code I have by now is this: -- For Each col In Worksheets Select Case Columns.Name Case "text-in-first-cell" Columns.Select Selection.Copy MsgBox "The selection object type is " & TypeName(Selection) End Select Next -- It returns the error "Application-defined or object-defined error". It's the first time I'm trying to code anything in VB, so any help would be very appreciated. Thank you. Duarte |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
select columns by text in first cell
Dim icol as Long, col as Range
Icol = 1 For Each col In Range("A1:IV1") Select Case lcase(col.text) Case "text-in-first-cell" col.EntireColumn.Copy Worksheets( _ "Destination").Columns(icol) End Select Next -- Regards, Tom Ogilvy "zedascouves" wrote: I'm trying to select a whole column (and eventually only the filled cells) by the text on its first row. The code I have by now is this: -- For Each col In Worksheets Select Case Columns.Name Case "text-in-first-cell" Columns.Select Selection.Copy MsgBox "The selection object type is " & TypeName(Selection) End Select Next -- It returns the error "Application-defined or object-defined error". It's the first time I'm trying to code anything in VB, so any help would be very appreciated. Thank you. Duarte |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
select columns by text in first cell
Thank you! :-D
Tom Ogilvy escreveu: Dim icol as Long, col as Range Icol = 1 For Each col In Range("A1:IV1") Select Case lcase(col.text) Case "text-in-first-cell" col.EntireColumn.Copy Worksheets( _ "Destination").Columns(icol) End Select Next -- Regards, Tom Ogilvy "zedascouves" wrote: I'm trying to select a whole column (and eventually only the filled cells) by the text on its first row. The code I have by now is this: -- For Each col In Worksheets Select Case Columns.Name Case "text-in-first-cell" Columns.Select Selection.Copy MsgBox "The selection object type is " & TypeName(Selection) End Select Next -- It returns the error "Application-defined or object-defined error". It's the first time I'm trying to code anything in VB, so any help would be very appreciated. Thank you. Duarte |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
select text in cell based on text from another cell, paste the text at the begining of a thrid cell, etc... | Excel Programming | |||
Search & delete ANY text in select columns | Excel Discussion (Misc queries) | |||
Select specific columns for a given cell selection | Excel Programming | |||
Select Columns based on cell value | Excel Programming | |||
Select a range of columns based on active cell | Excel Programming |