Home |
Search |
Today's Posts |
#1
|
|||
|
|||
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 ================ |
#2
|
|||
|
|||
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 ================ |
#3
|
|||
|
|||
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 ================ |
#4
|
|||
|
|||
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 |
#5
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How can I delete ALL text boxes in Excel worksheets? | Excel Discussion (Misc queries) | |||
Read Text File into Excel Using VBA | Excel Discussion (Misc queries) | |||
text from one column into multiple columns | Excel Discussion (Misc queries) | |||
Data Text to Columns | Excel Discussion (Misc queries) | |||
splitting text to multiple columns | Excel Discussion (Misc queries) |