Delete Columns not Containing Certain Text
 

I would like to delete all rows with VBA that DO NOT contain the text TOTAL.
Struuggling some with it so far.

TIA, Dennis
================

Ooops.... I meant delete all columns, not rows...sorry.

Dennis
====================

In article ,
(Dennis) wrote:
I would like to delete all rows with VBA that DO NOT contain the text TOTAL.
Struuggling some with it so far.

TIA, Dennis
================

Hi Dennis,

Try:

Sub Tester()
Dim i As Integer

For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
If Application.CountIf(Columns(i), "*Total*") = 0 Then
Columns(i).Delete
End If
Next i

End Sub

--

---
Regards,
Norman



"Dennis" wrote in message
m...
Ooops.... I meant delete all columns, not rows...sorry.

Dennis
====================

In article ,

(Dennis) wrote:
I would like to delete all rows with VBA that DO NOT contain the text
TOTAL.
Struuggling some with it so far.

TIA, Dennis
================

Works perfect, thanx Norm!!!!

Dennis
===================


In article , "Norman Jones"
wrote:
Hi Dennis,

Try:

Sub Tester()
Dim i As Integer

For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
If Application.CountIf(Columns(i), "*Total*") = 0 Then
Columns(i).Delete
End If
Next i

End Sub

Hi Dennis,

In case the used range does not start in column A, better would be:

Sub Tester()
Dim i As Integer
Dim j As Integer

With ActiveSheet.UsedRange.Columns
j = .Column + .Count
End With

For i = j - 1 To 1 Step -1
If Application.CountIf(Columns(i), "*Total*") = 0 Then
Columns(i).Delete
End If
Next i

End Sub

---
Regards,
Norman



"Dennis" wrote in message
. com...
Works perfect, thanx Norm!!!!

Dennis
===================


In article , "Norman Jones"
wrote:
Hi Dennis,

Try:

Sub Tester()
Dim i As Integer

For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
If Application.CountIf(Columns(i), "*Total*") = 0 Then
Columns(i).Delete
End If
Next i

End Sub