Deleting columns if value of cell is not matching
 

Hello All,
I have one workbook which contains 20-30 sheets and from these i would like
to check whether column C1="Expired" if value is matching then i would like
to delete entire column from all the sheets except two sheet (sheet1 and
sheet2).

Please help in this regard..

Best regards
Vikram

Deleting columns if value of cell is not matching
 

You say " i would like to check whether column C1="Expired"...". In what
sheet? Or do you mean you want to look in cell C1 In EACH sheet and, if
found, delete Column C in THAT sheet? As written now, you say you want to
delete column C of EVERY sheet if "Expired" is found in C1 in some (I don't
know which) sheet. HTH Otto



"Vikram" wrote in message
...
Hello All,
I have one workbook which contains 20-30 sheets and from these i would
like
to check whether column C1="Expired" if value is matching then i would
like
to delete entire column from all the sheets except two sheet (sheet1 and
sheet2).

Please help in this regard..

Best regards
Vikram

Deleting columns if value of cell is not matching
 

Hello Otto,

I would like to check whether Cell C1 in each sheet contains "expired" and
if yes then delete that column i.e, column C, except 2 sheets

"Otto Moehrbach" wrote:

You say " i would like to check whether column C1="Expired"...". In what
sheet? Or do you mean you want to look in cell C1 In EACH sheet and, if
found, delete Column C in THAT sheet? As written now, you say you want to
delete column C of EVERY sheet if "Expired" is found in C1 in some (I don't
know which) sheet. HTH Otto



"Vikram" wrote in message
...
Hello All,
I have one workbook which contains 20-30 sheets and from these i would
like
to check whether column C1="Expired" if value is matching then i would
like
to delete entire column from all the sheets except two sheet (sheet1 and
sheet2).

Please help in this regard..

Best regards
Vikram

.

Deleting columns if value of cell is not matching
 

This macro will look at all sheets that are NOT named "Sheet1" or "Sheet2",
look for "Expired" in C1 and delete Column C if found. Post back if you
need more. HTH Otto
Sub DeleteExpired()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name < "Sheet1" And ws.Name < "Sheet2" Then
If ws.Range("C1") = "Expired" Then _
ws.Columns("C:C").Delete Shift:=xlToLeft
End If
Next ws
End Sub

"Vikram" wrote in message
...
Hello Otto,

I would like to check whether Cell C1 in each sheet contains "expired" and
if yes then delete that column i.e, column C, except 2 sheets

"Otto Moehrbach" wrote:

You say " i would like to check whether column C1="Expired"...". In what
sheet? Or do you mean you want to look in cell C1 In EACH sheet and, if
found, delete Column C in THAT sheet? As written now, you say you want
to
delete column C of EVERY sheet if "Expired" is found in C1 in some (I
don't
know which) sheet. HTH Otto



"Vikram" wrote in message
...
Hello All,
I have one workbook which contains 20-30 sheets and from these i would
like
to check whether column C1="Expired" if value is matching then i would
like
to delete entire column from all the sheets except two sheet (sheet1
and
sheet2).

Please help in this regard..

Best regards
Vikram

.