find

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

J Bates - 13 Sep 2006 13:41 GMT

How can I setup a macro or use a function to find a column who's first cell
is called "Addresses" then move the whole column to sheet 2.
Is it possible?
Puzzled

Reply to this Message

Bernie Deitrick - 13 Sep 2006 14:25 GMT

J,

If there is only one cell with the word "Addresses" in it:

Sub MoveAddresses()
Cells.Find("Addresses").EntireColumn.Cut Worksheets("Sheet 2").Range("IV1").End(xlToLeft)(1,2)
End Sub

This will put the column into the column with the first free cell in row 1 of Sheet 2.

HTH,
Bernie
MS Excel MVP

> How can I setup a macro or use a function to find a column who's first cell is called "Addresses"
> then move the whole column to sheet 2.
> Is it possible?
> Puzzled

Reply to this Message

J Bates - 14 Sep 2006 10:29 GMT

Thanks folks it works a treat.

Reply to this Message

Don Guillett - 13 Sep 2006 14:38 GMT

Look in the vba help index for FIND

Sub findandcopycol()
Set mc = Rows(1).find("Addresses")
If Not mc Is Nothing Then Columns(mc.Column) _
.Copy Sheets("sheet4").Columns(1)
End Sub

Signature

Don Guillett
SalesAid Software
dguillett1@austin.rr.com

> How can I setup a macro or use a function to find a column who's first
> cell is called "Addresses" then move the whole column to sheet 2.
> Is it possible?
> Puzzled

Reply to this Message