About Us

SANDIND[_2_]

PBezucha, thanks for your help !!

SS

"PBezucha" wrote:

Sorry for a mistake in the 3rd row from the end:

Option Explicit
Sub DeleteColumsWithKeyword()
' Deletes entire columns if they in the s e l e c t e d range contain
Keyword
Dim Keyword As String, DefaultKeyword As String
Dim S As Range, R As Range, I As Long, J As Long, N As Long
Const Title As String = "Deleting all columns with Keyword"
Set S = Selection
DefaultKeyword = "Delete"
Keyword = InputBox("Keyword", Title, DefaultKeyword)
If Keyword = "" Then Exit Sub
N = S.Columns.Count
For I = N To 1 Step -1
Set R = S.Columns(I)
J = 0
On Error Resume Next
J = WorksheetFunction.Match(Keyword, R, 0)
If J 0 Then S.Columns(I).EntireColumn.Delete
Next I
End Sub
--
Petr Bezucha

"PBezucha" wrote:

One of many ways:

Option Explicit
Sub DeleteColumsWithKeyword()
' Deletes entire columns if they in the s e l e c t e d range contain
Keyword
Dim Keyword As String, DefaultKeyword As String
Dim S As Range, R As Range, I As Long, J As Long, N As Long
Const Title As String = "Deleting all columns with Keyword"
Set S = Selection
DefaultKeyword = "Delete"
Keyword = InputBox("Keyword", Title, DefaultKeyword)
If Keyword = "" Then Exit Sub
N = S.Columns.Count
For I = N To 1 Step -1
Set R = S.Columns(I)
J = 0
On Error Resume Next
J = WorksheetFunction.Match(Keyword, R, 0)
If J 0 Then S.Columns(I).Delete
Next I
End Sub

Regards
--
Petr Bezucha

"SANDIND" wrote:

Hi All,

I wanna help writing a Macro that can delete the whole Column if that column
has anywhere any specific word/value for eg ."Delete".

I want to delete all such Columns in the sheet which contain anywhere
"delete".

Please help me on this . SS

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
delete a cell if it contains specific word	Tim	Excel Discussion (Misc queries)	1	February 2nd 06 04:31 PM
delete cell that doesn't contain a specific word	[email protected]	Excel Discussion (Misc queries)	1	October 12th 05 05:54 AM
Find a specific word in a column	cottage6	Excel Programming	3	September 19th 05 08:01 PM
Finding specific word in column	Phil #3	Excel Worksheet Functions	3	March 28th 05 09:00 AM
delete row contains specific word in an macro	Jean-Francois	Excel Discussion (Misc queries)	4	January 11th 05 11:40 PM

Menu

About Us