Find Column heading and then Delete entire column
 

Hi,

I am trying to find a column heading within a worksheet and then delete
the entirecolumn. The following line of code does this fine but the
column I am trying to 'find' will not always be present. When the
column is not present this line of code will debug and I would like to
write something better than an 'On error' statement to proceed with the
code. I've been trying to put it in some kind of IF statement but
without success:

..Rows(1).Find("Myvalue").EntireColumn.Delete

I'm sure this is pretty simple but I'm having one of those days. Any
help, as always, would be much appreciated.

Thanks,

Adrian


--
Kobayashi
------------------------------------------------------------------------
Kobayashi's Profile: http://www.excelforum.com/member.php...nfo&userid=871
View this thread: http://www.excelforum.com/showthread...hreadid=476777

Find Column heading and then Delete entire column
 

dim FoundCell as range
with activesheet.rows(1)
set foundcell = .cells.find(what:="myValue",.....)
end with

if foundcell is nothing then
'not found
else
foundcell.entirecolumn.delete
end if



Kobayashi wrote:

Hi,

I am trying to find a column heading within a worksheet and then delete
the entirecolumn. The following line of code does this fine but the
column I am trying to 'find' will not always be present. When the
column is not present this line of code will debug and I would like to
write something better than an 'On error' statement to proceed with the
code. I've been trying to put it in some kind of IF statement but
without success:

Rows(1).Find("Myvalue").EntireColumn.Delete

I'm sure this is pretty simple but I'm having one of those days. Any
help, as always, would be much appreciated.

Thanks,

Adrian

--
Kobayashi
------------------------------------------------------------------------
Kobayashi's Profile: http://www.excelforum.com/member.php...nfo&userid=871
View this thread: http://www.excelforum.com/showthread...hreadid=476777

--

Dave Peterson

Find Column heading and then Delete entire column
 

Dave,

Many thanks indeed! Works a treat, although I didn't want the code t
execute anything should the value not be found so I took the liberty o
amending your code to:

If FoundCell Is Nothing Then
'not found
Else
FoundCell.EntireColumn.Delete
End If

to

If Not FoundCell Is Nothing Then
FoundCell.EntireColumn.Delete
End If

Many thanks again!

Best Regards,

Adria

--
Kobayash
-----------------------------------------------------------------------
Kobayashi's Profile: http://www.excelforum.com/member.php...info&userid=87
View this thread: http://www.excelforum.com/showthread.php?threadid=47677

Find Column heading and then Delete entire column
 

Forgot to add rating

--
Kobayash
-----------------------------------------------------------------------
Kobayashi's Profile: http://www.excelforum.com/member.php...info&userid=87
View this thread: http://www.excelforum.com/showthread.php?threadid=47677

Find Column heading and then Delete entire column
 

I bet if you try both versions, you won't notice a difference.



Kobayashi wrote:

Dave,

Many thanks indeed! Works a treat, although I didn't want the code to
execute anything should the value not be found so I took the liberty of
amending your code to:

If FoundCell Is Nothing Then
'not found
Else
FoundCell.EntireColumn.Delete
End If

to

If Not FoundCell Is Nothing Then
FoundCell.EntireColumn.Delete
End If

Many thanks again!

Best Regards,

Adrian

--
Kobayashi
------------------------------------------------------------------------
Kobayashi's Profile: http://www.excelforum.com/member.php...nfo&userid=871
View this thread: http://www.excelforum.com/showthread...hreadid=476777

--

Dave Peterson